steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

io.files.info.unix.linux: fix more M: stack effects.

db4
John Benediktsson 2011-10-13 17:55:30 -07:00
parent 2d8e7c77e8
commit f20e5df501
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/io/files/info/unix/linux/linux.factor
View File

@ -17,7 +17,7 @@ M: linux new-file-system-info linux-file-system-info new ;
M: linux file-system-statfs ( path -- byte-array ) M: linux file-system-statfs ( path -- byte-array )
\ statfs64 <struct> [ statfs64 io-error ] keep ; \ statfs64 <struct> [ statfs64 io-error ] keep ;
M: linux statfs>file-system-info ( struct -- statfs ) M: linux statfs>file-system-info ( file-system-info statfs -- file-system-info' )
{ {
[ f_type>> >>type ] [ f_type>> >>type ]
[ f_bsize>> >>block-size ] [ f_bsize>> >>block-size ]
@ -35,7 +35,7 @@ M: linux statfs>file-system-info ( struct -- statfs )
M: linux file-system-statvfs ( path -- byte-array ) M: linux file-system-statvfs ( path -- byte-array )
\ statvfs64 <struct> [ statvfs64 io-error ] keep ; \ statvfs64 <struct> [ statvfs64 io-error ] keep ;
M: linux statvfs>file-system-info ( struct -- statfs ) M: linux statvfs>file-system-info ( file-system-info statfs -- file-system-info' )
{ {
[ f_flag>> >>flags ] [ f_flag>> >>flags ]
[ f_namemax>> >>name-max ] [ f_namemax>> >>name-max ]