- removed commented out code for keep() from the win16 dos unit, since keep()

and TSRs aren't supported for win16 applications

git-svn-id: trunk@37699 -

rtl/win16/dos.pp

@@ -88,7 +88,6 @@ type
 {//$DEFINE HAS_SWAPVECTORS}
 {$DEFINE HAS_GETINTVEC}
 {$DEFINE HAS_SETINTVEC}
-{//$DEFINE HAS_KEEP}
 {$DEFINE HAS_GETSHORTNAME}
 {$DEFINE HAS_GETLONGNAME}
 
@@ -1094,21 +1093,6 @@ asm
   pop ds
 end;
 
-{******************************************************************************
-                                  --- Keep ---
-******************************************************************************}
-
-{Procedure Keep(exitcode: word); assembler;
-asm
-  mov bx, PrefixSeg
-  dec bx
-  mov es, bx
-  mov dx, es:[3]
-  mov ax, exitcode
-  mov ah, 31h
-  int 21h
-end;}
-
 {$ifdef DEBUG_LFN}
 begin
   LogLFN:=(GetEnv('LOGLFN')<>'');