diff mbox series

[COMMITTED,10/38] ada: Minor tweaks in comments

Message ID 20241104161116.1431659-10-poulhies@adacore.com
State New
Headers show
Series [COMMITTED,01/38] ada: Fix asymmetry in resolution of unary intrinsic operators | expand

Commit Message

Marc Poulhiès Nov. 4, 2024, 4:10 p.m. UTC 
From: Eric Botcazou <ebotcazou@adacore.com>

They are related to the special support for text encoding on Windows.

gcc/ada/ChangeLog:

	* adaint.c: Replace initialize.c with rtinit.c in comment.
	* sysdep.c (__gnat_set_mode): Fix reference in comment.
	* libgnat/i-cstrea.ads (Content_Encoding): Adjust comment.

Tested on x86_64-pc-linux-gnu, committed on master.

---
 gcc/ada/adaint.c             | 2 +-
 gcc/ada/libgnat/i-cstrea.ads | 2 +-
 gcc/ada/sysdep.c             | 8 ++++----
 3 files changed, 6 insertions(+), 6 deletions(-)
diff mbox series

Patch

diff --git a/gcc/ada/adaint.c b/gcc/ada/adaint.c
index f26d69a1a2a..9ccac305dde 100644
--- a/gcc/ada/adaint.c
+++ b/gcc/ada/adaint.c
@@ -175,7 +175,7 @@  extern "C" {
 
 #include "mingw32.h"
 
-/* Current code page and CCS encoding to use, set in initialize.c.  */
+/* Current code page and CCS encoding to use, set in rtinit.c.  */
 UINT __gnat_current_codepage;
 UINT __gnat_current_ccs_encoding;
 
diff --git a/gcc/ada/libgnat/i-cstrea.ads b/gcc/ada/libgnat/i-cstrea.ads
index 756db48e75c..ba75c21b231 100644
--- a/gcc/ada/libgnat/i-cstrea.ads
+++ b/gcc/ada/libgnat/i-cstrea.ads
@@ -235,9 +235,9 @@  package Interfaces.C_Streams is
    --                   In this mode we are eventually using the system-wide
    --                   translation if activated.
    --    Text         : Text encoding activated
+   --    U8text       : Unicode UTF-8 encoding
    --    Wtext        : Unicode mode
    --    U16text      : Unicode UTF-16 encoding
-   --    U8text       : Unicode UTF-8 encoding
    --
    --  This encoding is system dependent and only used on Windows systems.
    --
diff --git a/gcc/ada/sysdep.c b/gcc/ada/sysdep.c
index 254c736bec4..1f65f433f50 100644
--- a/gcc/ada/sysdep.c
+++ b/gcc/ada/sysdep.c
@@ -177,8 +177,8 @@  __gnat_set_text_mode (int handle)
 void
 __gnat_set_mode (int handle, int mode)
 {
-  /*  the values here must be synchronized with
-      System.File_Control_Block.Content_Encodding:
+  /*  The values here must be synchronized with
+      Interfaces.C_Streams.Content_Encoding:
 
       None         = 0
       Default_Text = 1
@@ -200,8 +200,8 @@  __gnat_set_mode (int handle, int mode)
 void
 __gnat_set_mode (int handle, int mode)
 {
-  /*  the values here must be synchronized with
-      System.File_Control_Block.Content_Encodding:
+  /*  The values here must be synchronized with
+      Interfaces.C_Streams.Content_Encoding:
 
       None         = 0
       Default_Text = 1