BSD 4_3_Tahoe release

[unix-history] / usr / src / ucb / pascal / pdx / tree / assign.c

diff --git a/usr/src/ucb/pascal/pdx/tree/assign.c b/usr/src/ucb/pascal/pdx/tree/assign.c
index 68090f2..092a0c5 100644 (file)
--- a/usr/src/ucb/pascal/pdx/tree/assign.c
+++ b/usr/src/ucb/pascal/pdx/tree/assign.c
@@ -1,6 +1,12 @@
-/* Copyright (c) 1982 Regents of the University of California */
+/*
+ * Copyright (c) 1980 Regents of the University of California.
+ * All rights reserved.  The Berkeley software License Agreement
+ * specifies the terms and conditions for redistribution.
+ */

 
 

-static char sccsid[] = "@(#)assign.c 1.1 1/18/82";
+#ifndef lint
+static char sccsid[] = "@(#)assign.c   5.2 (Berkeley) 4/7/87";
+#endif not lint

 
 /*
  * assign the value of an expression to a variable (or term)
 
 /*
  * assign the value of an expression to a variable (or term)


@@ -11,6 +17,8 @@ static char sccsid[] = "@(#)assign.c 1.1 1/18/82";
 #include "sym.h"
 #include "process.h"
 #include "tree.rep"
 #include "sym.h"
 #include "process.h"
 #include "tree.rep"

+#include "process/process.rep"
+#include "process/pxinfo.h"

 
 assign(var, exp)
 NODE *var;
 
 assign(var, exp)
 NODE *var;


@@ -42,10 +50,17 @@ NODE *exp;
                                break;
 
                        default:
                                break;
 
                        default:

+                               goto othersize;
+                               /*

                                panic("bad size %d", varsize);
                                panic("bad size %d", varsize);

+                               */

                }
        } else {
                }
        } else {

+           othersize:

                sp -= varsize;
                dwrite(sp, addr, varsize);
                sp -= varsize;
                dwrite(sp, addr, varsize);

+#ifdef tahoe
+               downalignstack();
+#endif

        }
 }
        }
 }