date and time created 82/02/02 23:09:47 by mckusick

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

diff --git a/usr/src/usr.bin/pascal/libpc/DISPOSE.c b/usr/src/usr.bin/pascal/libpc/DISPOSE.c
index 90a9c43..ce55404 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/DISPOSE.c
+++ b/usr/src/usr.bin/pascal/libpc/DISPOSE.c
@@ -1,16 +1,17 @@
 /* Copyright (c) 1979 Regents of the University of California */
 
 /* Copyright (c) 1979 Regents of the University of California */
 

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

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

-#include       "h01errs.h"

 
 

-DISPOSE(var, size)
+DISPOSE(var, siz)

        register char   **var;  /* pointer to pointer being deallocated */
        register char   **var;  /* pointer to pointer being deallocated */

-       int             size;   /* sizeof(bletch) */
+       long            siz;    /* sizeof(bletch) */

 {
 {

+       register int size = siz;
+

        if (*var == 0 || *var + size > _maxptr || *var < _minptr) {
        if (*var == 0 || *var + size > _maxptr || *var < _minptr) {

-               ERROR(ENILPTR,0);
+               ERROR("Pointer value out of legal range\n", 0);

                return;
        }
        free(*var);
                return;
        }
        free(*var);