mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-15 15:19:25 +02:00
* correctly check left.location instead of left.expectloc when generating
code for not nodes, resolves #30208 git-svn-id: trunk@33906 -
This commit is contained in:
parent
c026dab430
commit
49f63d67b2
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -15115,6 +15115,7 @@ tests/webtbs/tw30166.pp svneol=native#text/plain
|
||||
tests/webtbs/tw30179.pp svneol=native#text/pascal
|
||||
tests/webtbs/tw30202.pp svneol=native#text/pascal
|
||||
tests/webtbs/tw30203.pp svneol=native#text/pascal
|
||||
tests/webtbs/tw30208.pp svneol=native#text/pascal
|
||||
tests/webtbs/tw3023.pp svneol=native#text/plain
|
||||
tests/webtbs/tw3028.pp svneol=native#text/plain
|
||||
tests/webtbs/tw3038.pp svneol=native#text/plain
|
||||
|
@ -242,7 +242,7 @@ interface
|
||||
{ if it is a register variable, so we've to do }
|
||||
{ this before the case statement }
|
||||
secondpass(left);
|
||||
case left.expectloc of
|
||||
case left.location.loc of
|
||||
LOC_FLAGS :
|
||||
begin
|
||||
location_reset(location,LOC_FLAGS,OS_NO);
|
||||
|
11
tests/webtbs/tw30208.pp
Normal file
11
tests/webtbs/tw30208.pp
Normal file
@ -0,0 +1,11 @@
|
||||
var R: bitpacked record
|
||||
A, B: boolean;
|
||||
end;
|
||||
begin
|
||||
R.A := true;
|
||||
R.B := false;
|
||||
if not R.B then
|
||||
writeln('ok')
|
||||
else
|
||||
halt(1);
|
||||
end.
|
Loading…
Reference in New Issue
Block a user