BSD 4_1_snap release

[unix-history] / usr / src / cmd / pi / tree.c

diff --git a/usr/src/cmd/pi/tree.c b/usr/src/cmd/pi/tree.c
index 16f90c3..a3479ed 100644 (file)
--- a/usr/src/cmd/pi/tree.c
+++ b/usr/src/cmd/pi/tree.c
@@ -1,19 +1,8 @@
 /* Copyright (c) 1979 Regents of the University of California */
 /* Copyright (c) 1979 Regents of the University of California */

-#
-/*
- * pi - Pascal interpreter code translator
- *
- * Charles Haley, Bill Joy UCB
- * Version 1.1 February 1978
- *
- *
- * pxp - Pascal execution profiler
- *
- * Bill Joy UCB
- * Version 1.1 February 1978
- */

 
 

-#include "whoami"
+static char sccsid[] = "@(#)tree.c 1.2 11/24/80";
+
+#include "whoami.h"

 #include "0.h"
 
 /*
 #include "0.h"
 
 /*


@@ -117,7 +106,7 @@ tralloc(howmuch)
        if (spacep + howmuch >= tract->tr_high) {
                i = TRINC;
                cp = malloc(i * sizeof ( int ));
        if (spacep + howmuch >= tract->tr_high) {
                i = TRINC;
                cp = malloc(i * sizeof ( int ));

-               if (cp == -1) {
+               if (cp == 0) {

                        yerror("Ran out of memory (tralloc)");
                        pexit(DIED);
                }
                        yerror("Ran out of memory (tralloc)");
                        pexit(DIED);
                }