github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-26 11:52:25 +00:00
Code Issues Projects Releases Wiki Activity

Remove extra semicolons, convert #define x() {...} to do {...} while (0) style (#444)

Browse Source 
* Remove extra semicolons, convert #define x() {...} to do {...} while (0) style

* Fix missing brace in INIT-specific definition of init_kbd_startup
This commit is contained in:
Nick Briggs
2022-10-05 09:07:17 -07:00
committed by GitHub
parent f5b17b0e63
commit cdffa541ef
57 changed files with 413 additions and 400 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
src/ejlisp.c
View File

@@ -37,7 +37,7 @@
#define CHAR_SIZE CHAR_MAXLEN *(sizeof(char) / sizeof(int))
#define LStringToCString(Lisp, C, MaxLen, Len) \
{ \
do { \
OneDArray *arrayp; \
char *base; \
short *sbase; \
@@ -64,10 +64,10 @@
\
default: error("LStringToCString can not handle\n"); \
} \
}
} while (0)
#define CStringToLString(C, Lisp, Len) \
{ \
do { \
OneDArray *arrayp; \
char *base; \
short *sbase; \
@@ -93,18 +93,18 @@
\
default: error("CStringToLString can not handle\n"); \
} \
}
} while (0)
#define IntToFixp(C, Lisp) \
{ \
do { \
int *base; \
\
base = (int *)NativeAligned4FromLAddr((unsigned int)Lisp); \
*base = C; \
}
} while (0)
#define ZeroFix(C) \
{ \
do { \
int k, j; \
\
if (C[0] == 0 && C[1] != 0) { \
@@ -113,15 +113,15 @@
} \
C[j] = 0; \
} \
}
} while (0)
#define EJLISP_SETJMP(x) \
{ \
do { \
if (setjmp(jmpbuf) != 0) { \
ejlisp_buf = NULL; \
return (x); \
} \
}
} while (0)
typedef struct first_array {
unsigned int orig : 1;