X-Git-Url: https://git.subgeniuskitty.com/unix-history/.git/blobdiff_plain/2b84abb596f52ab2068d52108adc96838ad4340a..31cef89cb428866f787983e68246030321893df4:/usr/src/cmd/pi/yyget.c

diff --git a/usr/src/cmd/pi/yyget.c b/usr/src/cmd/pi/yyget.c
index 13ca0685b9..f8d5c5c159 100644
--- a/usr/src/cmd/pi/yyget.c
+++ b/usr/src/cmd/pi/yyget.c
@@ -1,19 +1,8 @@
 /* Copyright (c) 1979 Regents of the University of California */
-#
-/*
- * pi - Pascal interpreter code translator
- *
- * Charles Haley, Bill Joy UCB
- * Version 1.1 February 1978
- *
- *
- * pxp - Pascal execution profiler
- *
- * Bill Joy UCB
- * Version 1.1 February 1978
- */
 
-#include "whoami"
+static	char sccsid[] = "@(#)yyget.c 1.1 8/27/80";
+
+#include "whoami.h"
 #include "0.h"
 #include "yy.h"
 
@@ -219,9 +208,9 @@ includ()
  *		pexit(DIED);
  *	}
  */
-	if (!dotted(cp, 'i')) {
+	if ((!dotted(cp, 'i')) && (!dotted(cp, 'h'))) {
 		line = yyline;
-		error("Include filename must end in .i");
+		error("Include filename must end in .i or .h");
 	}
 #ifdef PXP
 	commincl(cp, ch);
@@ -273,6 +262,9 @@ includ()
  *	ibp = cp;
  *
  */
+#	ifdef PC
+	    stabinclude( filename );
+#	endif PC
 	return (1);
 }
 
@@ -337,6 +329,13 @@ uninclud()
 		}
 	} else
 		printed = ip->Printed;
+#	ifdef PC
+	    if ( inclev == 0 ) {
+		stabsource( filename );
+	    } else {
+		stabinclude( filename );
+	    }
+#	endif PC
 	inclev--;
 	return (1);
 }