changed "printreal" to "prtreal" for 7-character name compatibility

SCCS-vsn: usr.bin/pascal/pdx/sym/printval.c 1.6

diff --git a/usr/src/usr.bin/pascal/pdx/sym/printval.c b/usr/src/usr.bin/pascal/pdx/sym/printval.c
index 8b463f0..e9c7a5b 100644 (file)
--- a/usr/src/usr.bin/pascal/pdx/sym/printval.c
+++ b/usr/src/usr.bin/pascal/pdx/sym/printval.c
@@ -1,6 +1,6 @@
 /* Copyright (c) 1982 Regents of the University of California */
 
 /* Copyright (c) 1982 Regents of the University of California */
 

-static char sccsid[] = "@(#)printval.c 1.5 %G%";
+static char sccsid[] = "@(#)printval.c 1.6 %G%";

 
 /*
  * Print out the value at the top of the stack using the given type.
 
 /*
  * Print out the value at the top of the stack using the given type.


@@ -49,7 +49,7 @@ SYM *s;
 
        case RANGE:
            if (s == t_real) {
 
        case RANGE:
            if (s == t_real) {

-               printreal(pop(double));
+               prtreal(pop(double));

            } else if (s == t_char) {
                printf("'%c'", pop(char));
            } else if (s == t_boolean) {
            } else if (s == t_char) {
                printf("'%c'", pop(char));
            } else if (s == t_boolean) {


@@ -196,7 +196,7 @@ SYM *a;
  * from "%g" in printf.
  */
 
  * from "%g" in printf.
  */
 

-LOCAL printreal(r)
+LOCAL prtreal(r)

 double r;
 {
     extern char *index();
 double r;
 {
     extern char *index();