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

* fixed for subsetref/subsetreg

Browse Source 
git-svn-id: trunk@4578 -
This commit is contained in:
Jonas Maebe 2006-09-09 09:31:14 +00:00
parent 3a54183ce8
commit 1a8c2f405d
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/x86/nx86set.pas
View File

@ -189,6 +189,8 @@ implementation
if nf_swaped in flags then if nf_swaped in flags then
swapleftright; swapleftright;
if not(left.location.loc in [LOC_REGISTER,LOC_CREGISTER,LOC_REFERENCE,LOC_CREFERENCE]) then
location_force_reg(current_asmdata.CurrAsmList,left.location,OS_INT,true);
if genjumps then if genjumps then
begin begin
{ It gives us advantage to check for the set elements { It gives us advantage to check for the set elements