https://gcc.gnu.org/g:a0b57f6ff5c8eff7e8c17a28ccbed7b11ddc82e7
commit r15-4899-ga0b57f6ff5c8eff7e8c17a28ccbed7b11ddc82e7
Author: Eric Botcazou <ebotca...@adacore.com>
Date: Thu Oct 10 00:12:05 2024 +0200
ada: Minor tweaks in comments
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.
Diff:
---
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 --git a/gcc/ada/adaint.c b/gcc/ada/adaint.c
index f26d69a1a2a0..9ccac305dde9 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 756db48e75c9..ba75c21b231d 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 254c736bec43..1f65f433f507 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
