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

* Fixed Internal error 2003042401 in tw7379 for ARM CPU.

Browse Source 
git-svn-id: trunk@5963 -
This commit is contained in:
yury 2007-01-14 01:15:22 +00:00
parent 3c10856a4f
commit 36ea8ec683
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/arm/narmmat.pas
View File

@ -86,7 +86,8 @@ implementation
location_copy(location,left.location); location_copy(location,left.location);
inverse_flags(location.resflags); inverse_flags(location.resflags);
end; end;
LOC_REGISTER,LOC_CREGISTER,LOC_REFERENCE,LOC_CREFERENCE : LOC_REGISTER,LOC_CREGISTER,LOC_REFERENCE,LOC_CREFERENCE,
LOC_SUBSETREG,LOC_CSUBSETREG,LOC_SUBSETREF,LOC_CSUBSETREF :
begin begin
location_force_reg(current_asmdata.CurrAsmList,left.location,def_cgsize(left.resultdef),true); location_force_reg(current_asmdata.CurrAsmList,left.location,def_cgsize(left.resultdef),true);
current_asmdata.CurrAsmList.concat(taicpu.op_reg_const(A_CMP,left.location.register,0)); current_asmdata.CurrAsmList.concat(taicpu.op_reg_const(A_CMP,left.location.register,0));