Virtualization/openbios
1
0
Fork 0
mirror of https://gitlab.com/qemu-project/openbios.git synced 2024-02-13 08:34:06 +08:00
Code Issues Projects Releases Wiki Activity

Now that we have a C version of go available, rework client.fs so that it will automatically detect if a platform has execution

Browse Source 
capability based upon the existence of the lower level (go) word. Also add standard ELF image support to (go) for SPARC32, 
SPARC64 and x86.

Signed-off-by: Mark Cave-Ayland <mark.cave-ayland@siriusit.co.uk>


git-svn-id: svn://coreboot.org/openbios/trunk/openbios-devel@728 f158a5a8-5612-0410-a976-696ce0be7e32
This commit is contained in:
Mark Cave-Ayland
2010-04-02 14:03:38 +00:00
committed by Mark Cave-Ayland
parent a025a2e653
commit bedc10adae
4 changed files with 30 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
forth/debugging/client.fs
View File

@@ -97,23 +97,17 @@ variable file-size
;
: go ( -- )
state-valid @ not if exit then
elf saved-program-state >sps.file-type @ = if
[IFDEF] CONFIG_PPC
saved-program-state >sps.entry @ " (go)" evaluate
[ELSE]
." go is not yet implemented"
[THEN]
state-valid @ not if
s" No valid state has been set by load or init-program" type cr
exit
then
\ Call the architecture-specific code to launch the client image
s" (go)" $find if
execute
else
xcoff saved-program-state >sps.file-type @ = if
[IFDEF] CONFIG_PPC
saved-program-state >sps.entry @ " (go)" evaluate
[ELSE]
." go is not yet implemented"
[THEN]
else
." go is not yet implemented"
then
." go is not yet implemented"
2drop
then
;