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/util | |
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/util')
-rw-r--r-- | qemu/roms/openbios/forth/util/apic.fs | 62 | ||||
-rw-r--r-- | qemu/roms/openbios/forth/util/build.xml | 19 | ||||
-rw-r--r-- | qemu/roms/openbios/forth/util/pci.fs | 92 | ||||
-rw-r--r-- | qemu/roms/openbios/forth/util/util.fs | 95 |
4 files changed, 0 insertions, 268 deletions
diff --git a/qemu/roms/openbios/forth/util/apic.fs b/qemu/roms/openbios/forth/util/apic.fs deleted file mode 100644 index 82a62aa7b..000000000 --- a/qemu/roms/openbios/forth/util/apic.fs +++ /dev/null @@ -1,62 +0,0 @@ -\ -\ ioapic and local apic tester -\ -\ Copyright (C) 2003 Stefan Reinauer -\ -\ See the file "COPYING" for further information about -\ the copyright and warranty status of this work. -\ - -hex - -fee00000 constant lapic_base -fec00000 constant ioapic_base - -: read_lapic ( regoffset -- value ) - lapic_base + l@ - ; - -: write_lapic ( value regoffset -- ) - lapic_base + l! - ; - -: read_ioapic ( regoffset -- low_value high_value ) - 2* 10 + dup - ioapic_base l! ioapic_base 4 cells + l@ - swap 1+ - ioapic_base l! ioapic_base 4 cells + l@ - ; - -: write_ioapic ( low high regoffset -- ) - 2* 10 + dup ( low high offs offs ) - ioapic_base l! rot ioapic_base 4 cells + l! ( high offs ) - 1+ - ioapic_base l! ioapic_base 4 cells + l! ( high offs ) - ; - -: test-lapic - s" Dumping local apic:" type cr - 3f0 0 do - i dup ( lapic_base + ) s" 0x" type . s" = 0x" type read_lapic space . - i 30 and 0= if cr then - 10 +loop - cr - ; - -: test-ioapic - s" Dumping io apic:" type cr - 17 0 do - i dup s" irq=" type . read_ioapic s" = 0x" type . s" ." type . - i 1 and 0<> if - cr - then - loop - cr - ; - -: dump-apics - test-lapic - test-ioapic - ; - -\ tag: apic test utility diff --git a/qemu/roms/openbios/forth/util/build.xml b/qemu/roms/openbios/forth/util/build.xml deleted file mode 100644 index 4839d2cd3..000000000 --- a/qemu/roms/openbios/forth/util/build.xml +++ /dev/null @@ -1,19 +0,0 @@ -<build> - - <!-- - build description for OpenBIOS utility functions - - 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="util.fs"/> - <object source="pci.fs"/> - <!-- We don't want/need these at the moment - <object source="apic.fs"/> - --> - </dictionary> - -</build> diff --git a/qemu/roms/openbios/forth/util/pci.fs b/qemu/roms/openbios/forth/util/pci.fs deleted file mode 100644 index 57ded6265..000000000 --- a/qemu/roms/openbios/forth/util/pci.fs +++ /dev/null @@ -1,92 +0,0 @@ -\ tag: PCI helper functions -\ -\ Copyright (C) 2003-2004 Stefan Reinauer -\ Copyright (C) 2003 Samuel Rydh -\ -\ See the file "COPYING" for further information about -\ the copyright and warranty status of this work. -\ - -\ simple set of words for pci access, these are not -\ compliant to the PCI bus binding of OpenFirmware. - -\ only forth -\ vocabulary pci -\ also pci definitions - -hex - -: busdevfn ( bus dev fn -- busdevfn ) - 7 and swap - 1f and 3 << or ( dev fn -- devfn ) - swap 8 << or ( bus devfn -- busdevfn ) - ; - -: config-command ( busdevfn reg -- reg addr ) - dup -rot - 3 invert and - swap 8 << or - 80000000 or - ; - -: pci-c@ ( busdevfn reg -- x ) - config-command - cf8 iol! - 3 and cfc + - ioc@ - ; - -: pci-w@ ( busdevfn reg -- x ) - config-command - cf8 iol! - 2 and cfc + iow@ - ; - -: pci-l@ ( busdevfn reg -- x ) - config-command - cf8 iol! - drop - cfc iol@ - ; - -: pci-c! ( busdevfn reg val -- ) - -rot config-command - cf8 iol! - 3 and cfc + ioc! - ; - -: pci-w! ( busdevfn reg val -- ) - -rot config-command - cf8 iol! - 2 and cfc + iow! - ; - -: pci-l! ( busdevfn reg val -- ) - -rot config-command - cf8 iol! - drop - cfc iol! - ; - -: dump-pci-device ( bus dev fn -- ) - 2 pick (.) type 3a emit over - (.) type 2e emit dup (.) type 20 emit 5b emit \ 0:18.0 [ - busdevfn >r - r@ 0 pci-w@ u. 2f emit r@ 2 pci-w@ u. 5d emit \ 1022/1100] - r> - \ now we iterate - 10 0 do - cr i todigit emit 30 emit 3a emit 20 emit - 10 0 do - dup i j 4 << or pci-c@ - dup 4 >> todigit emit f and todigit emit - 20 emit - loop - loop - drop - cr cr - ; - -\ : test-pci -\ 0 2 0 dump-pci-device -\ ; diff --git a/qemu/roms/openbios/forth/util/util.fs b/qemu/roms/openbios/forth/util/util.fs deleted file mode 100644 index 6f549bf54..000000000 --- a/qemu/roms/openbios/forth/util/util.fs +++ /dev/null @@ -1,95 +0,0 @@ -\ tag: Utility functions -\ -\ Utility functions -\ -\ Copyright (C) 2003, 2004 Samuel Rydh -\ -\ See the file "COPYING" for further information about -\ the copyright and warranty status of this work. -\ - -\ ------------------------------------------------------------------------- -\ package utils -\ ------------------------------------------------------------------------- - -( method-str method-len package-str package-len -- xt|0 ) -: $find-package-method - find-package 0= if 2drop false exit then - find-method 0= if 0 then -; - -\ like $call-parent but takes an xt -: call-parent ( ... xt -- ??? ) - my-parent call-package -; - -: [active-package], - ['] (lit) , active-package , -; immediate - -\ ------------------------------------------------------------------------- -\ word creation -\ ------------------------------------------------------------------------- - -: ?mmissing ( name len -- 1 name len | 0 ) - 2dup active-package find-method - if 3drop false else true then -; - -\ install trivial open and close functions -: is-open ( -- ) - " open" ?mmissing if ['] true -rot is-xt-func then - " close" ?mmissing if 0 -rot is-xt-func then -; - -\ is-relay installs a relay function (a function that calls -\ a function with the same name but belonging to a different node). -\ The execution behaviour of xt should be ( -- ptr-to-ihandle ). -\ -: is-relay ( xt ph name-str name-len -- ) - rot >r 2dup r> find-method 0= if - \ function missing (not necessarily an error) - 3drop exit - then - - -rot is-func-begin - ( xt method-xt ) - ['] (lit) , , \ ['] method - , ['] @ , \ xt @ - ['] call-package , \ call-package - is-func-end -; - -\ ------------------------------------------------------------------------- -\ install deblocker bindings -\ ------------------------------------------------------------------------- - -: (open-deblocker) ( varaddr -- ) - " deblocker" find-package if - 0 0 rot open-package - else 0 then - swap ! -; - -: is-deblocker ( -- ) - " deblocker" find-package 0= if exit then >r - " deblocker" is-ivariable - - \ create open-deblocker - " open-deblocker" is-func-begin - dup , ['] (open-deblocker) , - is-func-end - - \ create close-deblocker - " close-deblocker" is-func-begin - dup , ['] @ , ['] close-package , - is-func-end - - ( save-ph deblk-xt R: deblocker-ph ) - r> - 2dup " read" is-relay - 2dup " seek" is-relay - 2dup " write" is-relay - 2dup " tell" is-relay - 2drop -; |