Promote to floats whenever integer overflow occurs.

3 files changed, 66 insertions, 18 deletions

diff --git a/dimension/common.prologue b/dimension/common.prologue
index 8bbeaea..d79d194 100644
--- a/dimension/common.prologue
+++ b/dimension/common.prologue
@@ -22,6 +22,7 @@
 #include "parse.h"
 #include "tokenize.h"
 #include "utility.h"
+#include <errno.h>
 #include <stdlib.h>
 #include <stdio.h>
 
diff --git a/dimension/common.rules b/dimension/common.rules
index f4ce31f..b4cf631 100644
--- a/dimension/common.rules
+++ b/dimension/common.rules
@@ -726,16 +726,14 @@ INT: FLOAT {
 ;
 
 FLOAT_LITERAL: "integer" {
-               $$ = dmnsn_new_astnode(DMNSN_AST_INTEGER, @$);
-               $$.ptr = dmnsn_malloc(sizeof(long));
-               *(long *)$$.ptr = strtol($1, NULL, 0);
-               dmnsn_free($1);
+               dmnsn_astnode string = dmnsn_new_astnode(DMNSN_AST_STRING, @$);
+               string.ptr = $1;
+               $$ = dmnsn_new_astnode1(DMNSN_AST_VAL, @$, string);
              }
              | "float" {
-               $$ = dmnsn_new_astnode(DMNSN_AST_FLOAT, @$);
-               $$.ptr = dmnsn_malloc(sizeof(double));
-               *(double *)$$.ptr = strtod($1, NULL);
-               dmnsn_free($1);
+               dmnsn_astnode string = dmnsn_new_astnode(DMNSN_AST_STRING, @$);
+               string.ptr = $1;
+               $$ = dmnsn_new_astnode1(DMNSN_AST_VAL, @$, string);
              }
 ;
 
diff --git a/dimension/parse.c b/dimension/parse.c
index 5e6b6b1..f75c466 100644
--- a/dimension/parse.c
+++ b/dimension/parse.c
@@ -19,8 +19,11 @@
 
 #include "parse.h"
 #include "utility.h"
+#include <errno.h>
 #include <fenv.h>
+#include <limits.h>
 #include <math.h>
+#include <stdint.h>
 #include <stdlib.h>
 
 /*
@@ -698,7 +701,11 @@ dmnsn_eval_unary(dmnsn_astnode astnode, dmnsn_symbol_table *symtable)
       break;
 
     case DMNSN_AST_NEGATE:
-      dmnsn_make_ast_integer(&ret, -n);
+      if ((n >= 0 && LONG_MIN + n <= 0) || (n < 0 && LONG_MAX + n >= 0)) {
+        dmnsn_make_ast_integer(&ret, -n);
+      } else {
+        dmnsn_make_ast_float(&ret, -(double)n);
+      }
       break;
 
     case DMNSN_AST_NOT:
@@ -706,7 +713,11 @@ dmnsn_eval_unary(dmnsn_astnode astnode, dmnsn_symbol_table *symtable)
       break;
 
     case DMNSN_AST_ABS:
-      dmnsn_make_ast_integer(&ret, labs(n));
+      if (n >= 0 || LONG_MAX + n >= 0) {
+        dmnsn_make_ast_integer(&ret, labs(n));
+      } else {
+        dmnsn_make_ast_float(&ret, fabs(n));
+      }
       break;
     case DMNSN_AST_ACOS:
       dmnsn_make_ast_float(&ret, acos(n));
@@ -904,14 +915,21 @@ dmnsn_eval_unary(dmnsn_astnode astnode, dmnsn_symbol_table *symtable)
       break;
     case DMNSN_AST_VAL:
       {
+        errno = 0;
         char *endptr;
         long l = strtol(rhs.ptr, &endptr, 0);
-        if (*endptr != '\0' || endptr == rhs.ptr) {
+        if (*endptr != '\0' || endptr == rhs.ptr
+            || (l != 0 && errno == ERANGE))
+        {
+          errno = 0;
           double d = strtod(rhs.ptr, &endptr);
           if (*endptr != '\0' || endptr == rhs.ptr) {
             dmnsn_diagnostic(astnode.location, "invalid numeric string '%s'",
                              (const char *)rhs.ptr);
             ret.type = DMNSN_AST_NONE;
+          } else if (d != 0 && errno == ERANGE) {
+            dmnsn_diagnostic(astnode.location, "float value overflowed");
+            ret.type = DMNSN_AST_NONE;
           } else {
             dmnsn_make_ast_float(&ret, d);
           }
@@ -1313,16 +1331,40 @@ dmnsn_eval_binary(dmnsn_astnode astnode, dmnsn_symbol_table *symtable)
 
     switch (astnode.type) {
     case DMNSN_AST_ADD:
-      dmnsn_make_ast_integer(&ret, l + r);
+      if ((r < 0 && LONG_MIN - r <= l) || (r >= 0 && LONG_MAX - r >= l)) {
+        dmnsn_make_ast_integer(&ret, l + r);
+      } else {
+        dmnsn_make_ast_float(&ret, (double)l + r);
+      }
       break;
     case DMNSN_AST_SUB:
-      dmnsn_make_ast_integer(&ret, l - r);
+      if ((r >= 0 && LONG_MIN + r <= l) || (r < 0 && LONG_MAX + r >= l)) {
+        dmnsn_make_ast_integer(&ret, l - r);
+      } else {
+        dmnsn_make_ast_float(&ret, (double)l - r);
+      }
       break;
     case DMNSN_AST_MUL:
-      dmnsn_make_ast_integer(&ret, l*r);
-      break;
+      {
+#if (ULONG_MAX > 4294967295)
+        __int128_t prod = l;
+#else
+        int64_t prod = l;
+#endif
+        prod *= r;
+        if (prod >= LONG_MIN && prod <= LONG_MAX) {
+          dmnsn_make_ast_integer(&ret, prod);
+        } else {
+          dmnsn_make_ast_float(&ret, prod);
+        }
+        break;
+      }
     case DMNSN_AST_DIV:
-      if (r == 0) {
+      if (r == -1
+          && ((l >= 0 && LONG_MIN + l <= 0) || (l < 0 && LONG_MAX + l >= 0)))
+      {
+        dmnsn_make_ast_float(&ret, -(double)l);
+      } else if (r == 0) {
         dmnsn_diagnostic(astnode.location, "WARNING: division by zero");
         dmnsn_make_ast_float(&ret, (double)l/0.0);
       } else if (l%r == 0) {
@@ -1361,7 +1403,11 @@ dmnsn_eval_binary(dmnsn_astnode astnode, dmnsn_symbol_table *symtable)
       dmnsn_make_ast_float(&ret, atan2(l, r));
       break;
     case DMNSN_AST_INT_DIV:
-      if (r == 0) {
+      if (r == -1
+          && ((l >= 0 && LONG_MIN + l <= 0) || (l < 0 && LONG_MAX + l >= 0)))
+      {
+        dmnsn_make_ast_float(&ret, -(double)l);
+      } else if (r == 0) {
         dmnsn_diagnostic(astnode.location, "WARNING: division by zero");
         dmnsn_make_ast_float(&ret, (double)l/0.0);
       } else {
@@ -1375,7 +1421,10 @@ dmnsn_eval_binary(dmnsn_astnode astnode, dmnsn_symbol_table *symtable)
       dmnsn_make_ast_integer(&ret, l < r ? l : r);
       break;
     case DMNSN_AST_MOD:
-      if (r == 0) {
+      if (r == -1) {
+        /* LONG_MIN % -1 is potentially an overflow */
+        dmnsn_make_ast_integer(&ret, 0);
+      } else if (r == 0) {
         dmnsn_diagnostic(astnode.location, "WARNING: division by zero");
         dmnsn_make_ast_float(&ret, fmod(l, 0.0));
       } else {