Bladeren bron

Delinted a bit

ceriel 33 jaren geleden
bovenliggende
commit
831b8ab578
5 gewijzigde bestanden met toevoegingen van 9 en 7 verwijderingen
  1. 0 1
      lang/pc/comp/LLlex.c
  2. 2 1
      lang/pc/comp/chk_expr.c
  3. 4 4
      lang/pc/comp/desig.c
  4. 2 0
      lang/pc/comp/readwrite.c
  5. 1 1
      lang/pc/comp/type.c

+ 0 - 1
lang/pc/comp/LLlex.c

@@ -36,7 +36,6 @@ struct type	*toktype,
 		*asidetype;
 
 static int	eofseen;
-extern int	in_compound;
 
 int tokenseen = 0;	/* Some comment-options must precede any program text */
 

+ 2 - 1
lang/pc/comp/chk_expr.c

@@ -403,7 +403,8 @@ ChkBinOper(expp)
 	left = expp->nd_left;
 	right = expp->nd_right;
 
-	retval = ChkExpression(left) & ChkExpression(right);
+	retval = ChkExpression(left);
+	retval &= ChkExpression(right);
 
 	MarkUsed(left);
 	MarkUsed(right);

+ 4 - 4
lang/pc/comp/desig.c

@@ -157,7 +157,7 @@ CodeValue(ds, tp)
 		in "ds"
 	*/
 	arith size = ds->dsg_packed ? tp->tp_psize : tp->tp_size;
-	int align = ds->dsg_packed ? tp->tp_palign : tp->tp_align;
+	int algn = ds->dsg_packed ? tp->tp_palign : tp->tp_align;
 
 	switch( ds->dsg_kind )	{
 	case DSG_LOADED:
@@ -182,7 +182,7 @@ CodeValue(ds, tp)
 		/* Fall through */
 	case DSG_PLOADED:
 	case DSG_PFIXED:
-		if( properly(ds, size, align) )	{
+		if( properly(ds, size, algn) )	{
 			CodeAddress(ds);
 			C_loi(size);
 			break;
@@ -217,7 +217,7 @@ CodeStore(ds, tp)
 	*/
 	struct desig save;
 	arith size = ds->dsg_packed ? tp->tp_psize : tp->tp_size;
-	int align = ds->dsg_packed ? tp->tp_palign : tp->tp_align;
+	int algn = ds->dsg_packed ? tp->tp_palign : tp->tp_align;
 
 	save = *ds;
 	
@@ -242,7 +242,7 @@ CodeStore(ds, tp)
 	case DSG_PLOADED:
 	case DSG_PFIXED:
 		CodeAddress(&save);
-		if( properly(ds, size, align) )	{
+		if( properly(ds, size, algn) )	{
 			C_sti(size);
 			break;
 		}

+ 2 - 0
lang/pc/comp/readwrite.c

@@ -16,6 +16,8 @@
 /* DEBUG */
 #include	"idf.h"
 
+extern char	*sprint();
+
 ChkRead(arg)
 	register struct node *arg;
 {

+ 1 - 1
lang/pc/comp/type.c

@@ -514,7 +514,7 @@ chk_forw_types()
 		    if( df->df_kind == D_FORWTYPE )	{
 			/* forward type not in this scope declared */
 			register struct scopelist *scl = nextvisible(CurrVis);
-			struct def *df1;
+			struct def *df1 = 0;
 
 			while( scl )	{
 				/* look in enclosing scopes */