mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-15 20:29:17 +02:00
+ also handle LOC_FLAGS in tz80notnode.second_boolean
git-svn-id: branches/z80@44993 -
This commit is contained in:
parent
bdd7cfb644
commit
a3ae55081a
@ -58,7 +58,23 @@ implementation
|
|||||||
procedure tz80notnode.second_boolean;
|
procedure tz80notnode.second_boolean;
|
||||||
begin
|
begin
|
||||||
if not handle_locjump then
|
if not handle_locjump then
|
||||||
internalerror(2020042208);
|
begin
|
||||||
|
{ the second pass could change the location of left }
|
||||||
|
{ if it is a register variable, so we've to do }
|
||||||
|
{ this before the case statement }
|
||||||
|
secondpass(left);
|
||||||
|
|
||||||
|
case left.location.loc of
|
||||||
|
LOC_FLAGS :
|
||||||
|
begin
|
||||||
|
location_reset(location,LOC_FLAGS,OS_NO);
|
||||||
|
location.resflags:=left.location.resflags;
|
||||||
|
inverse_flags(location.resflags);
|
||||||
|
end;
|
||||||
|
else
|
||||||
|
internalerror(2020042208);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user