+ handle signals

ide/fpdebug.pas

@@ -46,6 +46,7 @@ type
 {    procedure DoStartSession;virtual;
     procedure DoBreakSession;virtual;}
     procedure DoEndSession(code:longint);virtual;
+    procedure DoUserSignal;virtual;
     procedure AnnotateError;
     procedure InsertBreakpoints;
     procedure RemoveBreakpoints;
@@ -1106,6 +1107,17 @@ begin
     end;
 end;
 
+procedure TDebugController.DoUserSignal;
+var P :Array[1..2] of pstring;
+    S1, S2 : string;
+begin
+  S1:=strpas(signal_name);
+  S2:=strpas(signal_string);
+  P[1]:=@S1;
+  P[2]:=@S2;
+  WarningBox(msg_programsignal,@P);
+end;
+
 procedure TDebugController.DoEndSession(code:longint);
 var P :Array[1..2] of longint;
 begin
@@ -3955,7 +3967,10 @@ end.
 
 {
   $Log$
-  Revision 1.8  2001-11-10 00:11:45  pierre
+  Revision 1.9  2002-02-06 14:45:00  pierre
+   + handle signals
+
+  Revision 1.8  2001/11/10 00:11:45  pierre
    * change target menu name if target changed to become debug-able
 
   Revision 1.7  2001/11/07 00:28:52  pierre

ide/fpstre.inc

@@ -840,6 +840,9 @@ const
       msg_programexitedwithexitcode = #3'Program exited with '#13+
                                       #3'exitcode = %d';
 
+      msg_programsignal             = #3'Program recieved signal %s'#13+
+                                      #3'%s';
+
       msg_runningprogram = 'Running...';
       msg_runninginanotherwindow = 'Executable running in another window..';
       msg_couldnotsetbreakpointat = #3'Could not set Breakpoint'#13+
@@ -1013,7 +1016,10 @@ const
 
 {
   $Log$
-  Revision 1.5  2001-11-07 00:28:53  pierre
+  Revision 1.6  2002-02-06 14:45:00  pierre
+   + handle signals
+
+  Revision 1.5  2001/11/07 00:28:53  pierre
    + Disassembly window made public
 
   Revision 1.4  2001/10/24 21:49:56  pierre