aboutsummaryrefslogtreecommitdiff
path: root/slof
diff options
context:
space:
mode:
authorNikunj A Dadhania <nikunj@linux.vnet.ibm.com>2013-08-30 15:54:54 +0530
committerAlexey Kardashevskiy <aik@ozlabs.ru>2013-10-09 14:07:02 +1100
commit8fa0ee8b2bf134a8506e6e7345b357e43c4d7e34 (patch)
tree1d4642ebe223baddb86d0785efaec91d86b28a97 /slof
parent887e3b2089c3898a9df280feed72a13bcd6b3eaf (diff)
downloadSLOF-8fa0ee8b2bf134a8506e6e7345b357e43c4d7e34.zip
SLOF-8fa0ee8b2bf134a8506e6e7345b357e43c4d7e34.tar.gz
SLOF-8fa0ee8b2bf134a8506e6e7345b357e43c4d7e34.tar.bz2
Add ibm,client-architecture-support method
Signed-off-by: Nikunj A Dadhania <nikunj@linux.vnet.ibm.com>
Diffstat (limited to 'slof')
-rw-r--r--slof/fs/archsupport.fs20
-rw-r--r--slof/fs/root.fs1
2 files changed, 21 insertions, 0 deletions
diff --git a/slof/fs/archsupport.fs b/slof/fs/archsupport.fs
new file mode 100644
index 0000000..4d18c74
--- /dev/null
+++ b/slof/fs/archsupport.fs
@@ -0,0 +1,20 @@
+4096 VALUE size
+: ibm,client-architecture-support ( vec -- err? )
+ \ Store require parameters in nvram
+ \ to come back to right boot device
+
+ \ Allocate memory for H_CALL
+ size alloc-mem ( vec memaddr )
+ swap over
+ \ FIXME: convert memaddr to phys
+ size ( memaddr vec memaddr size )
+ \ make h_call to hypervisor
+ hv-cas 0= IF
+ ." hv-cas succeeded " cr
+ \ Make required changes
+ FALSE
+ ELSE
+ ." hv-cas failed " TRUE
+ THEN
+ >r size free-mem r>
+;
diff --git a/slof/fs/root.fs b/slof/fs/root.fs
index 8154763..1ae28fa 100644
--- a/slof/fs/root.fs
+++ b/slof/fs/root.fs
@@ -77,6 +77,7 @@ finish-device
: open true ;
: close ;
+#include <archsupport.fs>
\ Finish root
finish-device