Преглед на файлове

* always write constant values as signed values, since the JVM does not support
unsigned values (and Jasmin therefore extends them to the next larger size
if they become too big)

git-svn-id: branches/jvmbackend@18686 -

Jonas Maebe преди 14 години
родител
ревизия
b8286c729a
променени са 1 файла, в които са добавени 7 реда и са изтрити 2 реда
  1. 7 2
      compiler/agjasmin.pas

+ 7 - 2
compiler/agjasmin.pas

@@ -735,8 +735,13 @@ implementation
         case csym.consttyp of
           constord:
             { always interpret as signed value, because the JVM does not
-              support unsigned 64 bit values }
-            result:=tostr(csym.value.valueord.svalue);
+              support unsigned values }
+            case csym.constdef.size of
+              1:result:=tostr(shortint(csym.value.valueord.svalue));
+              2:result:=tostr(smallint(csym.value.valueord.svalue));
+              4:result:=tostr(longint(csym.value.valueord.svalue));
+              8:result:=tostr(csym.value.valueord.svalue);
+            end;
           conststring:
             result:=constastr(pchar(csym.value.valueptr),csym.value.len);
           constreal: