Lines Matching refs:dup
80 : l>d ( l -- d.lo d.hi ) dup 0< if -1 else 0 then ;
82 : d@ ( addr -- d.lo d.hi ) dup l@ swap la1+ l@ little-endian? invert if swap then ;
88 ?dup if \ Shifting by 0 doesn't appear to work properly.
90 -rot 2dup << ( d.hi' d.lo n d.lo' )
96 ?dup if \ Shifting by 0 doesn't appear to work properly.
98 2dup >> -rot ( d.lo' d.hi' d.hi n )
103 rot swap 2dup = if
109 rot swap 2dup = if
129 dup 2over swap -rot ( s1 l1 d s1 d l1 )
145 dup 2over 0= if ( s1 l1 c c s1 )
156 dup
157 begin dup c@ 0<> while + repeat
213 : cgdmin ( cg fs -- d-1st-data-block ) dup fs_dblkno l@ l>d 2swap cgstart d+ ;
214 : cgimin ( cg fs -- d-inode-block ) dup fs_iblkno l@ l>d 2swap cgstart d+ ;
215 : cgsblock ( cg fs -- d-super-block ) dup fs_sblkno l@ l>d 2swap cgstart d+ ;
216 : cgstod ( cg fs -- d-cg-block ) dup fs_cblkno l@ l>d 2swap cgstart d+ ;
238 >r -rot 2dup ndaddr l>d d> ( inop d-lbn >ndaddr? )
252 2dup ( ino fs ino fs )
261 dup ( d-inode-blk mod fs fs )
291 >r -rot 2dup ndaddr l>d d> ( inop d-lbn >ndaddr? )
320 2dup fs_old_cgmask l@ invert and ( cg fs stuff )
357 2dup indir-addr d@ d<> if ( indx indir.hi indir.lo )
372 dup ndaddr < if ( fileblock )
377 dup sb-buf fs_nindir l@ < if ( fileblock' )
381 dup sb-buf fs_nindir - ( fileblock'' )
383 dup sb-buf fs_nindir l@ dup * >= if ( fileblock'' )
391 rot dup sb-buf fs_nindir u/mod ( ib2.lo ib2.hi indx2 indx1 )
410 dup l>d r@ lblkno drop ( seek blk )
411 dup l>d cur-inode r@ blksize ( seek blk blksize )
415 2dup or 0= if ( seek blksize fsblk.lo fsblk.hi )
417 2drop dup
446 >r dup r@ ino-to-fsba ( ino fsblk.lo fsblck.hi )
448 2dup cur-blockno d@ d<> if ( ino dblk.lo dblk.hi )
454 2dup cur-blockno d! ( ino dblk.lo dblk.hi )
476 2dup lfs_unused_daddr l>d d= if 2drop false then
483 >r dup r@ lfs_ifile l@ = if ( ino r: fs )
487 dup r@ find-inode-sector 0= abort" Could not find inode sector!"
490 2dup cur-blockno d@ d<> if ( ino dblk.lo dblk.hi )
496 2dup cur-blockno d! ( ino dblk.lo dblk.hi )
503 rot 1- ?dup 0= abort" Could not find inode!"
536 sb-buf fs_old_npsect dup l@ sb-buf fs_old_nsect l@ max swap l!
537 sb-buf fs_old_interleave dup l@ 1 max swap l!
543 dup ndaddr um* 1 d- sb-buf fs_maxfilesize d!
545 sb-buf fs_nindir l@ * dup ( sizebp sizebp )
546 sb-buf fs_maxfilesize dup d@ ( sizebp sizebp *mxfs mxfs.lo mxfs.hi )
549 sb-buf dup fs_bmask l@ invert l>d rot fs_qbmask d!
550 sb-buf dup fs_fmask l@ invert l>d rot fs_qfmask d!
615 dup lfs_magic l@ lfs_magic_value = if
616 dup lfs_version l@ case ( sb sel )
646 2dup + nip ( str len buf bufend )
648 begin dup 4 pick < while ( bufend str len direct )
649 dup d_ino l@ 0<> if ( bufend str len direct )
652 dup dup d_name swap d_namlen c@ type cr
654 2dup d_namlen c@ = if ( bufend str len direct )
655 dup d_name 2over ( bufend str len direct dname str len )
664 dup d_reclen w@ + ( bufend str len nextdirect )
677 dup 0= if ." search-directory: buf-read-file zero len" cr abort then
678 dup file-offset + to file-offset ( str len buf len )
680 2over 2swap search-dir-block ?dup if
693 dup sbsize <> if
713 begin dup -1 <> while ( -1 .. off )
725 2dup + 0 swap c! \ Nul terminate.
726 over cif-open dup 0= if ( boot-path len ihandle? )
742 sb-buf fs-bsize l@ dup maxbsize > if
746 dup fs-size < if
750 dup to cur-blocksize alloc-mem to cur-block \ Allocate cur-block
756 boot-ihandle dup -1 <> if
789 dup -rot ( oldlen right len left )
791 dup 0<> if 4 roll drop exit then
798 rootino dup sb-buf read-inode ( load-file len pino )
803 begin split-path dup 0<> while ( pino right len left len )
805 boot-debug? if ." Looking for" space 2dup type space ." in directory..." cr then
807 dup 0= abort" Bad path" ( pino right len cino )
815 dup sb-buf fs_maxsymlinklen l@ ( pino right len linklen linklen maxlinklen )
821 boot-path-str dup sb-buf fs-bsize l@
827 swap dup c@ ascii / = if \ go to root inode?
830 rot dup sb-buf read-inode ( len right pino )
839 ." Copying " dup . ." bytes to " 3 pick . cr
846 begin dup 0> while
855 2over drop 3dup swap move drop ( addr size buf len )
857 dup file-offset + to file-offset ( addr size buf len )
867 ." Loading file" space 2over type cr ." from device" space 2dup type cr
881 \ dup " to file-size " evaluate ( file-len ) \ Wassthis?
883 ." Loading " dup . ." bytes of file..." cr
896 dup 0<> if " init-program " evaluate then