Merge pull request #167 from aldorlang/fix-gcc-14

Fix gcc 14
aldorlang · Dec 21, 2024 · c96d30b · c96d30b
2 parents a2aa61c + 3945754
commit c96d30b
Showing 1 changed file with 3 additions and 20 deletions.
diff --git a/aldor/aldor/src/ccode.c b/aldor/aldor/src/ccode.c
@@ -343,42 +343,25 @@ ccoPr(CCode cco)
 
                 /* dump the buffered output and stop the buffering */
 
-#if 0
-		cc += ccoPutsFileOnly("\n#if 0\n");
-		cc += ccoPutsFileOnly(BufferOutput);
-		cc += ccoPutsFileOnly("\n#endif\n");
-#endif
-#if 0
-		if (strcmp(BufferOutput,"extern FiWord fputc();\n") == 0)
-		{
-	         	if (wrote_fputc == 0)
-			{
-			       cc += ccoPutsFileOnly("extern int fputc(); /* Signature patched in ccode.c:ccoPr */ \n");
-				wrote_fputc = 1;
-			}
-		}
-		else 
-#endif
-
 		if (strcmp(BufferOutput,"extern FiWord fputc();") == 0)
 		{
 	         	if (wrote_fputc == 0)
 			{
-	                	cc += ccoPutsFileOnly("extern int fputc(); /* Signature patched in ccode.c:ccoPr */");
+				cc += ccoPutsFileOnly("extern int fputc(FiWord, FiWord); /* Signature patched in ccode.c:ccoPr [1]*/");
 				wrote_fputc = 1;
 			}
 		}
 		else if (strcmp(BufferOutput,"extern FiWord fputc(FiWord P0, FiWord P1);") == 0)
 		{
 	         	if (wrote_fputc == 0)
 			{
-	                	cc += ccoPutsFileOnly("extern int fputc(FiWord P0, FiWord P1); /* Signature patched in ccode.c:ccoPr */");
+				cc += ccoPutsFileOnly("extern int fputc(FiWord P0, FiWord P1); /* Signature patched in ccode.c:ccoPr [2] */");
 				wrote_fputc = 1;
 			}
 		}
                 else if (strcmp(BufferOutput,"extern FiWord fputs();") == 0)
                 {
-                        cc += ccoPutsFileOnly("extern int fputs(); /* Signature patched in ccode.c:ccoPr */");
+                        cc += ccoPutsFileOnly("extern int fputs(FiWord, FiWord); /* Signature patched in ccode.c:ccoPr [3]*/");
                 }
 		else
 		{