Parent Directory | Revision Log | Patch
revision 1.18 by mjthomas, Mon Jul 7 04:53:14 2003 UTC | revision 1.19 by camm, Sun Sep 14 02:43:07 2003 UTC | |
---|---|---|
# | Line 92 DEF_ORDINARY("%INIT",sSPinit,SI,""); | Line 92 DEF_ORDINARY("%INIT",sSPinit,SI,""); |
92 | ||
93 | void Lidentity(void); | void Lidentity(void); |
94 | void | void |
95 | init_cmpaux(void) | gcl_init_cmpaux(void) |
96 | { | { |
97 | ||
98 | ||
# | Line 429 char *s; | Line 429 char *s; |
429 | #endif | #endif |
430 | ||
431 | void | void |
432 | init_or_load1(void (*fn)(void),char *file) | gcl_init_or_load1(void (*fn)(void),char *file) |
433 | {int n=strlen(file); | {int n=strlen(file); |
434 | if (file[n-1]=='o') | if (file[n-1]=='o') |
435 | { object memory; | { object memory; |
# | Line 466 function.") | Line 466 function.") |
466 | ||
467 | int i; | int i; |
468 | ||
469 | i=init_cmp_anon(); | i=gcl_init_cmp_anon(); |
470 | if (i<0) | if (i<0) |
471 | FEerror("No such anonymous function",0); | FEerror("No such anonymous function",0); |
472 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |