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 <gaiusmod2@gmail.com>

diff --git a/gcc/m2/gm2-compiler/P2SymBuild.mod b/gcc/m2/gm2-compiler/P2SymBuild.mod
index 1b59f3d631b6fae109e4ecc39e306899ce50febb..8f3b4995ac88a1ad5ad50e3861216621d08bfb1b 100644 (file)
--- 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 f1f13ddd9aebb6ace9f9f02d409b502788dd57c7..525d016459001af64319b104f134384206f904f8 100644 (file)
--- 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 ] ;
 
 
 (*