1080 |
#define OPTIMIZE_MAX_PAGES (sSAoptimize_maximum_pagesA ==0 || sSAoptimize_maximum_pagesA->s.s_dbind !=sLnil) |
#define OPTIMIZE_MAX_PAGES (sSAoptimize_maximum_pagesA ==0 || sSAoptimize_maximum_pagesA->s.s_dbind !=sLnil) |
1081 |
#define IGNORE_MAX_PAGES (sSAignore_maximum_pagesA ==0 || sSAignore_maximum_pagesA->s.s_dbind !=sLnil) |
#define IGNORE_MAX_PAGES (sSAignore_maximum_pagesA ==0 || sSAignore_maximum_pagesA->s.s_dbind !=sLnil) |
1082 |
|
|
1083 |
|
DEFVAR("*AFTER-GBC-HOOK*",sSAafter_gbc_hookA,SI,sLnil,""); |
1084 |
|
|
1085 |
|
static void |
1086 |
|
call_after_gbc_hook(t) |
1087 |
|
{ if (sSAafter_gbc_hookA && sSAafter_gbc_hookA->s.s_dbind!= Cnil) |
1088 |
|
{ set_up_string_register(tm_table[(int)t].tm_name+1); |
1089 |
|
ifuncall1(sSAafter_gbc_hookA->s.s_dbind,intern(string_register,system_package)); |
1090 |
|
} |
1091 |
|
} |
1092 |
|
|
1093 |
void |
void |
1094 |
GBC(enum type t) { |
GBC(enum type t) { |
1095 |
|
|
1435 |
|
|
1436 |
CHECK_INTERRUPT; |
CHECK_INTERRUPT; |
1437 |
|
|
1438 |
|
call_after_gbc_hook(t); |
1439 |
|
|
1440 |
} |
} |
1441 |
|
|