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

* stack checking supported for all systems

Browse Source
This commit is contained in:
carl 2002-09-07 11:09:40 +00:00
parent 1b53eca49d
commit 85032ae6c6
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/inc/lineinfo.pp
View File

@ -20,11 +20,7 @@ interface
{$DEFINE EMX} (* EMX is the only possibility under OS/2 at the moment *) {$DEFINE EMX} (* EMX is the only possibility under OS/2 at the moment *)
{$ENDIF OS2} {$ENDIF OS2}
{ This is very important as this code can be called {$S-}
from inside the RTE 202 error PM }
{$ifndef Unix}
{$S-}
{$endif}
procedure GetLineInfo(addr:dword;var func,source:string;var line:longint); procedure GetLineInfo(addr:dword;var func,source:string;var line:longint);
@ -879,7 +875,10 @@ finalization
end. end.
{ {
$Log$ $Log$
Revision 1.9 2002-05-31 13:37:24 marco Revision 1.10 2002-09-07 11:09:40 carl
* stack checking supported for all systems
Revision 1.9 2002/05/31 13:37:24 marco
* more Renamefest * more Renamefest
Revision 1.8 2001/12/13 03:50:00 carl Revision 1.8 2001/12/13 03:50:00 carl