paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-05-30 16:02:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed operation size of comparison with maximum legal value in

Browse Source 
tcginnode.passs_generate_code

git-svn-id: trunk@32522 -
This commit is contained in:
Jonas Maebe 2015-11-24 20:10:42 +00:00
parent 1d460eebc1
commit 2ad8bc3b27
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ncgset.pas
View File

@ -449,7 +449,7 @@ implementation
current_asmdata.getjumplabel(l2);
needslabel := True;
hlcg.a_cmp_const_reg_label(current_asmdata.CurrAsmList, left.resultdef, OC_BE, tsetdef(right.resultdef).setmax-tsetdef(right.resultdef).setbase, pleftreg, l);
hlcg.a_cmp_const_reg_label(current_asmdata.CurrAsmList, opdef, OC_BE, tsetdef(right.resultdef).setmax-tsetdef(right.resultdef).setbase, pleftreg, l);
hlcg.a_load_const_reg(current_asmdata.CurrAsmList, uopdef, 0, location.register);
hlcg.a_jmp_always(current_asmdata.CurrAsmList, l2);