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

* fixed conversion of LOC_JUMP in location_force_reg() for C-style booleans

Browse Source 
(usually these are never LOC_JUMP, but it happens for LLVM)

git-svn-id: trunk@33941 -
This commit is contained in:
Jonas Maebe 2016-06-09 22:00:07 +00:00
parent b76539a049
commit d5e5ca0531
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/hlcgobj.pas
View File

@ -3934,7 +3934,10 @@ implementation
LOC_JUMP :
begin
a_label(list,l.truelabel);
a_load_const_reg(list,dst_size,1,hregister);
if is_cbool(src_size) then
a_load_const_reg(list,dst_size,-1,hregister)
else
a_load_const_reg(list,dst_size,1,hregister);
current_asmdata.getjumplabel(hl);
a_jmp_always(list,hl);
a_label(list,l.falselabel);