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

+ added support for MPW error messages

Browse Source 
+ added support for cooperative multitasking under MPW
This commit is contained in:
olle 2004-12-28 01:39:07 +00:00
parent 4adda1b1d8
commit 5aa1ac7420
1 changed files with 18 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
compiler/comphook.pas
View File

@ -224,7 +224,10 @@ begin
WriteLn(DStr(memavail shr 10),'/',DStr(system.heapsize shr 10),' Kb Free');
{$endif HASGETHEAPSTATUS}
end;
end
end;
{$ifdef macos}
Yield;
{$endif}
end;
@ -270,6 +273,7 @@ begin
(status.currentsource<>'') and
(status.currentline>0) then
begin
{$ifndef macos}
{ Adding the column should not confuse RHIDE,
even if it does not yet use it PM
but only if it is after error or warning !! PM }
@ -289,6 +293,14 @@ begin
else
hs:=status.currentsource+'('+tostr(status.currentline)+') '+hs+' '+s;
end;
{$else}
{MPW style error}
if status.currentcolumn>0 then
hs:='File "'+status.currentsource+'"; Line '+tostr(status.currentline)+
' # (' + tostr(status.currentcolumn) + ')' +hs+' '+s
else
hs:='File "'+status.currentsource+'"; Line '+tostr(status.currentline)+' #'+hs+' '+s;
{$endif}
end
else
begin
@ -386,7 +398,11 @@ end;
end.
{
$Log$
Revision 1.32 2004-11-22 19:34:58 peter
Revision 1.33 2004-12-28 01:39:07 olle
+ added support for MPW error messages
+ added support for cooperative multitasking under MPW
Revision 1.32 2004/11/22 19:34:58 peter
* GetHeapStatus added, removed MaxAvail,MemAvail,HeapSize
Revision 1.31 2004/10/15 09:14:16 mazen