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

delinted somewhat

Browse source
This commit is contained in:
ceriel 1988-09-05 15:51:35 +00:00
parent dca9ed9bb2
commit a0d2a1ea74
5 changed files with 24 additions and 27 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
lang/m2/comp/error.c
View file

@ -60,7 +60,7 @@ extern char *symbol2str();
*/ */
#ifdef DEBUG #ifdef DEBUG
/*VARARGS1*/ /*VARARGS*/
debug(va_alist) debug(va_alist)
va_dcl va_dcl
{ {
@ -74,7 +74,7 @@ debug(va_alist)
} }
#endif DEBUG #endif DEBUG
/*VARARGS1*/ /*VARARGS*/
error(va_alist) error(va_alist)
va_dcl va_dcl
{ {
@ -87,7 +87,7 @@ error(va_alist)
va_end(ap); va_end(ap);
} }
/*VARARGS2*/ /*VARARGS*/
node_error(va_alist) node_error(va_alist)
va_dcl va_dcl
{ {
@ -102,7 +102,7 @@ node_error(va_alist)
va_end(ap); va_end(ap);
} }
/*VARARGS2*/ /*VARARGS*/
warning(va_alist) warning(va_alist)
va_dcl va_dcl
{ {
@ -115,7 +115,7 @@ warning(va_alist)
va_end(ap); va_end(ap);
} }
/*VARARGS3*/ /*VARARGS*/
node_warning(va_alist) node_warning(va_alist)
va_dcl va_dcl
{ {
@ -129,7 +129,7 @@ node_warning(va_alist)
va_end(ap); va_end(ap);
} }
/*VARARGS1*/ /*VARARGS*/
lexerror(va_alist) lexerror(va_alist)
va_dcl va_dcl
{ {
@ -142,7 +142,7 @@ lexerror(va_alist)
va_end(ap); va_end(ap);
} }
/*VARARGS2*/ /*VARARGS*/
lexwarning(va_alist) lexwarning(va_alist)
va_dcl va_dcl
{ {
@ -155,7 +155,7 @@ lexwarning(va_alist)
va_end(ap); va_end(ap);
} }
/*VARARGS1*/ /*VARARGS*/
fatal(va_alist) fatal(va_alist)
va_dcl va_dcl
{ {
@ -169,7 +169,7 @@ fatal(va_alist)
sys_stop(S_EXIT); sys_stop(S_EXIT);
} }
/*VARARGS1*/ /*VARARGS*/
crash(va_alist) crash(va_alist)
va_dcl va_dcl
{ {

24
lang/m2/comp/options.c
View file

@ -156,7 +156,7 @@ DoOption(text)
#ifndef NOCROSS #ifndef NOCROSS
{ {
register int size; register int size;
register int align; register int algn;
char c; char c;
char *t; char *t;
@ -165,10 +165,10 @@ DoOption(text)
t = text; t = text;
size = txt2int(&t); size = txt2int(&t);
align = 0; algn = 0;
if (*(text = t) == '.') { if (*(text = t) == '.') {
t = text + 1; t = text + 1;
align = txt2int(&t); algn = txt2int(&t);
text = t; text = t;
} }
if (! strindex("wislfdpS", c)) { if (! strindex("wislfdpS", c)) {
@ -199,31 +199,31 @@ DoOption(text)
pointer_size = size; pointer_size = size;
break; break;
} }
if (align != 0) switch (c) { if (algn != 0) switch (c) {
case 'w': /* word */ case 'w': /* word */
word_align = align; word_align = algn;
break; break;
case 'i': /* int */ case 'i': /* int */
int_align = align; int_align = algn;
break; break;
case 's': /* short (subranges) */ case 's': /* short (subranges) */
short_align = align; short_align = algn;
break; break;
case 'l': /* longint */ case 'l': /* longint */
long_align = align; long_align = algn;
break; break;
case 'f': /* real */ case 'f': /* real */
float_align = align; float_align = algn;
break; break;
case 'd': /* longreal */ case 'd': /* longreal */
double_align = align; double_align = algn;
break; break;
case 'p': /* pointer */ case 'p': /* pointer */
pointer_align = align; pointer_align = algn;
break; break;
case 'S': /* initial record alignment */ case 'S': /* initial record alignment */
struct_align = align; struct_align = algn;
break; break;
} }
} }

2
lang/m2/comp/scope.C
View file

@ -26,7 +26,6 @@
t_scope *PervasiveScope; t_scope *PervasiveScope;
t_scopelist *CurrVis, *GlobalVis; t_scopelist *CurrVis, *GlobalVis;
extern int proclevel; extern int proclevel;
static t_scopelist *PervVis;
extern char options[]; extern char options[];
/* STATICALLOCDEF "scope" 10 */ /* STATICALLOCDEF "scope" 10 */
@ -71,7 +70,6 @@ InitScope()
sc->sc_level = proclevel; sc->sc_level = proclevel;
PervasiveScope = sc; PervasiveScope = sc;
ls->sc_scope = PervasiveScope; ls->sc_scope = PervasiveScope;
PervVis = ls;
CurrVis = ls; CurrVis = ls;
} }

6
lang/m2/comp/type.c
View file

@ -123,15 +123,15 @@ align(pos, al)
} }
t_type * t_type *
standard_type(fund, align, size) standard_type(fund, algn, size)
int fund; int fund;
int align; int algn;
arith size; arith size;
{ {
register t_type *tp = new_type(); register t_type *tp = new_type();
tp->tp_fund = fund; tp->tp_fund = fund;
tp->tp_align = align; tp->tp_align = algn;
tp->tp_size = size; tp->tp_size = size;
if (fund == T_ENUMERATION || fund == T_CHAR) { if (fund == T_ENUMERATION || fund == T_CHAR) {
tp->tp_value.tp_enum = new_enume(); tp->tp_value.tp_enum = new_enume();

1
lang/m2/comp/typequiv.c
View file

@ -139,7 +139,6 @@ TstAssCompat(tp1, tp2)
/* Test if two types are assignment compatible. /* Test if two types are assignment compatible.
See Def 9.1. See Def 9.1.
*/ */
register t_type *tp;
if (TstCompat(tp1, tp2)) return 1; if (TstCompat(tp1, tp2)) return 1;