Browse Source

* Remove debugging code.

git-svn-id: trunk@2389 -
daniel 19 years ago
parent
commit
eb45aa901f
1 changed files with 0 additions and 3 deletions
  1. 0 3
      rtl/unix/keyboard.pp

+ 0 - 3
rtl/unix/keyboard.pp

@@ -319,9 +319,6 @@ const switches:longint=0;
 procedure vt_handler(sig:longint);cdecl;
 procedure vt_handler(sig:longint);cdecl;
 
 
 begin
 begin
-  inc(switches);
-  if switches>10 then
-    halt;
   if vt_switched_away then
   if vt_switched_away then
     begin
     begin
       {Confirm the switch.}
       {Confirm the switch.}