/[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.36 by camm, Tue Nov 29 23:19:39 2005 UTC revision 1.37 by camm, Sun Dec 4 23:00:51 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;
1086  static void  static void
1087  call_after_gbc_hook(t)  call_after_gbc_hook(t) {
1088  { if (sSAafter_gbc_hookA && sSAafter_gbc_hookA->s.s_dbind!= Cnil)  
1089      { set_up_string_register(tm_table[(int)t].tm_name+1);    if (sSAafter_gbc_hookA && sSAafter_gbc_hookA->s.s_dbind!= Cnil) {
1090        ifuncall1(sSAafter_gbc_hookA->s.s_dbind,intern(string_register,system_package));      in_agbch=1;
1091      }      set_up_string_register(tm_table[(int)t].tm_name+1);
1092        ifuncall1(sSAafter_gbc_hookA->s.s_dbind,intern(string_register,system_package));
1093        in_agbch=0;
1094      }
1095      
1096  }  }
1097    
1098  void  void
# Line 1101  GBC(enum type t) { Line 1106  GBC(enum type t) {
1106  #ifdef DEBUG  #ifdef DEBUG
1107    int tm=0;    int tm=0;
1108  #endif  #endif
1109    
1110      if (in_agbch)
1111        return;
1112        
1113    mcsl=mcsh=&tm;    mcsl=mcsh=&tm;
1114    

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

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