paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 18:50:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ deliberatly generate a SIGSEGV if Alt+F11 is pressed (DEBUG code)

Browse Source
This commit is contained in:
pierre 2002-03-20 14:52:01 +00:00
parent 9d5e55dddd
commit 347714dc73
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/fpide.pas
View File

@ -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