BSD 4_2 release

[unix-history] / usr / src / ucb / pascal / src / rval.c

diff --git a/usr/src/ucb/pascal/src/rval.c b/usr/src/ucb/pascal/src/rval.c
index 5d077cd..7109c7b 100644 (file)
--- a/usr/src/ucb/pascal/src/rval.c
+++ b/usr/src/ucb/pascal/src/rval.c
@@ -1,6 +1,6 @@
 /* Copyright (c) 1979 Regents of the University of California */
 
 /* Copyright (c) 1979 Regents of the University of California */
 

-static char sccsid[] = "@(#)rval.c 1.16 2/28/83";
+static char sccsid[] = "@(#)rval.c 1.17 10/30/83";

 
 #include "whoami.h"
 #include "0.h"
 
 #include "whoami.h"
 #include "0.h"


@@ -843,6 +843,8 @@ cstrng:
                                        error("%s not allowed on pointers - only allow = and <>" , opname );
                                        return (NIL);
                                }
                                        error("%s not allowed on pointers - only allow = and <>" , opname );
                                        return (NIL);
                                }

+                               if (p != nl+TNIL && p1 != nl+TNIL && p != p1)
+                                       goto nonident;

                                break;
                        case TSTR:
                                if (c1 != TSTR)
                                break;
                        case TSTR:
                                if (c1 != TSTR)