change some names

diff --git a/util/ceg/defaults/pseudo/C_busy.c b/util/ceg/defaults/pseudo/C_busy.c
index f257d8b..f0249af 100644 (file)
--- a/util/ceg/defaults/pseudo/C_busy.c
+++ b/util/ceg/defaults/pseudo/C_busy.c
@@ -1,9 +1,9 @@
 #define CODE_EXPANDER
 #include <em.h>
 
-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 1512bca..145ac61 100644 (file)
--- a/util/ceg/defaults/pseudo/C_close.c
+++ b/util/ceg/defaults/pseudo/C_close.c
@@ -2,13 +2,13 @@
 #include <em.h>
 #include <assert.h>
 
-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 96e4a5a..e377f98 100644 (file)
--- a/util/ceg/defaults/pseudo/C_df_ilb.c
+++ b/util/ceg/defaults/pseudo/C_df_ilb.c
@@ -2,7 +2,7 @@
 #include <em.h>
 #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 a2ff3a3..d0b5801 100644 (file)
--- a/util/ceg/defaults/pseudo/C_end.c
+++ b/util/ceg/defaults/pseudo/C_end.c
@@ -2,8 +2,8 @@
 #include <em.h>
 #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 57b242c..129617f 100644 (file)
--- a/util/ceg/defaults/pseudo/C_end_narg.c
+++ b/util/ceg/defaults/pseudo/C_end_narg.c
@@ -2,9 +2,9 @@
 #include <em.h>
 #include <assert.h>
 
-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 780959f..0a33eb9 100644 (file)
--- a/util/ceg/defaults/pseudo/C_open.c
+++ b/util/ceg/defaults/pseudo/C_open.c
@@ -3,12 +3,12 @@
 #include <assert.h>
 #include <system.h>
 
-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 6c8ef75..49a6f0d 100644 (file)
--- a/util/ceg/defaults/pseudo/C_pro.c
+++ b/util/ceg/defaults/pseudo/C_pro.c
@@ -2,8 +2,8 @@
 #include <em.h>
 #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 aa0ecdf..58ce792 100644 (file)
--- a/util/ceg/defaults/pseudo/C_pro_narg.c
+++ b/util/ceg/defaults/pseudo/C_pro_narg.c
@@ -2,26 +2,25 @@
 #include <em.h>
 #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);
 }