paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-20 16:29:24 +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; procedure InterceptExit;
begin begin
{$IFDEF HasSignal} {$IFDEF HasSignal}
if StopJmpValid then if StopJmpValid then
begin begin
ExitIntercepted:=true; ExitIntercepted:=true;
@ -278,7 +278,12 @@ begin
end; end;
BEGIN BEGIN
{$ifdef DEV}HeapLimit:=4096;{$endif} {$IFDEF HasSignal}
EnableCatchSignals;
{$ENDIF}
{$ifdef DEV}
HeapLimit:=4096;
{$endif}
writeln('þ Free Pascal IDE Version '+VersionStr); writeln('þ Free Pascal IDE Version '+VersionStr);
{$ifdef win32} {$ifdef win32}
Win32ShowMouse; Win32ShowMouse;
@ -341,9 +346,6 @@ BEGIN
from command line PM } from command line PM }
ParseUserScreen; ParseUserScreen;
{$IFDEF HasSignal}
EnableCatchSignals;
{$ENDIF}
{ Update IDE } { Update IDE }
IDEApp.Update; IDEApp.Update;
IDEApp.UpdateMode; IDEApp.UpdateMode;
@ -361,10 +363,10 @@ BEGIN
ExitProc:=@InterceptExit; ExitProc:=@InterceptExit;
repeat repeat
{$IFDEF HasSignal} {$IFDEF HasSignal}
SetJmpRes:=setjmp(StopJmp); SetJmpRes:=setjmp(StopJmp);
StopJmpValid:=true; StopJmpValid:=true;
{$ENDIF} {$ENDIF}
UserWantsToGoOn:=false; UserWantsToGoOn:=false;
if SetJmpRes=0 then if SetJmpRes=0 then
@ -410,9 +412,9 @@ BEGIN
CanExit:=IDEApp.AskSaveAll CanExit:=IDEApp.AskSaveAll
else else
CanExit:=IDEApp.SaveAll; CanExit:=IDEApp.SaveAll;
{$IFDEF HasSignal} {$IFDEF HasSignal}
StopJmpValid:=false; StopJmpValid:=false;
{$ENDIF} {$ENDIF}
if (SetJmpRes<>0) then if (SetJmpRes<>0) then
begin begin
if (not CanExit) or UserWantsToGoOn then if (not CanExit) or UserWantsToGoOn then
@ -441,7 +443,7 @@ BEGIN
{$IFDEF HasSignal} {$IFDEF HasSignal}
DisableCatchSignals; DisableCatchSignals;
{$ENDIF} {$ENDIF}
DoneCodeComplete; DoneCodeComplete;
DoneCodeTemplates; DoneCodeTemplates;
@ -480,7 +482,10 @@ BEGIN
END. END.
{ {
$Log$ $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 * use ppheap with IDEHEAPTRC conditional
Revision 1.14 2002/10/12 19:43:07 hajny Revision 1.14 2002/10/12 19:43:07 hajny