diff --git a/util/ceg/defaults/pseudo/C_busy.c b/util/ceg/defaults/pseudo/C_busy.c index f257d8b54..f0249aff7 100644 --- a/util/ceg/defaults/pseudo/C_busy.c +++ b/util/ceg/defaults/pseudo/C_busy.c @@ -1,9 +1,9 @@ #define CODE_EXPANDER #include -extern int busy; +extern int B_busy; int C_busy() { - return( busy); + return( B_busy); } diff --git a/util/ceg/defaults/pseudo/C_close.c b/util/ceg/defaults/pseudo/C_close.c index 1512bcaf6..145ac61e7 100644 --- a/util/ceg/defaults/pseudo/C_close.c +++ b/util/ceg/defaults/pseudo/C_close.c @@ -2,13 +2,13 @@ #include #include -extern int busy; +extern int B_busy; C_close() { - assert( busy); + assert( B_busy); end_back(); close_back(); - busy = 0; + B_busy = 0; } diff --git a/util/ceg/defaults/pseudo/C_df_ilb.c b/util/ceg/defaults/pseudo/C_df_ilb.c index 96e4a5a48..e377f98a0 100644 --- a/util/ceg/defaults/pseudo/C_df_ilb.c +++ b/util/ceg/defaults/pseudo/C_df_ilb.c @@ -2,7 +2,7 @@ #include #include "back.h" -extern int procno; +extern int B_procno; C_df_ilb( l) label l; @@ -10,6 +10,6 @@ label l; char *s; swtxt(); - symbol_definition(s = extnd_ilb( l, procno)); + symbol_definition(s = extnd_ilb( l, B_procno)); set_local_visible(s); } diff --git a/util/ceg/defaults/pseudo/C_end.c b/util/ceg/defaults/pseudo/C_end.c index a2ff3a346..d0b580161 100644 --- a/util/ceg/defaults/pseudo/C_end.c +++ b/util/ceg/defaults/pseudo/C_end.c @@ -2,8 +2,8 @@ #include #include "back.h" -extern int locals_created; -extern int procno; +extern int B_locals_created; +extern int B_procno; C_end( l) arith l; @@ -12,12 +12,12 @@ arith l; swtxt(); - if ( !locals_created) { - p = extnd_pro( procno); + if ( !B_locals_created) { + p = extnd_pro( B_procno); symbol_definition( p); set_local_visible( p); locals( l); - jump( extnd_start( procno)); + jump( extnd_start( B_procno)); } } diff --git a/util/ceg/defaults/pseudo/C_end_narg.c b/util/ceg/defaults/pseudo/C_end_narg.c index 57b242c18..129617f35 100644 --- a/util/ceg/defaults/pseudo/C_end_narg.c +++ b/util/ceg/defaults/pseudo/C_end_narg.c @@ -2,9 +2,9 @@ #include #include -extern int locals_created; +extern int B_locals_created; C_end_narg() { - assert( locals_created); + assert( B_locals_created); } diff --git a/util/ceg/defaults/pseudo/C_open.c b/util/ceg/defaults/pseudo/C_open.c index 780959f9c..0a33eb9d1 100644 --- a/util/ceg/defaults/pseudo/C_open.c +++ b/util/ceg/defaults/pseudo/C_open.c @@ -3,12 +3,12 @@ #include #include -extern int busy; +extern int B_busy; int C_open( filename) char *filename; { - assert( !busy); + assert( !B_busy); if ( !open_back( filename)) { fprint( STDERR, "Couldn't open %s\n", filename); diff --git a/util/ceg/defaults/pseudo/C_pro.c b/util/ceg/defaults/pseudo/C_pro.c index 6c8ef75eb..49a6f0de0 100644 --- a/util/ceg/defaults/pseudo/C_pro.c +++ b/util/ceg/defaults/pseudo/C_pro.c @@ -2,8 +2,8 @@ #include #include "back.h" -extern int locals_created; -extern int procno; +extern int B_locals_created; +extern int B_procno; C_pro( s, l) char *s; @@ -12,8 +12,8 @@ arith l; swtxt(); symbol_definition( extnd_name( s)); - procno++; + B_procno++; prolog(); locals(l); - locals_created = 1; + B_locals_created = 1; } diff --git a/util/ceg/defaults/pseudo/C_pro_narg.c b/util/ceg/defaults/pseudo/C_pro_narg.c index aa0ecdf47..58ce79243 100644 --- a/util/ceg/defaults/pseudo/C_pro_narg.c +++ b/util/ceg/defaults/pseudo/C_pro_narg.c @@ -2,26 +2,25 @@ #include #include "back.h" -extern int locals_created; -extern int procno; +extern int B_locals_created; +extern int B_procno; C_pro_narg( s) char*s; -/* Het aantal locale variabelen is nog niet bekend, maar het stack-frame moet - * nu wel gemaakt worden! Oplossing : Pas bij bij C_end() is het aantal locale - * variabelen bekend dus nu een "jump" genereren en bij C_end() prolog() aan- - * roepen en daarna terug-jump-en naar het begin van de EM-procedure. +/* The number of locals is unknown, but the stackframe must be made anyway. + * Solution: jump to end of procedure, where C_end() will generate code to + * create the stackframe, and also will generate code to jump back. */ { char *ss; swtxt(); symbol_definition( extnd_name( s)); - procno++; + B_procno++; prolog(); - locals_created = 0; - jump( extnd_pro( procno)); - symbol_definition( ss = extnd_start( procno)); + B_locals_created = 0; + jump( extnd_pro( B_procno)); + symbol_definition( ss = extnd_start( B_procno)); set_local_visible( ss); }