[OpenBIOS] r382 - openbios-devel/arch/x86
svn at openbios.org
svn at openbios.org
Sat Jan 10 22:00:46 CET 2009
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 at 0" ?devalias not if
- " /pci/isa/ide0/disk at 1" ?devalias not if
- " /pci/isa/ide1/disk at 0" ?devalias not if
- " /pci/isa/ide1/disk at 1" ?devalias not if
- 2drop ." No disk found." cr
- then
- then
- then
- then
-
- " cdrom"
- " /pci/isa/ide0/cdrom at 0" ?devalias not if
- " /pci/isa/ide0/cdrom at 1" ?devalias not if
- " /pci/isa/ide1/cdrom at 0" ?devalias not if
- " /pci/isa/ide1/cdrom at 1" ?devalias not if
- 2drop ." No cdrom found" cr
- then
- then
- then
- then
-; SYSTEM-initializer
More information about the OpenBIOS
mailing list