allow writing of pointers to text files

SCCS-vsn: usr.bin/pascal/src/proc.c 1.10

diff --git a/usr/src/usr.bin/pascal/src/proc.c b/usr/src/usr.bin/pascal/src/proc.c
index f67f793..ae1fb3d 100644 (file)
--- a/usr/src/usr.bin/pascal/src/proc.c
+++ b/usr/src/usr.bin/pascal/src/proc.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[] = "@(#)proc.c 1.9 %G%";
+static char sccsid[] = "@(#)proc.c 1.10 %G%";

 
 #include "whoami.h"
 #ifdef OBJ
 
 #include "whoami.h"
 #ifdef OBJ


@@ -342,6 +342,14 @@ proc(r)
                         * the default.
                         */
                        switch (typ) {
                         * the default.
                         */
                        switch (typ) {

+                       case TPTR:
+                               warning();
+                               if (opt('s')) {
+                                       standard();
+                               }
+                               error("Writing %ss to text files is non-standard",
+                                   clnames[typ]);
+                               /* and fall through */

                        case TINT:
                                if (fmt != 'f') {
                                        ap = stkrval(alv, NIL , RREQ );
                        case TINT:
                                if (fmt != 'f') {
                                        ap = stkrval(alv, NIL , RREQ );


@@ -386,7 +394,9 @@ proc(r)
                                if (opt('s')) {
                                        standard();
                                }
                                if (opt('s')) {
                                        standard();
                                }

-                               error("Writing scalars to text files is non-standard");
+                               error("Writing %ss to text files is non-standard",
+                                   clnames[typ]);
+                               /* and fall through */

                        case TBOOL:
                                stkrval(alv, NIL , RREQ );
                                put(2, O_NAM, (long)listnames(ap));
                        case TBOOL:
                                stkrval(alv, NIL , RREQ );
                                put(2, O_NAM, (long)listnames(ap));