Lines Matching refs:dup
93 does> create here swap dup @ allot cell+ @ execute
95 : member: create dup , over , + does> cell+ @ + ;
218 : 2r@ postpone 2r> postpone 2dup postpone 2>r ; immediate
240 2dup + 0= if
246 else dup 0= if
249 dup ( taddr' tlen' tlen' )
250 tlen swap - dup
272 dup 0= if 2drop 2drop false exit then
275 swap dup c@ dup 32 = over 9 = or over 10 = or
282 2 pick tuck - -rot + swap over c@ dup 32 =
286 swap dup c@ dup 32 = over 9 = or over 10 = or
296 s" console" getenv dup -1 <> if
299 \ s" boot_serial" getenv dup -1 <> if
303 \ s" boot_multicons" getenv dup -1 <> if
311 2dup s" efi" compare 0<> >r
360 : strfree { var -- } var .addr @ ?dup if free-memory 0 0 var strset then ;
440 dup 0= if exit then
454 dup 0= if 2drop exit then
479 dup -1 = if EREAD throw then
480 dup 0= if true to end_of_file? then
746 dup 0 \ start with an empty string and append the pieces
770 dup module_options !
773 dup last_module_option @ module.next !
784 2dup s' "YES"' compare >r
785 2dup s' "yes"' compare >r
786 2dup s" YES" compare >r
793 dup
795 dup module.name strget
804 dup sizeof module erase
805 dup append_to_module_options_list
806 dup set_module_name
811 ?dup 0= if new_module_option then
961 ['] load_conf catch dup .
972 2dup ( addr len addr len )
981 strget dup verbose? or if
1003 ?dup
1024 ?dup
1027 dup module.next @
1085 dup 0= if true to any_conf_read? drop exit then
1087 dup ESYNTAX = if
1091 dup ESETERROR = if
1095 dup EREAD = if
1098 dup EOPEN = if
1102 dup EFREE = abort" Fatal error freeing memory"
1103 dup ENOMEM = abort" Out of memory"
1113 get_next_file ?dup ( addr len 1 | 0 )
1135 s" nextboot_enable" getenv dup -1 <> if
1136 2dup s' "YES"' compare >r
1137 2dup s' "yes"' compare >r
1138 2dup s" YES" compare >r
1139 2dup s" yes" compare r> r> r> and and and 0= to nextboot?
1175 dup module.beforeload .len @ if
1176 dup module.beforeload strget
1182 dup module.afterload .len @ if
1183 dup module.afterload strget
1189 dup module.loaderror .len @ if
1190 dup module.loaderror strget
1197 dup module.name strtype
1215 dup module.loaderror .len @ if
1228 dup EBEFORELOAD = if
1231 dup module.name strtype
1232 dup module.loadname .len @ if
1233 ." (" dup module.loadname strtype ." )"
1237 dup module.beforeload strtype cr \ XXX there was a typo here
1241 dup EAFTERLOAD = if
1244 dup module.name .addr @ over module.name .len @ type
1245 dup module.loadname .len @ if
1246 ." (" dup module.loadname strtype ." )"
1250 dup module.afterload strtype cr
1263 ?dup
1265 dup module.flag @ if
1282 dup -1 = if 0 swap exit then
1289 dup -1 = if ( it wasn't set )
1314 addr len [char] ; strchr dup if ( a1 len1 )
1326 dup 0 <> ( addr 0 addr len )
1333 dup 0 <> if
1349 ." Kernel : " >r 2dup type r> cr
1350 dup 2 = if ." Flags : " >r 2over type r> cr then
1354 dup 0=
1382 s" bootfile" getenv dup -1 <> if
1385 dup 0= if exit then
1389 s" kernel" getenv dup -1 <> if
1432 oldmodulepath nip dup -1 = if
1442 2dup to newmodulepath
1461 2dup to newmodulepath
1513 dup 0= if exit else drop then
1525 dup -1 = if drop 0 else 1 then
1533 dup -1 = if 0 swap then
1550 s" xen_kernel" getenv dup -1 <> if
1564 s" kernel_options" getenv dup -1 = if
1573 2dup = if 0 0 exit then \ out of range
1574 dup >r
1587 dup
1604 dup 0= if 0 exit then
1624 dup
1650 ?dup if
1652 2dup s" temp_options" setenv
1667 ?dup while
1676 s" temp_options" getenv dup -1 <> if
1682 ?dup 0= if ( success )
1688 ?dup 0= if ['] load_modules catch then