- remove the FULL_RTL ifdefs from the msdos system unit; full rtl is always enabled now

git-svn-id: branches/i8086@23969 -
This commit is contained in:
nickysn 2013-03-23 00:49:48 +00:00
parent 1646f53d59
commit 7fec59c454

View File

@ -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