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

* fixed bug #206

Browse Source
This commit is contained in:
peter 1999-02-16 00:46:30 +00:00
parent 5c3f708222
commit 2ba2b655f0
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/cg386add.pas
View File

@ -358,6 +358,7 @@ implementation
{ optimize first loading of a set }
{$ifdef usecreateset}
if (p^.right^.treetype=setelementn) and
not(assigned(p^.right^.right)) and
is_emptyset(p^.left) then
createset:=true
else
@ -1809,7 +1810,10 @@ implementation
end.
{
$Log$
Revision 1.42 1999-02-12 10:43:56 florian
Revision 1.43 1999-02-16 00:46:30 peter
* fixed bug 206
Revision 1.42 1999/02/12 10:43:56 florian
* internal error 10 with ansistrings fixed
Revision 1.41 1999/01/20 19:23:10 jonas