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

+ Patch from pierre

Browse Source
This commit is contained in:
michael 1999-08-20 10:17:01 +00:00
parent 5f30aacb93
commit f0fa79dad2
1 changed files with 19 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
compiler/compiler.pas
View File

@ -127,7 +127,12 @@ function Compile(const cmd:string):longint;
implementation
uses
{$ifdef m68k}
m68k;
{$else}
cpubase;
{$endif}
var
CompilerInitedAfterArgs,
CompilerInited : boolean;
@ -166,6 +171,7 @@ begin
DoneImport;
DoneExport;
DoneLinker;
DoneCpu;
end;
{ Free memory for the others }
CompilerInited:=false;
@ -201,6 +207,7 @@ begin
InitImport;
InitExport;
InitLinker;
InitCpu;
CompilerInitedAfterArgs:=true;
end;
@ -221,17 +228,7 @@ var
recoverpos : jmp_buf;
olddo_stop : tstopprocedure;
{$endif}
{$IfDef Extdebug}
{$ifdef FPC}
EntryMemUsed : longint;
{$endif FPC}
{$EndIf}
begin
{$ifdef EXTDEBUG}
{$ifdef FPC}
EntryMemUsed:=system.HeapSize-MemAvail;
{$endif FPC}
{$endif}
{ Initialize the compiler }
InitCompiler(cmd);
@ -280,13 +277,6 @@ begin
{ no message possible after this !! }
DoneCompiler;
{$ifdef EXTDEBUG}
{$ifdef FPC}
Writeln('Memory Lost = '+tostr(system.HeapSize-MemAvail+EntryMemUsed));
{$endif FPC}
Writeln('Repetitive firstpass = '+tostr(firstpass_several)+'/'+tostr(total_of_firstpass));
{$endif EXTDEBUG}
{ Set the return value if an error has occurred }
if status.errorcount=0 then
Compile:=0
@ -294,13 +284,23 @@ begin
Compile:=1;
DoneVerbose;
{$ifdef EXTDEBUG}
{$ifdef FPC}
Writeln('Memory Lost = '+tostr(system.HeapSize-MemAvail-EntryMemUsed));
{$endif FPC}
Writeln('Repetitive firstpass = '+tostr(firstpass_several)+'/'+tostr(total_of_firstpass));
{$endif EXTDEBUG}
end;
end.
{
$Log$
Revision 1.30 1999-08-11 17:26:31 peter
Revision 1.31 1999-08-20 10:17:01 michael
+ Patch from pierre
Revision 1.30 1999/08/11 17:26:31 peter
* tlinker object is now inherited for win32 and dos
* postprocessexecutable is now a method of tlinker