paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 14:40:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
and TSRs aren't supported for win16 applications

git-svn-id: trunk@37699 -
This commit is contained in:
nickysn 2017-12-07 17:33:06 +00:00
parent 0fced4fdf9
commit eaf878e106
1 changed files with 0 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/win16/dos.pp
View File

@ -88,7 +88,6 @@ type
{//$DEFINE HAS_SWAPVECTORS} {//$DEFINE HAS_SWAPVECTORS}
{$DEFINE HAS_GETINTVEC} {$DEFINE HAS_GETINTVEC}
{$DEFINE HAS_SETINTVEC} {$DEFINE HAS_SETINTVEC}
{//$DEFINE HAS_KEEP}
{$DEFINE HAS_GETSHORTNAME} {$DEFINE HAS_GETSHORTNAME}
{$DEFINE HAS_GETLONGNAME} {$DEFINE HAS_GETLONGNAME}
@ -1094,21 +1093,6 @@ asm
pop ds pop ds
end; 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} {$ifdef DEBUG_LFN}
begin begin
LogLFN:=(GetEnv('LOGLFN')<>''); LogLFN:=(GetEnv('LOGLFN')<>'');