mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-13 20:11:19 +02:00
- 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:
parent
1646f53d59
commit
7fec59c454
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user