https://gcc.gnu.org/g:d0acb7b2b26d4f821968043eafd286a1a3a37ca3
commit r15-7205-gd0acb7b2b26d4f821968043eafd286a1a3a37ca3
Author: Gaius Mulley <gaiusm...@gmail.com>
Date: Sat Jan 25 02:28:13 2025 +0000
PR modula2/118010 m2 libc lseek procedure interface correction
This patch corrects a typo in the definition of lseek in libc.
The second offset parameter should have been declared as COFF_T.
No errors are seen when bootstrapping using -Werror=odr
-Werror=lto-type-mismatch.
gcc/m2/ChangeLog:
PR modula2/118010
* gm2-compiler/P2SymBuild.mod (Debug): Comment out unused
procedure.
* gm2-libs/libc.def (lseek): Declare second parameter offset
as COFF_T.
Signed-off-by: Gaius Mulley <gaiusm...@gmail.com>
Diff:
---
gcc/m2/gm2-compiler/P2SymBuild.mod | 2 ++
gcc/m2/gm2-libs/libc.def | 2 +-
2 files changed, 3 insertions(+), 1 deletion(-)
diff --git a/gcc/m2/gm2-compiler/P2SymBuild.mod
b/gcc/m2/gm2-compiler/P2SymBuild.mod
index 1b59f3d631b6..8f3b4995ac88 100644
--- a/gcc/m2/gm2-compiler/P2SymBuild.mod
+++ b/gcc/m2/gm2-compiler/P2SymBuild.mod
@@ -182,6 +182,7 @@ PROCEDURE stop ; BEGIN END stop ;
Debug - call stop if symbol name is name.
*)
+(*
PROCEDURE Debug (tok: CARDINAL; sym: CARDINAL; name: ARRAY OF CHAR) ;
BEGIN
IF MakeKey (name) = GetSymName (sym)
@@ -190,6 +191,7 @@ BEGIN
END ;
MetaErrorT1 (tok, 'procedure {%1Wa}', sym)
END Debug ;
+*)
(*
diff --git a/gcc/m2/gm2-libs/libc.def b/gcc/m2/gm2-libs/libc.def
index f1f13ddd9aeb..525d01645900 100644
--- a/gcc/m2/gm2-libs/libc.def
+++ b/gcc/m2/gm2-libs/libc.def
@@ -311,7 +311,7 @@ PROCEDURE creat (filename: ADDRESS; mode: CARDINAL) :
INTEGER;
off_t lseek(int fildes, off_t offset, int whence);
*)
-PROCEDURE lseek (fd: INTEGER; offset: CSSIZE_T; whence: INTEGER) : [ COFF_T ] ;
+PROCEDURE lseek (fd: INTEGER; offset: COFF_T; whence: INTEGER) : [ COFF_T ] ;
(*
