Delinted a bit

diff --git a/lang/pc/comp/LLlex.c b/lang/pc/comp/LLlex.c
index 9186e90..9648723 100644 (file)
--- a/lang/pc/comp/LLlex.c
+++ b/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 */
 

diff --git a/lang/pc/comp/chk_expr.c b/lang/pc/comp/chk_expr.c
index 834aa49..e42b7d2 100644 (file)
--- a/lang/pc/comp/chk_expr.c
+++ b/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);

diff --git a/lang/pc/comp/desig.c b/lang/pc/comp/desig.c
index 8d665a8..a996aef 100644 (file)
--- a/lang/pc/comp/desig.c
+++ b/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;
                }

diff --git a/lang/pc/comp/readwrite.c b/lang/pc/comp/readwrite.c
index c2a41de..8b32995 100644 (file)
--- a/lang/pc/comp/readwrite.c
+++ b/lang/pc/comp/readwrite.c
@@ -16,6 +16,8 @@
 /* DEBUG */
 #include       "idf.h"
 
+extern char    *sprint();
+
 ChkRead(arg)
        register struct node *arg;
 {

diff --git a/lang/pc/comp/type.c b/lang/pc/comp/type.c
index 497efe8..6526860 100644 (file)
--- a/lang/pc/comp/type.c
+++ b/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 */