1 files changed, 0 insertions, 116 deletions
diff --git a/qemu/roms/openbios/arch/ppc/pearpc/pearpc.fs b/qemu/roms/openbios/arch/ppc/pearpc/pearpc.fs
deleted file mode 100644
index 0d018b1c3..000000000
--- a/qemu/roms/openbios/arch/ppc/pearpc/pearpc.fs
+++ /dev/null
@@ -1,116 +0,0 @@
-\   pearpc specific initialization code
-\ 
-\   Copyright (C) 2005 Stefan Reinauer
-\ 
-\   This program is free software; you can redistribute it and/or
-\   modify it under the terms of the GNU General Public License
-\   as published by the Free Software Foundation
-\ 
-
-
-\ -------------------------------------------------------------------------
-\ initialization
-\ -------------------------------------------------------------------------
-
-: make-openable ( path )
-  find-dev if
-    begin ?dup while
-      \ install trivial open and close methods
-      dup active-package! is-open
-      parent
-    repeat
-  then
-;
-
-: preopen ( chosen-str node-path )
-  2dup make-openable
-  
-  " /chosen" find-device
-  open-dev ?dup if
-    encode-int 2swap property
-  else
-    2drop
-  then
-;
-
-\ preopen device nodes (and store the ihandles under /chosen)
-:noname
-  " rtc" " /pci/isa/rtc" preopen
-  " memory" " /memory" preopen
-  " mmu" " /cpu@0" preopen
-  \ " stdout" " /packages/terminal-emulator" preopen
-  " stdout" " /pci/pci6666,6666" preopen
-  " stdin" " /pci/via-cuda/adb" preopen
-
-; SYSTEM-initializer
-
-
-\ -------------------------------------------------------------------------
-\ device tree fixing
-\ -------------------------------------------------------------------------
-
-\ add decode-address methods
-: (make-decodable) ( phandle -- )
-
-    dup " #address-cells" rot get-package-property 0= if
-      decode-int nip nip
-      over " decode-unit" rot find-method if 2drop else
-        ( save phandle ncells )
-      
-        over active-package!
-        case
-          1 of ['] parse-hex " decode-unit" is-xt-func endof
-          3 of
-            " bus-range" active-package get-package-property 0= if
-              decode-int nip nip
-              ['] encode-unit-pci " encode-unit" is-xt-func
-              " decode-unit" is-func-begin
-                ['] (lit) , ,
-                ['] decode-unit-pci-bus ,
-              is-func-end
-            then
-          endof
-        endcase
-      then
-    then
-    drop
-;
-    
-: init-pearpc-tree ( -- )
-  active-package
-  
-  iterate-tree-begin
-  begin ?dup while
-
-    dup (make-decodable)
-    
-    iterate-tree
-  repeat
-
-  active-package!
-;
-
-\ use the tty interface if available
-: activate-tty-interface
-  " /packages/terminal-emulator" find-dev if drop
-    " /pci/via-cuda/adb" " input-device" $setenv
-    " /pci/pci6666,6666" " output-device" $setenv
-  then
-;
-
-:noname
-  " keyboard" input
-; CONSOLE-IN-initializer
-
-
-\ -------------------------------------------------------------------------
-\ pre-booting
-\ -------------------------------------------------------------------------
-
-: update-chosen
-  " /chosen" find-device
-  stdin @ encode-int " stdin" property
-  stdout @ encode-int " stdout" property
-  " /pci/isa/interrupt-controller" find-dev if encode-int " interrupt-controller" property then
-  device-end
-;