d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

change some names

Browse source
This commit is contained in:
ceriel 1989-01-26 13:24:23 +00:00
parent 3373e11923
commit e92f8ac398
8 changed files with 29 additions and 30 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
util/ceg/defaults/pseudo/C_busy.c
View file

@ -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);
}

6
util/ceg/defaults/pseudo/C_close.c
View file

@ -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;
}

4
util/ceg/defaults/pseudo/C_df_ilb.c
View file

@ -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);
}

10
util/ceg/defaults/pseudo/C_end.c
View file

@ -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));
}
}

4
util/ceg/defaults/pseudo/C_end_narg.c
View file

@ -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);
}

4
util/ceg/defaults/pseudo/C_open.c
View file

@ -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);

8
util/ceg/defaults/pseudo/C_pro.c
View file

@ -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;
}

19
util/ceg/defaults/pseudo/C_pro_narg.c
View file

@ -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);
}