added PDX constant

[unix-history] / usr / src / usr.bin / pascal / px / utilities.c

diff --git a/usr/src/usr.bin/pascal/px/utilities.c b/usr/src/usr.bin/pascal/px/utilities.c
index 0a5fe69..a94a576 100644 (file)
--- a/usr/src/usr.bin/pascal/px/utilities.c
+++ b/usr/src/usr.bin/pascal/px/utilities.c
@@ -1,7 +1,8 @@
 /* Copyright (c) 1979 Regents of the University of California */
 
 /* Copyright (c) 1979 Regents of the University of California */
 

-static char sccsid[] = "@(#)utilities.c 1.2 %G%";
+static char sccsid[] = "@(#)utilities.c 1.4 %G%";

 
 

+#include       "whoami.h"

 #include       "vars.h"
 #include       "panics.h"
 #include       "h02opcs.h"
 #include       "vars.h"
 #include       "panics.h"
 #include       "h02opcs.h"


@@ -62,7 +63,7 @@ skipprof:
 }
 \f
 backtrace(errnum)
 }
 \f
 backtrace(errnum)

-       long    errnum;
+       int     errnum;

 {
        register struct disp *mydp;
        register struct stack *ap;
 {
        register struct disp *mydp;
        register struct stack *ap;


@@ -87,8 +88,8 @@ backtrace(errnum)
                ap = mydp->stp;
                i = linum - (((ap)->entry)->offset & 0177777);
                fprintf(stderr,"%s\"",(ap->entry)->name);
                ap = mydp->stp;
                i = linum - (((ap)->entry)->offset & 0177777);
                fprintf(stderr,"%s\"",(ap->entry)->name);

-               if (_nodump == 0)
-                       fprintf(stderr,"+%1d near line %1d.",i,linum);
+               if (_nodump == FALSE)
+                       fprintf(stderr,"+%D near line %D.",i,linum);

                fputc('\n',stderr);
                *mydp = (ap)->odisp;
                if (mydp <= &_display.frame[1]){
                fputc('\n',stderr);
                *mydp = (ap)->odisp;
                if (mydp <= &_display.frame[1]){


@@ -103,7 +104,7 @@ backtrace(errnum)
 \f
 psexit(code)
 
 \f
 psexit(code)
 

-       long    code;
+       int     code;

 {
        if (_pcpcount != 0)
                PMFLUSH(_cntrs, _rtns, _pcpcount);
 {
        if (_pcpcount != 0)
                PMFLUSH(_cntrs, _rtns, _pcpcount);