|
@@ -4,13 +4,10 @@ unit system;
|
|
|
|
|
|
interface
|
|
interface
|
|
|
|
|
|
-{$ifdef FULL_RTL}
|
|
|
|
-
|
|
|
|
{$DEFINE FPC_INCLUDE_SOFTWARE_MUL}
|
|
{$DEFINE FPC_INCLUDE_SOFTWARE_MUL}
|
|
{$DEFINE FPC_INCLUDE_SOFTWARE_MOD_DIV}
|
|
{$DEFINE FPC_INCLUDE_SOFTWARE_MOD_DIV}
|
|
|
|
|
|
{$I systemh.inc}
|
|
{$I systemh.inc}
|
|
-{$endif FULL_RTL}
|
|
|
|
|
|
|
|
const
|
|
const
|
|
LineEnding = #13#10;
|
|
LineEnding = #13#10;
|
|
@@ -55,39 +52,12 @@ const
|
|
LFNSupport = false;
|
|
LFNSupport = false;
|
|
{$endif RTLLITE}
|
|
{$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 DebugWrite(const S: string);
|
|
procedure DebugWriteLn(const S: string);
|
|
procedure DebugWriteLn(const S: string);
|
|
|
|
|
|
implementation
|
|
implementation
|
|
|
|
|
|
-{$ifdef FULL_RTL}
|
|
|
|
{$I system.inc}
|
|
{$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);
|
|
procedure DebugWrite(const S: string);
|
|
begin
|
|
begin
|