paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 10:45:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

* missing HasSignal conditionals added (needed for FPC/2)

Browse Source
This commit is contained in:
Tomas Hajny 2002-10-12 19:43:07 +00:00
parent dcb9f928c1
commit a11f0cf6b2
4 changed files with 40 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
ide/fp.pas
View File

@ -266,6 +266,7 @@ const
procedure InterceptExit;
begin
{$IFDEF HasSignal}
if StopJmpValid then
begin
ExitIntercepted:=true;
@ -273,6 +274,7 @@ begin
SeenErrorAddr:=ErrorAddr;
LongJmp(StopJmp,1);
end;
{$ENDIF}
end;
BEGIN
@ -339,7 +341,9 @@ BEGIN
from command line PM }
ParseUserScreen;
{$IFDEF HasSignal}
EnableCatchSignals;
{$ENDIF}
{ Update IDE }
IDEApp.Update;
IDEApp.UpdateMode;
@ -357,8 +361,10 @@ BEGIN
ExitProc:=@InterceptExit;
repeat
SetJmpRes:=setjmp(StopJmp);
StopJmpValid:=true;
{$IFDEF HasSignal}
SetJmpRes:=setjmp(StopJmp);
StopJmpValid:=true;
{$ENDIF}
UserWantsToGoOn:=false;
if SetJmpRes=0 then
@ -404,7 +410,9 @@ BEGIN
CanExit:=IDEApp.AskSaveAll
else
CanExit:=IDEApp.SaveAll;
StopJmpValid:=false;
{$IFDEF HasSignal}
StopJmpValid:=false;
{$ENDIF}
if (SetJmpRes<>0) then
begin
if (not CanExit) or UserWantsToGoOn then
@ -431,7 +439,9 @@ BEGIN
IDEApp.Done;
WriteSwitches(SwitchesPath);
DisableCatchSignals;
{$IFDEF HasSignal}
DisableCatchSignals;
{$ENDIF}
DoneCodeComplete;
DoneCodeTemplates;
@ -470,7 +480,10 @@ BEGIN
END.
{
$Log$
Revision 1.13 2002-09-10 12:19:14 pierre
Revision 1.14 2002-10-12 19:43:07 hajny
* missing HasSignal conditionals added (needed for FPC/2)
Revision 1.13 2002/09/10 12:19:14 pierre
* use faster method for loading files by default
Revision 1.12 2002/09/09 06:59:16 pierre

11
ide/fpide.pas
View File

@ -563,7 +563,11 @@ begin
{$ifdef DEBUG}
if (Event.What=evKeyDown) and (Event.KeyCode=kbAltF11) then
begin
{$ifdef HasSignal}
Generate_SIGSEGV;
{$else}
Halt(1);
{$endif}
end;
if (Event.What=evKeyDown) and (Event.KeyCode=kbCtrlF11) then
begin
@ -871,7 +875,9 @@ begin
{ destory all help & browser windows - we don't want to store them }
{ UserScreenWindow is also not registered PM }
DoCloseUserScreenWindow;
{$IFNDEF NODEBUG}
DoneDisassemblyWindow;
{$ENDIF}
CloseHelpWindows;
CloseAllBrowsers;
DOK:=SaveDesktop;
@ -1217,7 +1223,10 @@ end;
END.
{
$Log$
Revision 1.21 2002-09-13 07:16:56 pierre
Revision 1.22 2002-10-12 19:43:07 hajny
* missing HasSignal conditionals added (needed for FPC/2)
Revision 1.21 2002/09/13 07:16:56 pierre
* avoid RTE 201 if closing file with position outside integer bounds
Revision 1.20 2002/09/09 06:58:51 pierre

7
ide/fpmfile.inc
View File

@ -170,8 +170,10 @@ begin
if ConfirmBox(msg_confirmsourcediradd,@P,false)=cmYes then
begin
SourceDirs:=SourceDirs+';'+Dir;
{$IFNDEF NODEBUG}
if assigned(Debugger) then
Debugger^.SetDirectories;
{$ENDIF}
end;
OpenEditorWindow(nil,FileName,0,0);
end;
@ -221,7 +223,10 @@ end;
{
$Log$
Revision 1.6 2002-09-07 15:40:43 peter
Revision 1.7 2002-10-12 19:43:07 hajny
* missing HasSignal conditionals added (needed for FPC/2)
Revision 1.6 2002/09/07 15:40:43 peter
* old logs removed and tabs fixed
Revision 1.5 2002/08/29 09:58:04 pierre

7
ide/fpmrun.inc
View File

@ -49,12 +49,14 @@ begin
begin
if (MessageBox(#3+'You''ve edited a file, recompile the project?',nil,mfinformation+mfyesbutton+mfnobutton)=cmYes) then
begin
{$IFNDEF NODEBUG}
if Assigned(Debugger) then
begin
if Debugger^.IsRunning then
RestartingDebugger:=true;
end;
DoResetDebugger;
{$ENDIF}
DoRun;
AskRecompileIfModified:=true;
end
@ -483,7 +485,10 @@ end;
{
$Log$
Revision 1.5 2002-09-07 15:40:44 peter
Revision 1.6 2002-10-12 19:43:07 hajny
* missing HasSignal conditionals added (needed for FPC/2)
Revision 1.5 2002/09/07 15:40:44 peter
* old logs removed and tabs fixed
Revision 1.4 2002/09/05 08:45:59 pierre