paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 07:19:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* don't "and" loaded unsigned values of 1/2 bytes with 255/65535 in case

Browse Source 
their upper bound is lower than 127/32767: not necessary, and in case
    of booleans not even allowed for Dalvik (because the "and" operation
    turns the boolean into an integer as far as Dalvik is concerned)

git-svn-id: branches/jvmbackend@19825 -
This commit is contained in:
Jonas Maebe 2011-12-11 17:25:58 +00:00
parent c61e9a2f04
commit 764502fbe4
1 changed files with 15 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
compiler/jvm/hlcgcpu.pas
View File

@ -1848,10 +1848,13 @@ implementation
{ erase sign extension for byte/smallint loads }
if (def2regtyp(def)=R_INTREGISTER) and
not is_signed(def) and
(def.typ=orddef) and
not is_widechar(def) then
case def.size of
1: finishandval:=255;
2: finishandval:=65535;
1: if (torddef(def).high>127) then
finishandval:=255;
2: if (torddef(def).high>32767) then
finishandval:=65535;
end;
end
else
@ -1891,7 +1894,9 @@ implementation
1:
begin
result:=a_baload;
if not is_signed(def) then
if not is_signed(def) and
(def.typ=orddef) and
(torddef(def).high>127) then
finishandval:=255;
end;
2:
@ -1904,7 +1909,9 @@ implementation
{ if we'd treat arrays of word as "array of widechar" we
could use a_caload, but that would make for even more
awkward interfacing with external Java code }
if not is_signed(def) then
if not is_signed(def) and
(def.typ=orddef) and
(torddef(def).high>32767) then
finishandval:=65535;
end;
end;
@ -2018,10 +2025,10 @@ implementation
((tcgsize2size[fromcgsize]=tcgsize2size[tocgsize]) and
(fromcgsize<>tocgsize)) or
{ needs to mask out the sign in the top 16 bits }
(((fromcgsize=OS_S8) and
(tocgsize=OS_16)) or
((tosize=cwidechartype) and
(fromsize<>cwidechartype)))) then
((fromcgsize=OS_S8) and
(tocgsize=OS_16)) or
((tosize=cwidechartype) and
(fromsize<>cwidechartype))) then
case tocgsize of
OS_8:
a_op_const_stack(list,OP_AND,s32inttype,255);