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

+ new flag if unit has local threadvars

Browse Source
This commit is contained in:
armin 2002-03-28 16:44:59 +00:00
parent 97efe0bce5
commit 8eaa0d86d5
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/utils/ppudump.pp
View File

@ -32,7 +32,7 @@ uses
const const
Version = 'Version 1.10'; Version = 'Version 1.10';
Title = 'PPU-Analyser'; Title = 'PPU-Analyser';
Copyright = 'Copyright (c) 1998-2001 by the Free Pascal Development Team'; Copyright = 'Copyright (c) 1998-2002 by the Free Pascal Development Team';
{ verbosity } { verbosity }
v_none = $0; v_none = $0;
@ -150,7 +150,7 @@ type
str : string[30]; str : string[30];
end; end;
const const
flagopts=14; flagopts=15;
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'),
@ -165,7 +165,8 @@ const
(mask: $400 ;str:'no_link'), (mask: $400 ;str:'no_link'),
(mask: $800 ;str:'has_resources'), (mask: $800 ;str:'has_resources'),
(mask: $1000 ;str:'little_endian'), (mask: $1000 ;str:'little_endian'),
(mask: $2000 ;str:'release') (mask: $2000 ;str:'release'),
(mask: $4000 ;str:'local_threadvars')
); );
var var
i : longint; i : longint;
@ -1646,7 +1647,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.12 2002-03-01 14:08:47 peter Revision 1.13 2002-03-28 16:44:59 armin
+ new flag if unit has local threadvars
Revision 1.12 2002/03/01 14:08:47 peter
* parasym added * parasym added
Revision 1.11 2002/01/06 12:08:16 peter Revision 1.11 2002/01/06 12:08:16 peter