Author: blueswirl Date: 2009-01-10 22:00:46 +0100 (Sat, 10 Jan 2009) New Revision: 382
Modified: openbios-devel/arch/x86/init.fs Log: Fix x86 build
Modified: openbios-devel/arch/x86/init.fs =================================================================== --- openbios-devel/arch/x86/init.fs 2009-01-10 20:40:11 UTC (rev 381) +++ openbios-devel/arch/x86/init.fs 2009-01-10 21:00:46 UTC (rev 382) @@ -74,66 +74,3 @@ :noname " keyboard" input ; CONSOLE-IN-initializer - - -dev /pci - -\ simple isa bus node -new-device - " isa" device-name - " isa" device-type - 2 encode-int " #address-cells" property - 1 encode-int " #size-cells" property - - external - : open true ; - : close ; - -finish-device - -: ?devalias ( alias-str alias-len device-str device-len -- - \ alias-str alias-len false | true ) - active-package >r - " /aliases" find-device - \ 2dup ." Checking " type - 2dup find-dev if \ check if device exists - drop - 2over find-dev if \ do we already have an alias? - \ ." alias exists" cr - drop 2drop false - else - \ ." device exists" cr - encode-string - 2swap property - true - then - else - \ ." device doesn't exist" cr - 2drop false - then - r> active-package! - ; - -:noname - " hd" - " /pci/isa/ide0/disk@0" ?devalias not if - " /pci/isa/ide0/disk@1" ?devalias not if - " /pci/isa/ide1/disk@0" ?devalias not if - " /pci/isa/ide1/disk@1" ?devalias not if - 2drop ." No disk found." cr - then - then - then - then - - " cdrom" - " /pci/isa/ide0/cdrom@0" ?devalias not if - " /pci/isa/ide0/cdrom@1" ?devalias not if - " /pci/isa/ide1/cdrom@0" ?devalias not if - " /pci/isa/ide1/cdrom@1" ?devalias not if - 2drop ." No cdrom found" cr - then - then - then - then -; SYSTEM-initializer