Fixes involving floating point constants and debugger support

1991-11-01 10:15:15 +00:00
parent e7b04c5d38
commit b0c766a907
7 changed files with 19 additions and 22 deletions
--- a/lang/pc/comp/expression.g
+++ b/lang/pc/comp/expression.g
@@ -45,8 +45,7 @@ Sign(register struct node **pnd;):

 UnsignedNumber(register struct node **pnd;):
 	[INTEGER | REAL]	{ *pnd = MkLeaf(Value, &dot);
-				  if( ((*pnd)->nd_type = toktype) == real_type )
-					RomReal(*pnd);
+				  (*pnd)->nd_type = toktype;
 				}
 ;