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

* i in strlen converted to a local variable, because that now works

Browse Source 
git-svn-id: branches/wasm@47928 -
This commit is contained in:
nickysn 2020-12-31 18:24:16 +00:00
parent 31bc357c1b
commit 08ae48aebf
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/wasi/system.pp
View File

@ -32,7 +32,6 @@ type
var
our_iov: __wasi_ciovec_t;
our_nwritten: longint;
i: size_t;
function fd_write(fd: __wasi_fd_t;
iovs: P__wasi_ciovec_t;
@ -42,6 +41,7 @@ function fd_write(fd: __wasi_fd_t;
function StrLen(P: PChar): size_t;
var
lp: pchar;
i: size_t;
begin
lp := p;
i := 0;