paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-25 12:17:15 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Minenumsize=1 under TEST_ENUMSIZE cond because buggy

Browse Source
This commit is contained in:
pierre 1999-04-09 13:05:45 +00:00
parent dae5c188e4
commit 45ee3eb67f
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/temp_gen.pas
View File

@ -39,13 +39,17 @@ unit temp_gen;
type type
{ this saves some memory } { this saves some memory }
{$ifdef TEST_MINENUMSIZE}
{$ifdef FPC} {$ifdef FPC}
{$minenumsize 1} {$minenumsize 1}
{$endif FPC} {$endif FPC}
{$endif TEST_MINENUMSIZE}
ttemptype = (tt_normal,tt_ansistring,tt_widestring); ttemptype = (tt_normal,tt_ansistring,tt_widestring);
{$ifdef TEST_MINENUMSIZE}
{$ifdef FPC} {$ifdef FPC}
{$minenumsize default} {$minenumsize default}
{$endif FPC} {$endif FPC}
{$endif TEST_MINENUMSIZE}
{ generates temporary variables } { generates temporary variables }
procedure resettempgen; procedure resettempgen;
procedure setfirsttemp(l : longint); procedure setfirsttemp(l : longint);
@ -631,7 +635,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.14 1999-04-09 09:55:20 peter Revision 1.15 1999-04-09 13:05:45 pierre
* Minenumsize=1 under TEST_ENUMSIZE cond because buggy
Revision 1.14 1999/04/09 09:55:20 peter
* typo fixed * typo fixed
Revision 1.13 1999/04/09 08:39:20 peter Revision 1.13 1999/04/09 08:39:20 peter