paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-22 19:39:29 +01: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]; str : string[30];
end; end;
const const
flagopts=11; flagopts=14;
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'),
@ -116,7 +116,10 @@ const
(mask: $80 ;str:'static_linked'), (mask: $80 ;str:'static_linked'),
(mask: $100 ;str:'shared_linked'), (mask: $100 ;str:'shared_linked'),
(mask: $200 ;str:'local_browser'), (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 var
i : longint; i : longint;
@ -1184,7 +1187,7 @@ begin
write('Uses unit: ',getstring,' (Number: ',unitnumber,')'); write('Uses unit: ',getstring,' (Number: ',unitnumber,')');
ucrc:=getlongint; ucrc:=getlongint;
uintfcrc:=getlongint; uintfcrc:=getlongint;
write(' (Crc: ',ucrc,', IntfcCrc: ',uintfcrc,')'); write(' (Crc: ',hexstr(ucrc,8),', IntfcCrc: ',hexstr(uintfcrc,8),')');
if getbyte<>0 then if getbyte<>0 then
writeln(' (interface)') writeln(' (interface)')
else else
@ -1547,7 +1550,10 @@ begin
end. end.
{ {
$Log$ $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 + varargs directive
Revision 1.3 2001/05/09 14:11:10 jonas Revision 1.3 2001/05/09 14:11:10 jonas