paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-31 22:10:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

* always write constant values as signed values, since the JVM does not support

Browse Source 
unsigned values (and Jasmin therefore extends them to the next larger size
    if they become too big)

git-svn-id: branches/jvmbackend@18686 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:24:34 +00:00
parent 834f8da885
commit b8286c729a
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/agjasmin.pas
View File

@ -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: