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

* our_nwritten converted to a local var

Browse Source 
git-svn-id: branches/wasm@47930 -
This commit is contained in:
nickysn 2020-12-31 18:37:07 +00:00
parent acb13602ea
commit 82e9cb0189
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/wasi/system.pp
View File

@ -31,7 +31,6 @@ type
var
our_iov: __wasi_ciovec_t;
our_nwritten: longint;
function fd_write(fd: __wasi_fd_t;
iovs: P__wasi_ciovec_t;
@ -51,6 +50,8 @@ begin
end;
procedure DebugWrite(const P: PChar);
var
our_nwritten: longint;
begin
our_iov.buf := P;
our_iov.buf_len := StrLen(P);