/[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.35 by camm, Sat Nov 12 18:33:42 2005 UTC revision 1.36 by camm, Tue Nov 29 23:19:39 2005 UTC
# Line 1080  char *old_rb_start; Line 1080  char *old_rb_start;
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    
# Line 1425  GBC(enum type t) { Line 1435  GBC(enum type t) {
1435        
1436    CHECK_INTERRUPT;    CHECK_INTERRUPT;
1437    
1438      call_after_gbc_hook(t);
1439    
1440  }  }
1441    

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

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