paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-08 18:09:39 +01: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

3
compiler/hlcgobj.pas
View File

@ -3934,6 +3934,9 @@ implementation
LOC_JUMP : LOC_JUMP :
begin begin
a_label(list,l.truelabel); a_label(list,l.truelabel);
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); a_load_const_reg(list,dst_size,1,hregister);
current_asmdata.getjumplabel(hl); current_asmdata.getjumplabel(hl);
a_jmp_always(list,hl); a_jmp_always(list,hl);