Return to init.fs CVS log

Up to [Qemu by Fabrice Bellard] / qemu / roms / openbios / arch / sparc64

Annotation of qemu/roms/openbios/arch/sparc64/init.fs, revision 1.1.1.1

1.1       root        1: \ va>tte-data defer MMU virtual to physical address hook for Solaris
                      2: \ We need to make sure this is in the global wordlist
                      3: active-package 0 active-package!
                      4: defer va>tte-data
                      5: 0 to va>tte-data
                      6: active-package!
                      7: 
                      8: :noname
                      9:   ."   Type 'help' for detailed information" cr
                     10:   \ ."   boot secondary slave cdrom: " cr
                     11:   \ ."    0 >  boot hd:2,\boot\vmlinuz root=/dev/hda2" cr
                     12:   ; DIAG-initializer
                     13: 
                     14: : make-openable ( path )
                     15:   find-dev if
                     16:     begin ?dup while
                     17:       \ install trivial open and close methods
                     18:       dup active-package! is-open
                     19:       parent
                     20:     repeat
                     21:   then
                     22: ;
                     23: 
                     24: : preopen ( chosen-str node-path )
                     25:   2dup make-openable
                     26: 
                     27:   " /chosen" find-device
                     28:   open-dev ?dup if
                     29:     encode-int 2swap property
                     30:   else
                     31:     2drop
                     32:   then
                     33: ;
                     34: 
                     35: :noname
                     36:   set-defaults
                     37: ; PREPOST-initializer
                     38: 
                     39: \ preopen device nodes (and store the ihandles under /chosen)
                     40: :noname
                     41:   " memory" " /memory" preopen
                     42: 
                     43: ; SYSTEM-initializer
                     44: 
                     45: \ use the tty interface if available
                     46: : activate-tty-interface
                     47:   " /packages/terminal-emulator" find-dev if drop
                     48:   then
                     49: ;
                     50: 
                     51: device-end
                     52: 
                     53: : rmap@    ( virt -- rmentry )
                     54:   drop 0
                     55:   ;

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.