paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-12 23:33:04 +01:00
Code Issues Packages Projects Releases Wiki Activity

* no need to zero-extend after a load of a widechar

Browse Source 
git-svn-id: branches/jvmbackend@18813 -
This commit is contained in:
Jonas Maebe 2011-08-23 15:26:01 +00:00
parent c07c633b6a
commit 54f9947406
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/jvm/hlcgcpu.pas
View File

@ -1797,7 +1797,8 @@ implementation
finishandval:=-1;
{ erase sign extension for byte/smallint loads }
if (def2regtyp(def)=R_INTREGISTER) and
not is_signed(def) then
not is_signed(def) and
not is_widechar(def) then
case def.size of
1: finishandval:=255;
2: finishandval:=65535;