Ver Fonte

* 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 há 14 anos atrás
pai
commit
b8286c729a
1 ficheiros alterados com 7 adições e 2 exclusões
  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: