Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2024-12-26 21:58:42 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

fixed a bug of write-file

Browse source
This commit is contained in:
Koichi Nakamura 2021-12-19 23:24:44 +09:00
parent 3ea474ed49
commit 470086b4f8
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
bootstrap.fs
View file

@ -1793,13 +1793,13 @@ end-struct file%
dup writable? unless WRITE-FILE-ERROR exit then dup writable? unless WRITE-FILE-ERROR exit then
over 0<= if 3drop WRITE-FILE-ERROR exit then over 0<= if 3drop WRITE-FILE-ERROR exit then
dup write-buffer-content BUFSIZE swap - ( buf space ) dup write-buffer-content nip BUFSIZE swap - ( space )
3 pick 2 pick
( c-addr u file buf space u ) ( c-addr u file space u )
>= if >= if
\ enogu space, copy u-bytes from c-addr to buf \ enogu space, copy u-bytes from c-addr to buf
( c-addr u file buf ) ( c-addr u file )
3 pick swap 3 pick memcpy 2 pick over file>wbeg @ 3 pick memcpy
\ increment wbeg \ increment wbeg
swap succ-write-buffer drop success exit swap succ-write-buffer drop success exit
then then
@ -2464,7 +2464,7 @@ BLOCK-SIZE remaining-size !
6 constant SYS-CLOSE 6 constant SYS-CLOSE
: (open) ( c-addr fam -- fd ) : (open) ( c-addr fam -- fd )
%110100100 .s -rot swap SYS-OPEN syscall3 %110100100 -rot swap SYS-OPEN syscall3
; ;
: (close) ( obj -- n ) : (close) ( obj -- n )
@ -2477,7 +2477,7 @@ BLOCK-SIZE remaining-size !
: (write) ( c-addr u1 fd -- n ) : (write) ( c-addr u1 fd -- n )
>r swap r> \ ( u1 u1 c-addr fd ) >r swap r> \ ( u1 u1 c-addr fd )
SYS-WRITE syscall3 \ ( u1 u2 ) SYS-WRITE syscall3 \ ( u2 )
; ;
[then] \ End of environment dependent code [then] \ End of environment dependent code