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

* new flags added

Browse Source
This commit is contained in:
peter 2001-06-29 19:42:18 +00:00
parent 05e12f6894
commit 07922b1a70
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/utils/ppudump.pp
View File

@ -104,7 +104,7 @@ type
str : string[30];
end;
const
flagopts=11;
flagopts=14;
flagopt : array[1..flagopts] of tflagopt=(
(mask: $1 ;str:'init'),
(mask: $2 ;str:'final'),
@ -116,7 +116,10 @@ const
(mask: $80 ;str:'static_linked'),
(mask: $100 ;str:'shared_linked'),
(mask: $200 ;str:'local_browser'),
(mask: $400 ;str:'no_link')
(mask: $400 ;str:'no_link'),
(mask: $800 ;str:'has_resources'),
(mask: $1000 ;str:'little_endian'),
(mask: $2000 ;str:'release')
);
var
i : longint;
@ -1184,7 +1187,7 @@ begin
write('Uses unit: ',getstring,' (Number: ',unitnumber,')');
ucrc:=getlongint;
uintfcrc:=getlongint;
write(' (Crc: ',ucrc,', IntfcCrc: ',uintfcrc,')');
write(' (Crc: ',hexstr(ucrc,8),', IntfcCrc: ',hexstr(uintfcrc,8),')');
if getbyte<>0 then
writeln(' (interface)')
else
@ -1547,7 +1550,10 @@ begin
end.
{
$Log$
Revision 1.4 2001-06-04 11:53:15 peter
Revision 1.5 2001-06-29 19:42:18 peter
* new flags added
Revision 1.4 2001/06/04 11:53:15 peter
+ varargs directive
Revision 1.3 2001/05/09 14:11:10 jonas