- removed the FULL_RTL ifdefs, i.e. always build a full rtl

git-svn-id: branches/wasm@48300 -

rtl/wasi/system.pp

@@ -4,8 +4,6 @@ interface
 
 {$define FPC_IS_SYSTEM}
 
-{$ifdef FULL_RTL}
-
 {$I systemh.inc}
 
 const
@@ -35,19 +33,6 @@ const
   sLineBreak = LineEnding;
   DefaultTextLineBreakStyle : TTextLineBreakStyle = tlbsLF;
 
-{$else FULL_RTL}
-type
-  integer = longint;
-  hresult = integer; 
-  ttypekind = integer;
-  filerec = integer;
-  textrec = integer;
-  pbyte = ^byte;
-  pchar = ^Char;
-
-procedure fpc_lib_exit; compilerproc;
-{$endif FULL_RTL}
-
 procedure DebugWrite(const P: PChar);
 procedure DebugWriteLn(const P: PChar);
 procedure DebugWriteChar(Ch: Char);
@@ -76,8 +61,6 @@ function fd_write(fd: __wasi_fd_t;
                   iovs_len: size_t;
                   nwritten: P__wasi_size_t): __wasi_errno_t; external 'wasi_unstable';
 
-{$ifdef FULL_RTL}
-
 {$I system.inc}
 
 function GetProcessID: SizeUInt;
@@ -116,23 +99,6 @@ function CheckInitialStkLen(stklen : SizeUInt) : SizeUInt;
 begin
 end;
 
-{$else FULL_RTL}
-procedure fpc_lib_exit; compilerproc;
-begin
-end;
-
-function StrLen(P: PChar): size_t;
-var
-  i: size_t;
-begin
-  i := 0;
-  while p[i]<>#0 do
-    Inc(i);
-  StrLen := i;
-end;
-{$endif FULL_RTL}
-
-
 procedure DebugWrite(const P: PChar);
 var
   our_iov: __wasi_ciovec_t;