From 7fec59c454f95c0240823a02fd22c547c7412621 Mon Sep 17 00:00:00 2001 From: nickysn Date: Sat, 23 Mar 2013 00:49:48 +0000 Subject: [PATCH] - remove the FULL_RTL ifdefs from the msdos system unit; full rtl is always enabled now git-svn-id: branches/i8086@23969 - --- rtl/msdos/system.pp | 30 ------------------------------ 1 file changed, 30 deletions(-) diff --git a/rtl/msdos/system.pp b/rtl/msdos/system.pp index 6ca6fedd73..49cf29395f 100644 --- a/rtl/msdos/system.pp +++ b/rtl/msdos/system.pp @@ -4,13 +4,10 @@ unit system; interface -{$ifdef FULL_RTL} - {$DEFINE FPC_INCLUDE_SOFTWARE_MUL} {$DEFINE FPC_INCLUDE_SOFTWARE_MOD_DIV} {$I systemh.inc} -{$endif FULL_RTL} const LineEnding = #13#10; @@ -55,39 +52,12 @@ const LFNSupport = false; {$endif RTLLITE} -{$ifndef FULL_RTL} -type - DWord = LongWord; - Cardinal = LongWord; - Integer = SmallInt; - UInt64 = QWord; - - HRESULT = LongInt; -{$endif FULL_RTL} - procedure DebugWrite(const S: string); procedure DebugWriteLn(const S: string); implementation -{$ifdef FULL_RTL} {$I system.inc} -{$endif FULL_RTL} - -{$ifndef FULL_RTL} -procedure fpc_Initialize_Units;[public,alias:'FPC_INITIALIZEUNITS']; compilerproc; -begin -end; - -procedure do_exit;[Public,Alias:'FPC_DO_EXIT']; -begin - asm - mov ax, 4c00h - int 21h - end; -end; -{$endif not FULL_RTL} - procedure DebugWrite(const S: string); begin