X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?p=rmac;a=blobdiff_plain;f=token.c;h=f1f88caec4b81fa921993566eb4a8a3084fa49b7;hp=9754f4e4220750a0b0e92886eb414a60ace3bb8d;hb=29b32d134bc12831a8ddd098bf9aeeda26dcfe7c;hpb=c2caacfdc844e2f8b5d05b0699fbacc04b4ce8ea

diff --git a/token.c b/token.c
index 9754f4e..f1f88ca 100644
--- a/token.c
+++ b/token.c
@@ -1600,19 +1600,8 @@ dostring:
 				else if ((int)chrtab[*(ln + 1)] & DIGIT)
 				{
 					// Hey, more digits after the dot, so we assume it's a
-					// floating point number of some kind
-#if 0
-					double fract = 10;
-					ln++;
-					f = (double)v;
-
-					while ((int)chrtab[*ln] & DIGIT)
-					{
-						f = f + (double)(*ln++ - '0') / fract;
-						fract *= 10;
-					}
-#else
-					// Here we parse the whole floating point number
+					// floating point number of some kind... numEnd will point
+					// to the first non-float character after it's done
 					char * numEnd;
 					errno = 0;
 					double f = strtod(numStart, &numEnd);
@@ -1620,11 +1609,14 @@ dostring:
 
 					if (errno != 0)
 						return error("floating point parse error");
-#endif
 
+					// N.B.: We use the C compiler's internal double
+					//       representation for all internal float calcs and
+					//       are reasonably sure that the size of said double
+					//       is 8 bytes long (which we check for in fltpoint.c)
 					*tk.u32++ = FCONST;
-// Shamus: Well, this is all kinds of icky--not the least of which is that unlike uintNN_t types, we have no guarantees of any kind when it comes to the size of floating point numbers in C (as far as I know of). If there is, we need to use those kinds here, or else figure out at runtime what sizes we're dealing with and act accordingly. To be fair, this is OK as long as the double type is less than 64 bits wide, but again, there's no guarantee that it isn't. :-/
-					*tk.u64++ = f;
+					*tk.dp = f;
+					tk.u64++;
 					continue;
 				}
 			}
@@ -1727,6 +1719,8 @@ void DumpToken(TOKEN t)
 		printf("[COLON]");
 	else if (t == CONST)
 		printf("[CONST]");
+	else if (t == FCONST)
+		printf("[FCONST]");
 	else if (t == ACONST)
 		printf("[ACONST]");
 	else if (t == STRING)
@@ -1815,6 +1809,13 @@ void DumpTokenBuffer(void)
 			printf("[CONST: $%lX]", *tp.u64);
 			t += 2;
 		}
+		else if (*t == FCONST)
+		{
+			PTR tp;
+			tp.u32 = t + 1;
+			printf("[FCONST: $%lX]", *tp.u64);
+			t += 2;
+		}
 		else if (*t == ACONST)
 		{
 			printf("[ACONST: $%X, $%X]", (uint32_t)t[1], (uint32_t)t[2]);