github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-27 04:12:51 +00:00
Code Issues Projects Releases Wiki Activity

Cleanup of includes and related changes based on include-what-you-use diagnostics (#436)

Browse Source 
Remove unused #define PERCENT_OF_SCREEN in MyWindow.h
Move structures for dir.c to dirdefs.h where they are used
Resolve S_CHAR vs S_CHARACTER in favor of S_CHARACTER and cleanup #defines
Fix  = vs == bug in FSDEBUG code in dir.c
Eliminate duplicate/unused constant definitions in gcr.c
Declare static internal function bytecmp in mkatom.c
Update many source and include files to include headers for what they use
This commit is contained in:
Nick Briggs
2022-08-10 11:07:57 -07:00
committed by GitHub
parent 4bd1f4b49a
commit 3d9f090e70
102 changed files with 876 additions and 1207 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/foreign.c
View File

@@ -337,7 +337,7 @@ LispPTR call_c_fn(LispPTR *args) {
intarg[18], intarg[19], intarg[20], intarg[21], intarg[22], intarg[23],
intarg[24], intarg[25], intarg[26], intarg[27], intarg[28], intarg[29],
intarg[30], intarg[31]);
return (S_CHAR | tmp);
return (S_CHARACTER | tmp);
}; break;
case TYPE_FLOATP:
fresult = ((PFF)fnaddr)(intarg[0], intarg[1], intarg[2], intarg[3], intarg[4], intarg[5],
@@ -598,7 +598,7 @@ LispPTR smashing_c_fn(LispPTR *args) {
return (NIL);
}; break;
case TYPE_CHARACTERP:
return (S_CHAR |
return (S_CHARACTER |
(((PFC)fnaddr)(intarg[0], intarg[1], intarg[2], intarg[3], intarg[4], intarg[5],
intarg[6], intarg[7], intarg[8], intarg[9], intarg[10], intarg[11],
intarg[12], intarg[13], intarg[14], intarg[15], intarg[16], intarg[17],