paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 17:29:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* missing skiplabel added, resolves

Browse Source 
git-svn-id: trunk@38520 -
This commit is contained in:
florian 2018-03-13 18:45:32 +00:00
parent 7f679ad748
commit b9417cc51e
2 changed files with 17 additions and 7 deletions
compiler/avr
navrmat.pas
tests/webtbs
tw33417.pp

1
compiler/avr/navrmat.pas
View File

@ -77,6 +77,7 @@ implementation
skiplabel.increfs;
location_reset_jump(location,truelabel,falselabel);
cg.a_jmp_always(current_asmdata.CurrAsmList,falselabel);
cg.a_label(current_asmdata.CurrAsmList,skiplabel);
cg.a_jmp_always(current_asmdata.CurrAsmList,truelabel);
end
else if (left.location.loc in [LOC_SUBSETREF,LOC_CSUBSETREF]) and

23
tests/webtbs/tw33417.pp
View File

@ -5,27 +5,36 @@ type
var
gflags : tflags;
i : byte;
procedure p;
procedure p(pflags : tflags);
var
flags : tflags;
begin
flags:=gflags;
if flags.bit5 then
halt(1);
i:=1;
if pflags.bit5 then
i:=1;
if gflags.bit5 then
halt(1);
i:=1;
if not flags.bit6 then
halt(1);
i:=1;
if not pflags.bit6 then
i:=1;
if not gflags.bit6 then
halt(1);
i:=1;
end;
begin
gflags.bit4:=false;
gflags.bit5:=false;
gflags.bit6:=true;
p;
writeln('ok');
i:=0;
p(gflags);
if i<>0 then
halt(i)
else
writeln('ok');
end.