paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 05:29:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* enable signals catching earlier

Browse Source
This commit is contained in:
pierre 2002-11-28 12:49:20 +00:00
parent e8bb7d10c3
commit d4cd61dea3
1 changed files with 16 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
ide/fp.pas
View File

@ -266,7 +266,7 @@ const
procedure InterceptExit;
begin
{$IFDEF HasSignal}
{$IFDEF HasSignal}
if StopJmpValid then
begin
ExitIntercepted:=true;
@ -278,7 +278,12 @@ begin
end;
BEGIN
{$ifdef DEV}HeapLimit:=4096;{$endif}
{$IFDEF HasSignal}
EnableCatchSignals;
{$ENDIF}
{$ifdef DEV}
HeapLimit:=4096;
{$endif}
writeln('þ Free Pascal IDE Version '+VersionStr);
{$ifdef win32}
Win32ShowMouse;
@ -341,9 +346,6 @@ BEGIN
from command line PM }
ParseUserScreen;
{$IFDEF HasSignal}
EnableCatchSignals;
{$ENDIF}
{ Update IDE }
IDEApp.Update;
IDEApp.UpdateMode;
@ -361,10 +363,10 @@ BEGIN
ExitProc:=@InterceptExit;
repeat
{$IFDEF HasSignal}
{$IFDEF HasSignal}
SetJmpRes:=setjmp(StopJmp);
StopJmpValid:=true;
{$ENDIF}
{$ENDIF}
UserWantsToGoOn:=false;
if SetJmpRes=0 then
@ -410,9 +412,9 @@ BEGIN
CanExit:=IDEApp.AskSaveAll
else
CanExit:=IDEApp.SaveAll;
{$IFDEF HasSignal}
{$IFDEF HasSignal}
StopJmpValid:=false;
{$ENDIF}
{$ENDIF}
if (SetJmpRes<>0) then
begin
if (not CanExit) or UserWantsToGoOn then
@ -441,7 +443,7 @@ BEGIN
{$IFDEF HasSignal}
DisableCatchSignals;
{$ENDIF}
{$ENDIF}
DoneCodeComplete;
DoneCodeTemplates;
@ -480,7 +482,10 @@ BEGIN
END.
{
$Log$
Revision 1.15 2002-10-30 22:12:13 pierre
Revision 1.16 2002-11-28 12:49:20 pierre
* enable signals catching earlier
Revision 1.15 2002/10/30 22:12:13 pierre
* use ppheap with IDEHEAPTRC conditional
Revision 1.14 2002/10/12 19:43:07 hajny