fixed "a.b" so that type of "a" in generated addition is t_int

SCCS-vsn: usr.bin/pascal/pdx/sym/tree.c 1.3

diff --git a/usr/src/usr.bin/pascal/pdx/sym/tree.c b/usr/src/usr.bin/pascal/pdx/sym/tree.c
index 82e6c6a..87c02d5 100644 (file)
--- a/usr/src/usr.bin/pascal/pdx/sym/tree.c
+++ b/usr/src/usr.bin/pascal/pdx/sym/tree.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[] = "@(#)tree.c 1.2 %G%";
+static char sccsid[] = "@(#)tree.c 1.3 %G%";

 
 /*
  * This module contains the interface between the SYM routines and
 
 /*
  * This module contains the interface between the SYM routines and


@@ -300,6 +300,7 @@ SYM *field;
        p->op = O_ADD;
        p->nodetype = field->type;
        p->left = record;
        p->op = O_ADD;
        p->nodetype = field->type;
        p->left = record;

+       p->left->nodetype = t_int;

        p->right = build(O_LCON, (long) field->symvalue.offset);
     }
     return p;
        p->right = build(O_LCON, (long) field->symvalue.offset);
     }
     return p;