X-Git-Url: https://git.subgeniuskitty.com/unix-history/.git/blobdiff_plain/1b2f7152b4e8ef16b7ce4cb9d61e53439fbb09c1..c4e911b65db8d7bedb133fdd231b15c1915fcc60:/usr/src/usr.bin/pascal/src/p2put.c

diff --git a/usr/src/usr.bin/pascal/src/p2put.c b/usr/src/usr.bin/pascal/src/p2put.c
index 5eca62b251..bff16f4aac 100644
--- a/usr/src/usr.bin/pascal/src/p2put.c
+++ b/usr/src/usr.bin/pascal/src/p2put.c
@@ -1,6 +1,6 @@
 /* Copyright (c) 1979 Regents of the University of California */
 
-static	char sccsid[] = "@(#)p2put.c 1.1 %G%";
+static	char sccsid[] = "@(#)p2put.c 1.2 %G%";
 
     /*
      *	functions to help pi put out
@@ -452,6 +452,13 @@ p2type( np )
 		     * which return integers (whether you look at them or not)
 		     */
 		return ADDTYPE( ADDTYPE( P2INT , P2FTN ) , P2PTR );
+	    case FFUNC :
+	    case FPROC :
+		    /*
+		     *	formal procedures and functions are pointers
+		     *	to structures which describe their environment.
+		     */
+		return ADDTYPE( P2PTR , P2STRTY );
 	    default :
 		fprintf( stderr , "[p2type] np -> class %d\n" , np -> class );
 		panic( "p2type" );