last few day's work

[unix-history] / usr / src / usr.bin / pascal / libpc / NIL.c

diff --git a/usr/src/usr.bin/pascal/libpc/NIL.c b/usr/src/usr.bin/pascal/libpc/NIL.c
index 3624050..dfbf6f9 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/NIL.c
+++ b/usr/src/usr.bin/pascal/libpc/NIL.c
@@ -1,17 +1,17 @@
 /* Copyright (c) 1979 Regents of the University of California */
 
 /* Copyright (c) 1979 Regents of the University of California */
 

-static char sccsid[] = "@(#)NIL.c 1.1 %G%";
+static char sccsid[] = "@(#)NIL.c 1.3 %G%";

 
 #include "h00vars.h"
 
 #include "h00vars.h"

-#include "h01errs.h"
+
+char ENIL[] = "Pointer value out of legal range\n";

 
 char *
 NIL(ptr)
 
 char *
 NIL(ptr)

-

        char    *ptr;           /* pointer to struct */
 {
        if (ptr > _maxptr || ptr < _minptr) {
        char    *ptr;           /* pointer to struct */
 {
        if (ptr > _maxptr || ptr < _minptr) {

-               ERROR(ENILPTR, 0);
+               ERROR(ENIL, 0);

                return;
        }
        return ptr;
                return;
        }
        return ptr;