diff options
author | RajithaY <rajithax.yerrumsetty@intel.com> | 2017-04-25 03:31:15 -0700 |
---|---|---|
committer | Rajitha Yerrumchetty <rajithax.yerrumsetty@intel.com> | 2017-05-22 06:48:08 +0000 |
commit | bb756eebdac6fd24e8919e2c43f7d2c8c4091f59 (patch) | |
tree | ca11e03542edf2d8f631efeca5e1626d211107e3 /qemu/roms/openbios/forth/system | |
parent | a14b48d18a9ed03ec191cf16b162206998a895ce (diff) |
Adding qemu as a submodule of KVMFORNFV
This Patch includes the changes to add qemu as a submodule to
kvmfornfv repo and make use of the updated latest qemu for the
execution of all testcase
Change-Id: I1280af507a857675c7f81d30c95255635667bdd7
Signed-off-by:RajithaY<rajithax.yerrumsetty@intel.com>
Diffstat (limited to 'qemu/roms/openbios/forth/system')
-rw-r--r-- | qemu/roms/openbios/forth/system/build.xml | 16 | ||||
-rw-r--r-- | qemu/roms/openbios/forth/system/ciface.fs | 371 | ||||
-rw-r--r-- | qemu/roms/openbios/forth/system/main.fs | 60 |
3 files changed, 0 insertions, 447 deletions
diff --git a/qemu/roms/openbios/forth/system/build.xml b/qemu/roms/openbios/forth/system/build.xml deleted file mode 100644 index f15440a07..000000000 --- a/qemu/roms/openbios/forth/system/build.xml +++ /dev/null @@ -1,16 +0,0 @@ -<build> - - <!-- - build description for openbios system bindings - - Copyright (C) 2004-2005 by Stefan Reinauer - See the file "COPYING" for further information about - the copyright and warranty status of this work. - --> - - <dictionary name="openbios" target="forth"> - <object source="main.fs"/> - <object source="ciface.fs"/> - </dictionary> - -</build> diff --git a/qemu/roms/openbios/forth/system/ciface.fs b/qemu/roms/openbios/forth/system/ciface.fs deleted file mode 100644 index 85a607627..000000000 --- a/qemu/roms/openbios/forth/system/ciface.fs +++ /dev/null @@ -1,371 +0,0 @@ - -0 value ciface-ph - -dev /openprom/ -new-device -" client-services" device-name - -active-package to ciface-ph - -\ ------------------------------------------------------------- -\ private stuff -\ ------------------------------------------------------------- - -private - -variable callback-function - -: ?phandle ( phandle -- phandle ) - dup 0= if ." NULL phandle" -1 throw then -; -: ?ihandle ( ihandle -- ihandle ) - dup 0= if ." NULL ihandle" -2 throw then -; - -\ copy and null terminate return string -: ci-strcpy ( buf buflen str len -- len ) - >r -rot dup - ( str buf buflen buflen R: len ) - r@ min swap - ( str buf n buflen R: len ) - over > if - ( str buf n ) - 2dup + 0 swap c! - then - move r> -; - -0 value memory-ih -0 value mmu-ih - -:noname ( -- ) - " /chosen" find-device - - " mmu" active-package get-package-property 0= if - decode-int nip nip to mmu-ih - then - - " memory" active-package get-package-property 0= if - decode-int nip nip to memory-ih - then - device-end -; SYSTEM-initializer - -: safetype - ." <" dup cstrlen dup 20 < if type else 2drop ." BAD" then ." >" -; - -: phandle-exists? ( phandle -- found? ) - false swap 0 - begin iterate-tree ?dup while - ( found? find-ph current-ph ) - over over = if - rot drop true -rot - then - repeat - drop -; - -\ ------------------------------------------------------------- -\ public interface -\ ------------------------------------------------------------- - -external - -\ ------------------------------------------------------------- -\ 6.3.2.1 Client interface -\ ------------------------------------------------------------- - -\ returns -1 if missing -: test ( name -- 0|-1 ) - dup cstrlen ciface-ph find-method - if drop 0 else -1 then -; - -\ ------------------------------------------------------------- -\ 6.3.2.2 Device tree -\ ------------------------------------------------------------- - -: peer peer ; -: child child ; -: parent parent ; - -: getproplen ( name phandle -- len|-1 ) - over cstrlen swap - ?phandle get-package-property - if -1 else nip then -; - -: getprop ( buflen buf name phandle -- size|-1 ) - \ detect phandle == -1 - dup -1 = if - 2drop 2drop -1 exit - then - - \ return -1 if phandle is 0 (MacOS actually does this) - ?dup 0= if drop 2drop -1 exit then - - over cstrlen swap - ?phandle get-package-property if 2drop -1 exit then - ( buflen buf prop proplen ) - >r swap rot r> - ( prop buf buflen proplen ) - dup >r min move r> -; - -\ 1 OK, 0 no more prop, -1 prev invalid -: nextprop ( buf prev phandle -- 1|0|-1 ) - >r - dup 0= if 0 else dup cstrlen then - - ( buf prev prev_len ) - - \ verify that prev exists (overkill...) - dup if - 2dup r@ get-package-property if - r> 2drop drop - 0 swap c! - -1 exit - else - 2drop - then - then - - ( buf prev prev_len ) - - r> next-property if - ( buf name name_len ) - dup 1+ -rot ci-strcpy drop 1 - else - ( buf ) - 0 swap c! - 0 - then -; - -: setprop ( len buf name phandle -- size ) - 3 pick >r - >r >r swap encode-bytes \ ( prop-addr prop-len R: phandle name ) - r> dup cstrlen r> - (property) - r> -; - -: finddevice ( dev_spec -- phandle|-1 ) - dup cstrlen - \ ." FIND-DEVICE " 2dup type - find-dev 0= if -1 then - \ ." -- " dup . cr -; - -: instance-to-package ( ihandle -- phandle ) - ?ihandle ihandle>phandle -; - -: package-to-path ( buflen buf phandle -- length ) - \ XXX improve error checking - dup 0= if 3drop -1 exit then - >r swap r> - get-package-path - ( buf buflen str len ) - ci-strcpy -; - -: canon ( buflen buf dev_specifier -- len ) - dup cstrlen find-dev if - ( buflen buf phandle ) - package-to-path - else - 2drop -1 - then -; - -: instance-to-path ( buflen buf ihandle -- length ) - \ XXX improve error checking - dup 0= if 3drop -1 exit then - >r swap r> - get-instance-path - \ ." INSTANCE: " 2dup type cr dup . - ( buf buflen str len ) - ci-strcpy -; - -: instance-to-interposed-path ( buflen buf ihandle -- length ) - \ XXX improve error checking - dup 0= if 3drop -1 exit then - >r swap r> - get-instance-interposed-path - ( buf buflen str len ) - ci-strcpy -; - -: call-method ( ihandle method -- xxxx catch-result ) - dup 0= if ." call of null method" -1 exit then - dup >r - dup cstrlen - \ ." call-method " 2dup type cr - rot ?ihandle ['] $call-method catch dup if - \ not necessary an error but very useful for debugging... - ." call-method " r@ dup cstrlen type ." : exception " dup . cr - then - r> drop -; - - -\ ------------------------------------------------------------- -\ 6.3.2.3 Device I/O -\ ------------------------------------------------------------- - -: open ( dev_spec -- ihandle|0 ) - dup cstrlen open-dev -; - -: close ( ihandle -- ) - close-dev -; - -: read ( len addr ihandle -- actual ) - >r swap r> - dup ihandle>phandle " read" rot find-method - if swap call-package else 3drop -1 then -; - -: write ( len addr ihandle -- actual ) - >r swap r> - dup ihandle>phandle " write" rot find-method - if swap call-package else 3drop -1 then -; - -: seek ( pos_lo pos_hi ihandle -- status ) - dup ihandle>phandle " seek" rot find-method - if swap call-package else 3drop -1 then -; - - -\ ------------------------------------------------------------- -\ 6.3.2.4 Memory -\ ------------------------------------------------------------- - -: claim ( align size virt -- baseaddr|-1 ) - -rot swap - ciface-ph " cif-claim" rot find-method - if execute else 3drop -1 then -; - -: release ( size virt -- ) - swap - ciface-ph " cif-release" rot find-method - if execute else 2drop -1 then -; - -\ ------------------------------------------------------------- -\ 6.3.2.5 Control transfer -\ ------------------------------------------------------------- - -: boot ( bootspec -- ) - ." BOOT" -; - -: enter ( -- ) - ." ENTER" -; - -\ exit ( -- ) is defined later (clashes with builtin exit) - -: chain ( virt size entry args len -- ) - ." CHAIN" -; - -\ ------------------------------------------------------------- -\ 6.3.2.6 User interface -\ ------------------------------------------------------------- - -: interpret ( xxx cmdstring -- ??? catch-reult ) - dup cstrlen - \ ." INTERPRETE: --- " 2dup type - ['] evaluate catch dup if - \ this is not necessary an error... - ." interpret: exception " dup . ." caught" cr - - \ Force back to interpret state on error, otherwise the next call to - \ interpret gets confused if the error occurred in compile mode - 0 state ! - then - \ ." --- " cr -; - -: set-callback ( newfunc -- oldfunc ) - callback-function @ - swap - callback-function ! -; - -\ : set-symbol-lookup ( sym-to-value -- value-to-sym ) ; - - -\ ------------------------------------------------------------- -\ 6.3.2.7 Time -\ ------------------------------------------------------------- - -: milliseconds ( -- ms ) - get-msecs -; - -\ ------------------------------------------------------------- -\ arch? -\ ------------------------------------------------------------- - -: start-cpu ( xxx xxx xxx --- ) - ." Start CPU unimplemented" cr - 3drop -; - -\ ------------------------------------------------------------- -\ special -\ ------------------------------------------------------------- - -: exit ( -- ) - ." EXIT" - - \ Execute (exit) hook if one exists - s" (exit)" $find if - execute - else - 2drop - then - - outer-interpreter -; - -: test-method ( cstring-method phandle -- missing? ) - swap dup cstrlen rot - - \ Check for incorrect phandle - dup phandle-exists? false = if - -1 throw - then - - find-method 0= if -1 else drop 0 then -; - -finish-device -device-end - - -\ ------------------------------------------------------------- -\ entry point -\ ------------------------------------------------------------- - -: client-iface ( [args] name len -- [args] -1 | [rets] 0 ) - ciface-ph find-method 0= if -1 exit then - catch ?dup if - cr ." Unexpected client interface exception: " . -2 cr exit - then - 0 -; - -: client-call-iface ( [args] name len -- [args] -1 | [rets] 0 ) - ciface-ph find-method 0= if -1 exit then - execute - 0 -; diff --git a/qemu/roms/openbios/forth/system/main.fs b/qemu/roms/openbios/forth/system/main.fs deleted file mode 100644 index 122ab1fa3..000000000 --- a/qemu/roms/openbios/forth/system/main.fs +++ /dev/null @@ -1,60 +0,0 @@ -\ tag: misc useful functions -\ -\ Open Firmware Startup -\ -\ Copyright (C) 2003 Samuel Rydh -\ -\ See the file "COPYING" for further information about -\ the copyright and warranty status of this work. -\ - -variable PREPOST-list -variable POST-list -variable SYSTEM-list -variable DIAG-list - -: PREPOST-initializer ( xt -- ) - PREPOST-list list-add , -; - -: POST-initializer ( xt -- ) - POST-list list-add , -; - -: SYSTEM-initializer ( xt -- ) - SYSTEM-list list-add , -; - -: DIAG-initializer ( xt -- ) - DIAG-list list-add , -; - - -\ OpenFirmware entrypoint -: initialize-of ( startmem endmem -- ) - initialize-forth - - PREPOST-list begin list-get while @ execute repeat - POST-list begin list-get while @ execute repeat - SYSTEM-list begin list-get while @ execute repeat - - \ evaluate nvramrc script - use-nvramrc? if - nvramrc evaluate - then - - \ probe-all etc. - suppress-banner? 0= if - probe-all - install-console - banner - then - - DIAG-list begin list-get while @ execute repeat - - auto-boot? if - boot-command evaluate - then - - outer-interpreter -; |