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

* missing skiplabel added, resolves #33423

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/avr/navrmat.pas
View File

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

23
tests/webtbs/tw33417.pp
View File

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