paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-01 22:53:09 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed tcgarm.a_load_ref_reg to load word values from location with alignment 2 using unaligned load.

Browse Source 
git-svn-id: trunk@10754 -
This commit is contained in:
yury 2008-04-22 08:46:19 +00:00
parent adaeb0fc73
commit 88597d23c5
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/arm/cgcpu.pas
View File

@ -877,7 +877,7 @@ unit cgcpu;
else
InternalError(200308297);
end;
if (ref.alignment in [1,2]) and (ref.alignment<tcgsize2size[tosize]) then
if (ref.alignment in [1,2]) and (ref.alignment<tcgsize2size[fromsize]) then
begin
if target_info.endian=endian_big then
dir:=-1
@ -1036,7 +1036,7 @@ unit cgcpu;
instr: taicpu;
conv_done: boolean;
begin
if (tcgsize2size[fromsize]>32) or (tcgsize2size[tosize]>32) then
if (tcgsize2size[fromsize]>32) or (tcgsize2size[tosize]>32) or (fromsize=OS_NO) or (tosize=OS_NO) then
internalerror(2002090901);
conv_done:=false;