minix/pkgsrc-ng
1
0
Fork 0
mirror of https://github.com/Stichting-MINIX-Research-Foundation/pkgsrc-ng.git synced 2025-08-03 17:59:07 -04:00
Code Issues Packages Projects Releases Wiki Activity
pkgsrc-ng/lang/cim/patches/patch-src_dekl.c
Lionel Sambuc 1242aa1e36 Import of pkgsrc-2016Q3
2016-11-18 22:39:22 +01:00

258 lines
6.6 KiB
C
Raw Blame History

$NetBSD: patch-src_dekl.c,v 1.2 2015/12/29 23:34:44 dholland Exp $
Avoid implicit int.
Use C89.
Call own functions correctly.
--- src/dekl.c.orig 2012-10-26 12:55:39.000000000 +0000
+++ src/dekl.c
@@ -522,8 +522,7 @@ subordinate (rda, rdb)
/* Kalles fra syntakssjekkeren hver gang en ny blokk entres */
-beginBlock (kind)
- char kind;
+void beginBlock (char kind)
{
static int cblno = STARTBLNO;
static struct BLOCK *lblock;
@@ -650,9 +649,7 @@ beginBlock (kind)
/* Kalles fra syntakssjekkeren hver gang en blokk terminerer */
/*VARARGS0 */
-endBlock (rtname, codeclass)
- char *rtname;
- char codeclass;
+void endBlock (char *rtname, char codeclass)
{
#ifdef DEBUG
if (option_input)
@@ -688,8 +685,7 @@ endBlock (rtname, codeclass)
/* RegDecl kalles fra syntakssjekkeren
* hver gang vi leser en deklarasjon */
-regDecl (ident, type, kind, categ)
- char *ident, type, kind, categ;
+void regDecl (char *ident, char type, char kind, char categ)
{
struct DECL *pd,
*pdx = NULL;
@@ -858,7 +854,7 @@ regDecl (ident, type, kind, categ)
}
break;
default:
- d1error (37);
+ d1error (37, NULL);
break;
}
#ifdef DEBUG
@@ -881,11 +877,11 @@ regInner ()
,lineno, cblev);
#endif
if (cblock->quant.kind != KCLASS)
- d1error (38);
+ d1error (38, NULL);
else
{
if (cblock->inner)
- d1error (39);
+ d1error (39, NULL);
else
cblock->inner = TRUE;
}
@@ -1233,13 +1229,13 @@ setqualprefchain (rd, param)
rd->plev = 0;
if (rdx->categ == CNEW)
{
- d2error (53, rd);
+ d2error (53, rd, NULL);
rdx->categ = CERROR;
}
else if (rdx->kind != KCLASS)
{
if (rdx->categ != CERROR)
- d2error (54, rd);
+ d2error (54, rd, NULL);
rdx->categ = CERROR;
rd->type = TERROR;
}
@@ -1259,8 +1255,7 @@ setqualprefchain (rd, param)
* Prefikskjeden og kvalifikasjoner settes ved kall på setqualprefchain
* den sjekker også konsistensen for type kind og categ */
-static sjekkdekl (rb)
- struct BLOCK *rb;
+static void sjekkdekl (struct BLOCK *rb)
{
struct DECL *rd = NULL,
*rdx = NULL,
@@ -1344,11 +1339,11 @@ static sjekkdekl (rb)
obstack_free (&osDecl, s);
}
else
- d2error (55, rd);
+ d2error (55, rd, NULL);
}
}
if (rd->kind == KNOKD && rd->type != TVARARGS)
- d2error (63, rd);
+ d2error (63, rd, NULL);
if (rd->kind == KARRAY && rd->type == TNOTY)
rd->type = TREAL;
switch (rd->categ)
@@ -1369,12 +1364,12 @@ static sjekkdekl (rb)
if (rd->type == TVARARGS)
{
if (rd->next != NULL)
- d2error (80, rd);
+ d2error (80, rd, NULL);
if (kind != KPROC || rb->quant.categ != CCPROC)
- d2error (81, rd);
+ d2error (81, rd, NULL);
}
if (rd->type == TLABEL && rb->quant.categ == CCPROC)
- d2error (82, rd);
+ d2error (82, rd, NULL);
break;
case CVALUE:
/* Sjekker om lovlig valueoverføring */
@@ -1388,14 +1383,14 @@ static sjekkdekl (rb)
else if (rd->type == TVARARGS)
{
if (rd->next != NULL)
- d2error (80, rd);
+ d2error (80, rd, NULL);
if (kind != KPROC || rb->quant.categ != CCPROC)
- d2error (81, rd);
+ d2error (81, rd, NULL);
}
else
- d2error (57, rd);
+ d2error (57, rd, NULL);
if (rd->type == TLABEL && rb->quant.categ == CCPROC)
- d2error (82, rd);
+ d2error (82, rd, NULL);
break;
case CVAR:
if (rd->type == TREF && (rd->kind == KSIMPLE | rd->kind == KARRAY))
@@ -1408,27 +1403,27 @@ static sjekkdekl (rb)
d2error (58, rd);*/
if (kind == KPROC && rb->quant.categ == CCPROC &&
(rd->type == TTEXT || rd->type == TREF))
- d2error (77, rd);
+ d2error (77, rd, NULL);
if (rd->type == TVARARGS)
{
if (rd->next != NULL)
- d2error (80, rd);
+ d2error (80, rd, NULL);
if (kind != KPROC || rb->quant.categ != CCPROC)
- d2error (81, rd);
+ d2error (81, rd, NULL);
}
if (rd->type == TLABEL && rb->quant.categ == CCPROC)
- d2error (82, rd);
+ d2error (82, rd, NULL);
break;
case CEXTR:
case CEXTRMAIN:
break;
case CCPROC:
if (rd->type == TREF)
- d2error (78, rd);
+ d2error (78, rd, NULL);
break;
default:
/* ULOVLIG CATEG */
- d2error (59, rd);
+ d2error (59, rd, NULL);
}
}
if (rb->quant.kind == KCLASS || rb->quant.kind == KPRBLK)
@@ -1474,7 +1469,7 @@ static sjekkdekl (rb)
va->protected == TRUE; va = va->next);
if (va != vc)
{
- d2error (60, vc);
+ d2error (60, vc, NULL);
while (va->next != vc)
va = va->next;
va->next = vc->next;
@@ -1485,7 +1480,7 @@ static sjekkdekl (rb)
/* Sjekker om det er lovlig virtuell */
if (vc->kind != KPROC && vc->type != TLABEL)
{
- d2error (61, vc);
+ d2error (61, vc, NULL);
vc->type = TERROR;
vc->kind = KERROR;
}
@@ -1560,7 +1555,7 @@ static sjekkdekl (rb)
vc->prefqual = va->prefqual;
}
else
- d2error (62, va);
+ d2error (62, va, NULL);
}
else if (vc->match == vc)
vc->match = NULL;
@@ -1573,11 +1568,11 @@ static sjekkdekl (rb)
rdx = findLocal (rd->ident, &rb->quant, TRUE);
if (rdx->categ == CNEW)
{
- d2error (74, rd);
+ d2error (74, rd, NULL);
rdx->categ = CERROR;
}
else if (rd->categ != CHIDEN && rdx->encl != rb)
- d2error (75, rd);
+ d2error (75, rd, NULL);
else if (rd->categ != CHIDEN && rdx->categ == CVIRT)
{
if (rb->quant.plev == 0)
@@ -1587,7 +1582,7 @@ static sjekkdekl (rb)
else
vno = rb->quant.prefqual->descr->navirtlab;
if (rdx->virtno <= vno)
- d2error (75, rd);
+ d2error (75, rd, NULL);
else
rd->match = rdx;
}
@@ -1607,7 +1602,7 @@ static sjekkdekl (rb)
for (rd = rb->hiprot; rd != NULL; rd = rd->next)
if (rd->categ == CHIDEN && rd->match != NULL &&
rd->match->protected == FALSE)
- d2error (76, rd);
+ d2error (76, rd, NULL);
}
}
@@ -1710,7 +1705,7 @@ reginsp (rb, rd) struct BLOCK *rb; struc
{
if (rd == NULL)
{
- d2error (73, &rb->quant);
+ d2error (73, &rb->quant, NULL);
rd = findGlobal (tag ("Noqual"), FALSE);
rd->categ = CERROR;
}
@@ -1755,7 +1750,7 @@ regThis (ident)
if (rd->ident == ident)
{
if (rd->descr->thisused == MAYBEE)
- d2error (72, rd);
+ d2error (72, rd, NULL);
rd->descr->thisused |= TRUE;
#ifdef DEBUG
if (option_input)
@@ -1776,7 +1771,7 @@ regThis (ident)
if (option_input)
printf ("---end\n");
#endif
- d2error (79, rd = findGlobal (ident, FALSE));
+ d2error (79, rd = findGlobal (ident, FALSE), NULL);
return (rd);
}
Reference in New Issue View Git Blame Copy Permalink