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

* INFTPPU define to write the ppu of the interface to .ppu.intf

Browse Source
This commit is contained in:
peter 1999-12-02 11:29:07 +00:00
parent 295c4e4ce1
commit 11b8f997c7
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/ppu.pas
View File

@ -26,6 +26,10 @@
unit ppu; unit ppu;
interface interface
{ Also write the ppu if only crc if done, this can be used with ppudump to
see the differences between the intf and implementation }
{ define INTFPPU}
{$ifdef Test_Double_checksum} {$ifdef Test_Double_checksum}
var var
CRCFile : text; CRCFile : text;
@ -713,6 +717,13 @@ end;
function tppufile.create:boolean; function tppufile.create:boolean;
begin begin
create:=false; create:=false;
{$ifdef INTFPPU}
if crc_only then
begin
fname:=fname+'.intf';
crc_only:=false;
end;
{$endif}
if not crc_only then if not crc_only then
begin begin
assign(f,fname); assign(f,fname);
@ -994,7 +1005,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.52 1999-11-30 10:40:45 peter Revision 1.53 1999-12-02 11:29:07 peter
* INFTPPU define to write the ppu of the interface to .ppu.intf
Revision 1.52 1999/11/30 10:40:45 peter
+ ttype, tsymlist + ttype, tsymlist
Revision 1.51 1999/11/23 09:42:38 peter Revision 1.51 1999/11/23 09:42:38 peter