#1590

- Correct truncation on 64-bit platforms


git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@9653 f25d12d1-65f4-0310-ae8a-bbce733d8d8e

Author: sjoelund

Parser/Modelica.g

@@ -984,11 +984,13 @@ primary returns [void* ast] @declarations {
         if (((long)1<<(RML_SIZE_INT*8-2))-1 >= l) {
           $ast = Absyn__INTEGER(RML_IMMEDIATE(RML_TAGFIXNUM(l))); /* We can't use mk_icon here - it takes "int"; not "long" */
         } else {
-          if (l > ((long)1<<30)-1) {
-            c_add_source_message(2, "SYNTAX", "Warning", "\%s-bit signed integers! Truncating integer: \%s to 1073741823",
+          long lt = ((long)1<<(RML_SIZE_INT == 8 ? 62 : 30))-1;
+          if (l > lt) {
+            const char *msg = RML_SIZE_INT != 8 ? "\%s-bit signed integers! Truncating integer: \%s to 1073741823" : "\%s-bit signed integers! Truncating integer: \%s to 4611686018427387903";
+            c_add_source_message(2, "SYNTAX", "Warning", msg,
                                  args, 2, $start->line, $start->charPosition+1, LT(1)->line, LT(1)->charPosition+1,
                                  ModelicaParser_readonly, ModelicaParser_filename_C);
-            $ast = Absyn__INTEGER(mk_icon(1073741823));
+            $ast = Absyn__INTEGER(RML_IMMEDIATE(RML_TAGFIXNUM(lt)));
           } else {
             $ast = Absyn__REAL(mk_rcon((double)l));
           }