forth: Start to add load_xen

diff --git a/sys/boot/forth/loader.4th b/sys/boot/forth/loader.4th
index 55778ff4b377adf2028e3eea7947384d198f9c9a..9f28fe2deece0f5bb9d0daaa33bbc3728802bcc5 100644 (file)
--- a/sys/boot/forth/loader.4th
+++ b/sys/boot/forth/loader.4th
@@ -143,6 +143,7 @@ include /boot/check-password.4th
   \ was succesfully loaded!
   any_conf_read? if
     s" loader_delay" getenv -1 = if
+      load_xen
       load_kernel
       load_modules
     else

diff --git a/sys/boot/forth/support.4th b/sys/boot/forth/support.4th
index 645e14d8beba6774c9205e8fa1a19e44775d9741..481b794924f60070d4b5f4b4100807e1b382226a 100644 (file)
--- a/sys/boot/forth/support.4th
+++ b/sys/boot/forth/support.4th
@@ -1437,6 +1437,13 @@ also builtins
   abort" Unable to load a kernel!"
 ;
 
+: load_xen ( -- ) ( throws abort )
+  s" xen_load" getenv dup -1 = if
+    drop
+  else
+    abort" Unable to load Xen!"
+  then
+
 : set_defaultoptions  ( -- )
   s" kernel_options" getenv dup -1 = if
     drop