From 347714dc73f5b4934e539324d8bfd39e336a1116 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Wed, 20 Mar 2002 14:52:01 +0000
Subject: [PATCH]  + deliberatly generate a SIGSEGV if Alt+F11 is pressed
 (DEBUG code)

---
 ide/fpide.pas | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/ide/fpide.pas b/ide/fpide.pas
index 5c546b7ea3..01cefdcc3f 100644
--- a/ide/fpide.pas
+++ b/ide/fpide.pas
@@ -551,6 +551,12 @@ begin
   while GetTargetedEvent(P,Event) do
     P^.HandleEvent(Event);
   inherited GetEvent(Event);
+{$ifdef DEBUG}
+  if (Event.What=evKeyDown) and (Event.KeyCode=kbAltF11) then
+    begin
+      Generate_SIGSEGV;
+    end;
+{$endif DEBUG}
   if (Event.What=evKeyDown) and (Event.KeyCode=kbAltF12) then
     begin
       CreateAnsiFile;
@@ -1177,7 +1183,10 @@ end;
 END.
 {
   $Log$
-  Revision 1.8  2002-01-24 09:21:42  pierre
+  Revision 1.9  2002-03-20 14:52:01  pierre
+   + deliberatly generate a SIGSEGV if Alt+F11 is pressed (DEBUG code)
+
+  Revision 1.8  2002/01/24 09:21:42  pierre
    * only disable Alt-X in Options|Compiler dialog
 
   Revision 1.7  2001/11/07 00:28:53  pierre