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

* m68k/cgcpu.pas, tcg68k.a_load_ref_reg:

Browse Source 
"sign_extend" expects the old size, not the new size. This fixes the handling of "InOutRes" which is a Word...

git-svn-id: trunk@22840 -
This commit is contained in:
svenbarth 2012-10-24 05:01:27 +00:00
parent 5e1e42ec2b
commit 842bb90283
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/m68k/cgcpu.pas
View File

@ -783,7 +783,7 @@ unit cgcpu;
fixref(list,href);
list.concat(taicpu.op_ref_reg(A_MOVE,TCGSize2OpSize[fromsize],href,register));
{ extend the value in the register }
sign_extend(list, tosize, register);
sign_extend(list, fromsize, register);
end;