mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-14 07:29:29 +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/tw30179.pp svneol=native#text/pascal
|
||||||
tests/webtbs/tw30202.pp svneol=native#text/pascal
|
tests/webtbs/tw30202.pp svneol=native#text/pascal
|
||||||
tests/webtbs/tw30203.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/tw3023.pp svneol=native#text/plain
|
||||||
tests/webtbs/tw3028.pp svneol=native#text/plain
|
tests/webtbs/tw3028.pp svneol=native#text/plain
|
||||||
tests/webtbs/tw3038.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 }
|
{ if it is a register variable, so we've to do }
|
||||||
{ this before the case statement }
|
{ this before the case statement }
|
||||||
secondpass(left);
|
secondpass(left);
|
||||||
case left.expectloc of
|
case left.location.loc of
|
||||||
LOC_FLAGS :
|
LOC_FLAGS :
|
||||||
begin
|
begin
|
||||||
location_reset(location,LOC_FLAGS,OS_NO);
|
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