summaryrefslogtreecommitdiffstats
path: root/qemu/roms/SLOF/board-js2x/slof/ipmi-kcs.fs
diff options
context:
space:
mode:
Diffstat (limited to 'qemu/roms/SLOF/board-js2x/slof/ipmi-kcs.fs')
-rw-r--r--qemu/roms/SLOF/board-js2x/slof/ipmi-kcs.fs57
1 files changed, 0 insertions, 57 deletions
diff --git a/qemu/roms/SLOF/board-js2x/slof/ipmi-kcs.fs b/qemu/roms/SLOF/board-js2x/slof/ipmi-kcs.fs
deleted file mode 100644
index cf9d5af5a..000000000
--- a/qemu/roms/SLOF/board-js2x/slof/ipmi-kcs.fs
+++ /dev/null
@@ -1,57 +0,0 @@
-\ *****************************************************************************
-\ * Copyright (c) 2004, 2008 IBM Corporation
-\ * All rights reserved.
-\ * This program and the accompanying materials
-\ * are made available under the terms of the BSD License
-\ * which accompanies this distribution, and is available at
-\ * http://www.opensource.org/licenses/bsd-license.php
-\ *
-\ * Contributors:
-\ * IBM Corporation - initial implementation
-\ ****************************************************************************/
-
-
-\ IPMI KCS interface to the BMC.
-
-new-device
- ca8 1 set-unit
-
- : open true ;
- : close ;
-
- create descr-buf 100 allot
-
- : rtas-get-bmc-version ( -- adr len )
- descr-buf 100 rtas-get-blade-descr ( len status )
- IF
- drop 0 0
- ELSE
- descr-buf 9 + swap 11 - ( adr len )
- THEN
- ;
-
- ' rtas-get-bmc-version to bmc-version
-
- s" system-controller" 2dup device-name device-type
- \ s" IBM,BMC." get-build-name $cat encode-string s" model" property
- \ s" IBM,BMC.12345" encode-string s" model" property
- s" IBM,BMC." bmc-version $cat encode-string s" model" property
- 0 0 s" ranges" property
-
- new-device
-
- : open true ;
- : close ;
-
- s" ipmi" 2dup device-name device-type
- s" ipmi-kcs" compatible
-
- 1 encode-int ca8 encode-int+ 1 encode-int+ s" reg" property
- 4 encode-int s" reg-spacing" property
- s" IBM,BMC." bmc-version $cat encode-string s" model" property
-
- s" ipmi" get-node node>path set-alias
-
- finish-device
-
-finish-device