godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions 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 fe9fb2fb9d
commit a58f200d8a
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) C_df_ilb( l)
label l; label l;
{ {
char *s;
swtxt(); swtxt();
symbol_definition( extnd_ilb( l)); symbol_definition(s = extnd_ilb( l));
set_local_visible( 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; int d;
{ {
char *s;
swtxt(); swtxt();
jump(extnd_part( d)); jump(extnd_part( d));
symbol_definition( extnd_cont( d)); symbol_definition( s = extnd_cont( d));
set_local_visible( extnd_cont( d)); set_local_visible( s);
} }
@ -18,10 +19,11 @@ C_beginpart( d)
int d; int d;
{ {
char *s;
swtxt(); swtxt();
symbol_definition( extnd_part( d)); symbol_definition(s = extnd_part( d));
set_local_visible( 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. * roepen en daarna terug-jump-en naar het begin van de EM-procedure.
*/ */
{ {
char *ss;
swtxt(); swtxt();
symbol_definition( extnd_name( s)); symbol_definition( extnd_name( s));
@ -20,6 +21,6 @@ char*s;
prolog(); prolog();
locals_created = 0; locals_created = 0;
jump( extnd_pro( procno)); jump( extnd_pro( procno));
symbol_definition( extnd_start( procno)); symbol_definition( ss = extnd_start( procno));
set_local_visible( extnd_start( procno)); set_local_visible( ss);
} }