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

Fix off by 8 error.

Browse Source 
git-svn-id: trunk@30393 -
This commit is contained in:
Jeppe Johansen 2015-03-30 12:03:18 +00:00
parent 7fe4b13248
commit 8c105d4c97
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/avr/cgcpu.pas
View File

@ -322,10 +322,10 @@ unit cgcpu;
internalerror(2014011105); internalerror(2014011105);
case hp^.loc of case hp^.loc of
LOC_REGISTER,LOC_CREGISTER: LOC_REGISTER,LOC_CREGISTER:
a_load_const_reg(list,hp^.size,(a shr (i-1)) and $ff,hp^.register); a_load_const_reg(list,hp^.size,(a shr (8*(i-1))) and $ff,hp^.register);
LOC_REFERENCE,LOC_CREFERENCE: LOC_REFERENCE,LOC_CREFERENCE:
begin begin
list.concat(taicpu.op_const(A_PUSH,(a shr (i-1)) and $ff)); list.concat(taicpu.op_const(A_PUSH,(a shr (8*(i-1))) and $ff));
end; end;
else else
internalerror(2002071004); internalerror(2002071004);