Add comments to indicate where the flag for later abort" originates.

MFC after: 3 days X-MFC-to: stable/10
2015-06-02 22:23:20 +00:00 · 2015-06-02 22:23:20 +00:00 · 46c39cc077
commit 46c39cc077
parent 37be506339
1 changed files with 3 additions and 3 deletions
--- a/sys/boot/forth/support.4th
+++ b/sys/boot/forth/support.4th
@ -1437,12 +1437,12 @@ also builtins
  abort" Unable to load a kernel!"
 ;

-: load_xen ( -- )
+: load_xen ( -- flag )
  s" xen_kernel" getenv dup -1 <> if
-    1 1 load
+    1 1 load ( c-addr/u flag N -- flag )
  else
    drop
-    0
+    0 ( -1 -- flag )
  then
 ;