paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 16:19:21 +02: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'); WriteLn(DStr(memavail shr 10),'/',DStr(system.heapsize shr 10),' Kb Free');
{$endif HASGETHEAPSTATUS} {$endif HASGETHEAPSTATUS}
end; end;
end end;
{$ifdef macos}
Yield;
{$endif}
end; end;
@ -270,6 +273,7 @@ begin
(status.currentsource<>'') and (status.currentsource<>'') and
(status.currentline>0) then (status.currentline>0) then
begin begin
{$ifndef macos}
{ Adding the column should not confuse RHIDE, { Adding the column should not confuse RHIDE,
even if it does not yet use it PM even if it does not yet use it PM
but only if it is after error or warning !! PM } but only if it is after error or warning !! PM }
@ -289,6 +293,14 @@ begin
else else
hs:=status.currentsource+'('+tostr(status.currentline)+') '+hs+' '+s; hs:=status.currentsource+'('+tostr(status.currentline)+') '+hs+' '+s;
end; 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 end
else else
begin begin
@ -386,7 +398,11 @@ end;
end. end.
{ {
$Log$ $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 * GetHeapStatus added, removed MaxAvail,MemAvail,HeapSize
Revision 1.31 2004/10/15 09:14:16 mazen Revision 1.31 2004/10/15 09:14:16 mazen