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

* forgot an $ifdef NEWPPU :(

Browse Source
This commit is contained in:
peter 1998-06-17 14:36:19 +00:00
parent f07849effe
commit 6a1ca57304
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/files.pas
View File

@ -131,12 +131,14 @@ unit files;
mainsource : pstring; { name of the main sourcefile }
constructor init(const s:string;_is_unit:boolean);
{$ifdef NEWPPU}
destructor done;virtual;
{$else}
destructor special_done;virtual; { this is to be called only when compiling again }
{$endif NEWPPU}
procedure setfilename(const _path,name:string);
{$ifdef NEWPPU}
function openppu:boolean;
destructor done;virtual;
{$else}
function load_ppu(const unit_path,n,ext:string):boolean;
{$endif}
@ -859,6 +861,7 @@ unit files;
end;
{$ifdef NEWPPU}
destructor tmodule.done;
begin
if assigned(map) then
@ -882,6 +885,7 @@ unit files;
inherited done;
end;
{$else}
destructor tmodule.special_done;
begin
@ -901,6 +905,8 @@ unit files;
inherited done;
end;
{$endif NEWPPU}
{****************************************************************************
TUSED_UNIT
****************************************************************************}
@ -961,7 +967,10 @@ unit files;
end.
{
$Log$
Revision 1.25 1998-06-17 14:10:11 peter
Revision 1.26 1998-06-17 14:36:19 peter
* forgot an $ifdef NEWPPU :(
Revision 1.25 1998/06/17 14:10:11 peter
* small os2 fixes
* fixed interdependent units with newppu (remake3 under linux works now)