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

Some small changes

Browse source
This commit is contained in:
ceriel 1993-11-10 12:35:33 +00:00
parent 4deafdc9de
commit 2662c3984d
5 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
lang/basic/src/bem.h
View file

@ -6,6 +6,7 @@
#include <ctype.h> #include <ctype.h>
#include <signal.h> #include <signal.h>
#include <system.h> #include <system.h>
#include <print.h>
#include <em.h> #include <em.h>
#include <em_mes.h> #include <em_mes.h>

2
lang/basic/src/compile.c
View file

@ -26,5 +26,5 @@ compileprogram()
while( basicline = 0, getline()) while( basicline = 0, getline())
(void) LLparse(); (void) LLparse();
epilogcode(); epilogcode();
(void) sys_close(yyin); sys_close(yyin);
} }

2
lang/basic/src/parsepar.c
View file

@ -42,7 +42,7 @@ char **argv;
case 't': traceflag++; case 't': traceflag++;
break; /* line tracing */ break; /* line tracing */
case 'h': /* split EM file */ case 'h': /* split EM file */
(void) fprint(STDERR, fprint(STDERR,
"h option not implemented\n"); "h option not implemented\n");
break; break;
case 'd': debug++; case 'd': debug++;

2
lang/basic/src/symbols.c
View file

@ -256,7 +256,7 @@ heading( )
{ {
char procname[50]; char procname[50];
sprint(procname,"_%s",fcn->symname); (void) sprint(procname,"_%s",fcn->symname);
C_pro_narg(procname); C_pro_narg(procname);
if ( fcn->symtype== DEFAULTTYPE) if ( fcn->symtype== DEFAULTTYPE)
fcn->symtype= DOUBLETYPE; fcn->symtype= DOUBLETYPE;

2
lang/basic/src/util.c
View file

@ -73,7 +73,7 @@ int i;
{ {
static char buf[30]; static char buf[30];
(void) sprint(buf,"%d",i); sprint(buf,"%d",i);
return(buf); return(buf);
} }