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

modifications in search for more speed

Browse source
This commit is contained in:
ceriel 1988-10-31 16:03:44 +00:00
parent 8fab3192b6
commit 8cd2051b2e
3 changed files with 13 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -5,7 +5,9 @@
C_df_ilb( l)
label l;
{
char *s;
swtxt();
symbol_definition( extnd_ilb( l));
set_local_visible( extnd_ilb( l));
symbol_definition(s = extnd_ilb( l));
set_local_visible(s);
}

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

@ -6,11 +6,12 @@ C_insertpart( d)
int d;
{
char *s;
swtxt();
jump(extnd_part( d));
symbol_definition( extnd_cont( d));
set_local_visible( extnd_cont( d));
symbol_definition( s = extnd_cont( d));
set_local_visible( s);
}
@ -18,10 +19,11 @@ C_beginpart( d)
int d;
{
char *s;
swtxt();
symbol_definition( extnd_part( d));
set_local_visible( extnd_part( d));
symbol_definition(s = extnd_part( d));
set_local_visible(S);
}

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

@ -13,6 +13,7 @@ char*s;
* roepen en daarna terug-jump-en naar het begin van de EM-procedure.
*/
{
char *ss;
swtxt();
symbol_definition( extnd_name( s));
@ -20,6 +21,6 @@ char*s;
prolog();
locals_created = 0;
jump( extnd_pro( procno));
symbol_definition( extnd_start( procno));
set_local_visible( extnd_start( procno));
symbol_definition( ss = extnd_start( procno));
set_local_visible( ss);
}