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

* Added missing PPU flags

Browse Source 
git-svn-id: trunk@17622 -
This commit is contained in:
pierre 2011-06-01 10:28:57 +00:00
parent e5fc169e57
commit f9e7b364bb
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

@ -338,7 +338,7 @@ type
str : string[30]; str : string[30];
end; end;
const const
flagopts=17; flagopts=23;
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'),
@ -356,9 +356,15 @@ const
(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: $210000 ;str:'has_debug_info'),
(mask: $10000 ;str:'stabs_debug_info'),
(mask: $200000 ;str:'dwarf_debug_info'),
(mask: $20000 ;str:'local_symtable'), (mask: $20000 ;str:'local_symtable'),
(mask: $40000 ;str:'uses_variants') (mask: $40000 ;str:'uses_variants'),
(mask: $80000 ;str:'has_resourcefiles'),
(mask: $100000 ;str:'has_exports'),
(mask: $400000 ;str:'has_wideinits'),
(mask: $800000 ;str:'has_classinits')
); );
var var
i : longint; i : longint;