From: ceriel <none@none>
Date: Thu, 26 Jan 1989 13:24:23 +0000 (+0000)
Subject: change some names
X-Git-Tag: release-5-5~2670
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=e92f8ac3987d1b9665e30083638b814dac4510ae;p=ack.git

change some names
---

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 <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 1512bcaf6..145ac61e7 100644
--- 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 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 <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 a2ff3a346..d0b580161 100644
--- 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 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 <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 780959f9c..0a33eb9d1 100644
--- 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 6c8ef75eb..49a6f0de0 100644
--- 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 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 <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);
 }