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

* typo fixed

Browse Source 
git-svn-id: trunk@20511 -
This commit is contained in:
florian 2012-03-11 08:24:44 +00:00
parent 891d7b9349
commit e84a43768e
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/arm/aoptcpub.pas
View File

@ -124,7 +124,7 @@ Implementation
begin
result:=false;
for i:=0 to taicpu(p1).ops-1 do
if (taicpu(p1).oper[i]^.typ=top_reg) and (taicpu(p1).oper[i]^.reg=REg) and (taicpu(p1).spilling_get_operation_type(i) in [operand_write,operand_readwrite]) then
if (taicpu(p1).oper[i]^.typ=top_reg) and (taicpu(p1).oper[i]^.reg=Reg) and (taicpu(p1).spilling_get_operation_type(i) in [operand_write,operand_readwrite]) then
begin
result:=true;
exit;