/[gcl]/gcl/o/gbc.c
ViewVC logotype

Diff of /gcl/o/gbc.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.37 by camm, Sun Dec 4 23:00:51 2005 UTC revision 1.38 by camm, Mon Dec 5 15:02:32 2005 UTC
# Line 1082  char *old_rb_start; Line 1082  char *old_rb_start;
1082    
1083  DEFVAR("*AFTER-GBC-HOOK*",sSAafter_gbc_hookA,SI,sLnil,"");  DEFVAR("*AFTER-GBC-HOOK*",sSAafter_gbc_hookA,SI,sLnil,"");
1084    
1085  static int in_agbch;  static struct symbol in_agbchs;
1086    static object in_agbch=(object)&in_agbchs;
1087  static void  static void
1088  call_after_gbc_hook(t) {  call_after_gbc_hook(t) {
1089    
1090    if (sSAafter_gbc_hookA && sSAafter_gbc_hookA->s.s_dbind!= Cnil) {    if (sSAafter_gbc_hookA && sSAafter_gbc_hookA->s.s_dbind!= Cnil) {
1091      in_agbch=1;      bds_ptr old_bds_top = bds_top;
1092        bds_bind(in_agbch,Ct);
1093      set_up_string_register(tm_table[(int)t].tm_name+1);      set_up_string_register(tm_table[(int)t].tm_name+1);
1094      ifuncall1(sSAafter_gbc_hookA->s.s_dbind,intern(string_register,system_package));      ifuncall1(sSAafter_gbc_hookA->s.s_dbind,intern(string_register,system_package));
1095      in_agbch=0;      bds_unwind(old_bds_top);
1096    }    }
1097        
1098  }  }
# Line 1107  GBC(enum type t) { Line 1109  GBC(enum type t) {
1109    int tm=0;    int tm=0;
1110  #endif  #endif
1111    
1112    if (in_agbch)    if (in_agbch->s.s_dbind==Ct)
1113      return;      return;
1114        
1115    mcsl=mcsh=&tm;    mcsl=mcsh=&tm;

Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26