paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-27 07:47:13 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ more module flags added

Browse Source
This commit is contained in:
florian 2005-04-24 20:00:57 +00:00
parent dac00a9080
commit acee3f0dbb
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/utils/ppudump.pp
View File

@ -227,7 +227,7 @@ type
str : string[30]; str : string[30];
end; end;
const const
flagopts=16; flagopts=19;
flagopt : array[1..flagopts] of tflagopt=( flagopt : array[1..flagopts] of tflagopt=(
(mask: $1 ;str:'init'), (mask: $1 ;str:'init'),
(mask: $2 ;str:'final'), (mask: $2 ;str:'final'),
@ -244,7 +244,10 @@ const
(mask: $1000 ;str:'little_endian'), (mask: $1000 ;str:'little_endian'),
(mask: $2000 ;str:'release'), (mask: $2000 ;str:'release'),
(mask: $4000 ;str:'local_threadvars'), (mask: $4000 ;str:'local_threadvars'),
(mask: $8000 ;str:'fpu emulation on') (mask: $8000 ;str:'fpu_emulation_on'),
(mask: $10000 ;str:'has_debug_info'),
(mask: $20000 ;str:'local_symtable'),
(mask: $40000 ;str:'uses_variants')
); );
var var
i : longint; i : longint;
@ -2155,7 +2158,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.68 2005-03-27 14:10:53 jonas Revision 1.69 2005-04-24 20:00:57 florian
+ more module flags added
Revision 1.68 2005/03/27 14:10:53 jonas
* const record parameters > 8 bytes are now passed by reference for non * const record parameters > 8 bytes are now passed by reference for non
cdecl/cppdecl procedures on Mac OS/Mac OS X to fix compatibility with cdecl/cppdecl procedures on Mac OS/Mac OS X to fix compatibility with
GPC (slightly more efficient than Metrowerks behaviour below, but GPC (slightly more efficient than Metrowerks behaviour below, but