paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 14:09:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: branches/wasm@48300 -
This commit is contained in:
nickysn 2021-01-22 00:16:34 +00:00
parent 5794afac54
commit 8866fcbc56
1 changed files with 0 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
rtl/wasi/system.pp
View File

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