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

* user screen parsing fixed

Browse Source
This commit is contained in:
florian 2005-01-08 12:05:13 +00:00
parent 6c2ea3f2b4
commit 1dcc4b0309
1 changed files with 14 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
ide/fpcompil.pas
View File

@ -229,12 +229,12 @@ begin
begin
UserScreen^.GetLine(Y,Text,Attr);
SearchBackTrace;
InsertInMessages(' Fatal:',v_Fatal,true);
InsertInMessages(' Error:',v_Error,true);
InsertInMessages(' Warning:',v_Warning,false);
InsertInMessages(' Note:',v_Note,false);
InsertInMessages(' Info:',v_Info,false);
InsertInMessages(' Hint:',v_Hint,false);
InsertInMessages(' Fatal:',v_Fatal or v_lineinfo,true);
InsertInMessages(' Error:',v_Error or v_lineinfo,true);
InsertInMessages(' Warning:',v_Warning or v_lineinfo,false);
InsertInMessages(' Note:',v_Note or v_lineinfo,false);
InsertInMessages(' Info:',v_Info or v_lineinfo,false);
InsertInMessages(' Hint:',v_Hint or v_lineinfo,false);
end;
if DisplayCompilerWindow then
begin
@ -509,9 +509,9 @@ end;
procedure TCompilerStatusDialog.Update;
var
StatusS,KeyS: string;
{$ifdef HASGETHEAPSTATUS}
{$ifdef HASGETHEAPSTATUS}
hstatus : THeapStatus;
{$endif HASGETHEAPSTATUS}
{$endif HASGETHEAPSTATUS}
const
MaxFileNameSize = 46;
begin
@ -570,14 +570,14 @@ begin
AddFormatParamStr(KillTilde(TargetSwitches^.ItemName(TargetSwitches^.GetCurrSel)));
AddFormatParamInt(Status.CurrentLine);
AddFormatParamInt(Status.CompiledLines);
{$ifdef HASGETHEAPSTATUS}
{$ifdef HASGETHEAPSTATUS}
GetHeapStatus(hstatus);
AddFormatParamInt(hstatus.CurrHeapUsed div 1024);
AddFormatParamInt(hstatus.CurrHeapSize div 1024);
{$else}
AddFormatParamInt((Heapsize-MemAvail) div 1024);
AddFormatParamInt(Heapsize div 1024);
{$endif}
{$endif}
AddFormatParamInt(Status.ErrorCount);
ST^.SetText(
FormatStrF(
@ -1265,7 +1265,10 @@ end;
end.
{
$Log$
Revision 1.33 2004-11-22 19:34:58 peter
Revision 1.34 2005-01-08 12:05:13 florian
* user screen parsing fixed
Revision 1.33 2004/11/22 19:34:58 peter
* GetHeapStatus added, removed MaxAvail,MemAvail,HeapSize
Revision 1.32 2004/11/20 14:21:19 florian