X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_console.pas;h=b62a7e186c920d98b873e8c6eaebcd6f26d0292c;hb=4aae1df7801692bcde3df413028c83edd5c3c655;hp=6cd897c6d6992237ceedbab3105922cd0f5b2e65;hpb=89b25c381542119e51cf5278f29a8bbd68cc4f9e;p=d2df-sdl.git

diff --git a/src/game/g_console.pas b/src/game/g_console.pas
index 6cd897c..b62a7e1 100644
--- a/src/game/g_console.pas
+++ b/src/game/g_console.pas
@@ -561,6 +561,15 @@ begin
   cp.cheat := acheat;
 end;
 
+
+procedure segfault (p: SArray);
+var
+  pp: PByte = nil;
+begin
+  pp^ := 0;
+end;
+
+
 procedure g_Console_Init();
 var
   a: Integer;
@@ -579,6 +588,8 @@ begin
       Time := 0;
     end;
 
+  AddCommand('segfault', segfault, 'make segfault');
+
   AddCommand('clear', ConsoleCommands, 'clear console');
   AddCommand('clearhistory', ConsoleCommands);
   AddCommand('showhistory', ConsoleCommands);
@@ -1382,4 +1393,5 @@ begin
   g_Console_Add(Format(_lc[I_CONSOLE_UNKNOWN], [Arr[0]]));
 end;
 
+
 end.