r382 - openbios-devel/arch/x86

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