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

* fixed potentially wrong operation size in tgppccasenode.genlinearlist()

Browse Source 
(was in practice currently probably always correct though)

git-svn-id: trunk@16737 -
This commit is contained in:
Jonas Maebe 2011-01-08 14:20:25 +00:00
parent faeb80b55c
commit a40fe9c078
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/ppcgen/ngppcset.pas
View File

@ -184,7 +184,7 @@ implementation
if t^._low=t^._high then if t^._low=t^._high then
begin begin
if t^._low-last=0 then if t^._low-last=0 then
cg.a_cmp_const_reg_label(current_asmdata.CurrAsmList, opsize, OC_EQ,0,hregister,blocklabel(t^.blockid)) cg.a_cmp_const_reg_label(current_asmdata.CurrAsmList,OS_INT,OC_EQ,0,hregister,blocklabel(t^.blockid))
else else
gensub(longint(int64(t^._low-last))); gensub(longint(int64(t^._low-last)));
tcgppc(cg).a_jmp_cond(current_asmdata.CurrAsmList,OC_EQ,blocklabel(t^.blockid)); tcgppc(cg).a_jmp_cond(current_asmdata.CurrAsmList,OC_EQ,blocklabel(t^.blockid));