update to split out shared sources

[unix-history] / usr / src / usr.bin / pascal / pxp / fdec.c

diff --git a/usr/src/usr.bin/pascal/pxp/fdec.c b/usr/src/usr.bin/pascal/pxp/fdec.c
index f595f07..39934b9 100644 (file)
--- a/usr/src/usr.bin/pascal/pxp/fdec.c
+++ b/usr/src/usr.bin/pascal/pxp/fdec.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 = "@(#)fdec.c      1.2 (Berkeley) %G%";
+static char *sccsid = "@(#)fdec.c      1.3 (Berkeley) %G%";

 /*
  * pxp - Pascal execution profiler
  *
 /*
  * pxp - Pascal execution profiler
  *


@@ -244,7 +244,9 @@ ppsname(fp)
 segend()
 {
 
 segend()
 {
 

-       error("Missing program statement and program body");
+       if ( profile ) {
+           error("Missing program statement and program body");
+       }

 }
 
 /*
 }
 
 /*