|
@@ -116,11 +116,7 @@ implementation
|
|
|
|
|
|
uses
|
|
uses
|
|
{$ifdef Unix}
|
|
{$ifdef Unix}
|
|
- {$ifdef VER1_0}
|
|
|
|
- Linux,
|
|
|
|
- {$else}
|
|
|
|
- Unix, BaseUnix,
|
|
|
|
- {$endif}
|
|
|
|
|
|
+ Unix, BaseUnix,
|
|
{$endif}
|
|
{$endif}
|
|
{$ifdef go32v2}
|
|
{$ifdef go32v2}
|
|
dpmiexcp,
|
|
dpmiexcp,
|
|
@@ -513,9 +509,7 @@ end;
|
|
procedure TCompilerStatusDialog.Update;
|
|
procedure TCompilerStatusDialog.Update;
|
|
var
|
|
var
|
|
StatusS,KeyS: string;
|
|
StatusS,KeyS: string;
|
|
-{$ifdef HASGETHEAPSTATUS}
|
|
|
|
hstatus : TFPCHeapStatus;
|
|
hstatus : TFPCHeapStatus;
|
|
-{$endif HASGETHEAPSTATUS}
|
|
|
|
const
|
|
const
|
|
MaxFileNameSize = 46;
|
|
MaxFileNameSize = 46;
|
|
begin
|
|
begin
|
|
@@ -574,14 +568,9 @@ begin
|
|
AddFormatParamStr(KillTilde(TargetSwitches^.ItemName(TargetSwitches^.GetCurrSel)));
|
|
AddFormatParamStr(KillTilde(TargetSwitches^.ItemName(TargetSwitches^.GetCurrSel)));
|
|
AddFormatParamInt(Status.CurrentLine);
|
|
AddFormatParamInt(Status.CurrentLine);
|
|
AddFormatParamInt(Status.CompiledLines);
|
|
AddFormatParamInt(Status.CompiledLines);
|
|
-{$ifdef HASGETHEAPSTATUS}
|
|
|
|
hstatus:=GetFPCHeapStatus;
|
|
hstatus:=GetFPCHeapStatus;
|
|
AddFormatParamInt(hstatus.CurrHeapUsed div 1024);
|
|
AddFormatParamInt(hstatus.CurrHeapUsed div 1024);
|
|
AddFormatParamInt(hstatus.CurrHeapSize div 1024);
|
|
AddFormatParamInt(hstatus.CurrHeapSize div 1024);
|
|
-{$else}
|
|
|
|
- AddFormatParamInt((Heapsize-MemAvail) div 1024);
|
|
|
|
- AddFormatParamInt(Heapsize div 1024);
|
|
|
|
-{$endif}
|
|
|
|
AddFormatParamInt(Status.ErrorCount);
|
|
AddFormatParamInt(Status.ErrorCount);
|
|
ST^.SetText(
|
|
ST^.SetText(
|
|
FormatStrF(
|
|
FormatStrF(
|