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

* smallsets are not entirely implemented for

Browse Source 
m68k added a ifdef usesmallset
    that is allways defined for i386
    (enables testing for m68k)
This commit is contained in:
pierre 1998-10-14 15:54:20 +00:00
parent e529231c8f
commit 8d823b38c3
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/symdef.inc
View File

@ -1293,17 +1293,27 @@
TSETDEF
***************************************************************************}
{ For i386 smallsets work,
for m68k there are problems
can be test by compiling with -dusesmallset PM }
{$ifdef i386}
{$define usesmallset}
{$endif i386}
constructor tsetdef.init(s : pdef;high : longint);
begin
inherited init;
deftype:=setdef;
setof:=s;
{$ifdef usesmallset}
{ small sets only working for i386 PM }
if high<32 then
begin
settype:=smallset;
savesize:=Sizeof(longint);
end
else
{$endif usesmallset}
if high<256 then
begin
settype:=normset;
@ -3080,7 +3090,13 @@
{
$Log$
Revision 1.56 1998-10-09 11:47:56 pierre
Revision 1.57 1998-10-14 15:54:20 pierre
* smallsets are not entirely implemented for
m68k added a ifdef usesmallset
that is allways defined for i386
(enables testing for m68k)
Revision 1.56 1998/10/09 11:47:56 pierre
* still more memory leaks fixes !!
Revision 1.55 1998/10/06 17:16:55 pierre