Implement formal functions and procedures

[unix-history] / usr / src / usr.bin / pascal / src / 0.h

diff --git a/usr/src/usr.bin/pascal/src/0.h b/usr/src/usr.bin/pascal/src/0.h
index b5e7990..ba3faef 100644 (file)
--- a/usr/src/usr.bin/pascal/src/0.h
+++ b/usr/src/usr.bin/pascal/src/0.h
@@ -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[] = "@(#)0.h 1.2 %G%"; */
+/* static      char sccsid[] = "@(#)0.h 1.3 %G%"; */

 
 #define DEBUG
 #define        CHAR
 
 #define DEBUG
 #define        CHAR


@@ -362,6 +362,8 @@ struct {
 #define        PROG    20
 #define        IMPROPER 21
 #define        VARNT   22
 #define        PROG    20
 #define        IMPROPER 21
 #define        VARNT   22

+#define        FPROC   23
+#define        FFUNC   24

 
 /*
  * Clnames points to an array of names for the
 
 /*
  * Clnames points to an array of names for the