d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases 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
/*VARARGS1*/
/*VARARGS*/
debug(va_alist)
va_dcl
{
@ -74,7 +74,7 @@ debug(va_alist)
}
#endif DEBUG
/*VARARGS1*/
/*VARARGS*/
error(va_alist)
va_dcl
{
@ -87,7 +87,7 @@ error(va_alist)
va_end(ap);
}
/*VARARGS2*/
/*VARARGS*/
node_error(va_alist)
va_dcl
{
@ -102,7 +102,7 @@ node_error(va_alist)
va_end(ap);
}
/*VARARGS2*/
/*VARARGS*/
warning(va_alist)
va_dcl
{
@ -115,7 +115,7 @@ warning(va_alist)
va_end(ap);
}
/*VARARGS3*/
/*VARARGS*/
node_warning(va_alist)
va_dcl
{
@ -129,7 +129,7 @@ node_warning(va_alist)
va_end(ap);
}
/*VARARGS1*/
/*VARARGS*/
lexerror(va_alist)
va_dcl
{
@ -142,7 +142,7 @@ lexerror(va_alist)
va_end(ap);
}
/*VARARGS2*/
/*VARARGS*/
lexwarning(va_alist)
va_dcl
{
@ -155,7 +155,7 @@ lexwarning(va_alist)
va_end(ap);
}
/*VARARGS1*/
/*VARARGS*/
fatal(va_alist)
va_dcl
{
@ -169,7 +169,7 @@ fatal(va_alist)
sys_stop(S_EXIT);
}
/*VARARGS1*/
/*VARARGS*/
crash(va_alist)
va_dcl
{

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

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

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

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

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

@ -123,15 +123,15 @@ align(pos, al)
}
t_type *
standard_type(fund, align, size)
standard_type(fund, algn, size)
int fund;
int align;
int algn;
arith size;
{
register t_type *tp = new_type();
tp->tp_fund = fund;
tp->tp_align = align;
tp->tp_align = algn;
tp->tp_size = size;
if (fund == T_ENUMERATION || fund == T_CHAR) {
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.
See Def 9.1.
*/
register t_type *tp;
if (TstCompat(tp1, tp2)) return 1;