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

* handle also simulated flags in tmipselnotnode.second_boolean, resolves #39877

Browse Source
This commit is contained in:
florian 2022-08-24 21:15:18 +02:00
parent 27f8f077d5
commit 85c7368759
2 changed files with 31 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/mips/ncpumat.pas
View File

@ -248,6 +248,7 @@ begin
if not handle_locjump then
begin
case left.location.loc of
LOC_FLAGS,
LOC_REGISTER, LOC_CREGISTER, LOC_REFERENCE, LOC_CREFERENCE,
LOC_SUBSETREG,LOC_CSUBSETREG,LOC_SUBSETREF,LOC_CSUBSETREF:
begin

15
tests/webtbs/tw39877.pp Normal file
View File

@ -0,0 +1,15 @@
{ %norun }
{ %opt=-O- }
type
te = (gtNone,gtRadial,gtDiamond,gtAngular);
ts = set of te;
var
gt1,gt2 : te;
begin
writeln;
if not ([gt1,gt2] <= [gtRadial,gtDiamond,gtAngular]) then
writeln;
end.