Added support for constant floating point expressions

1989-12-19 09:40:25 +00:00
parent fe14fd11f4
commit 0c690061b3
13 changed files with 243 additions and 29 deletions
--- a/lang/m2/comp/LLmessage.c
+++ b/lang/m2/comp/LLmessage.c
@@ -55,7 +55,9 @@ LLmessage(tk)
 			dotp->TOK_INT = 1;
 			break;
 		case REAL:
-			dotp->TOK_REL = Salloc("0.0", 4);
+			dotp->tk_data.tk_real = new_real();
+			dotp->TOK_REAL = Salloc("0.0", 4);
+			flt_str2flt(dotp->TOK_REAL, &dotp->TOK_RVAL);
 			break;
 		}
 	}