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/SLOF/slof/fs/romfs.fs | |
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/SLOF/slof/fs/romfs.fs')
-rw-r--r-- | qemu/roms/SLOF/slof/fs/romfs.fs | 123 |
1 files changed, 0 insertions, 123 deletions
diff --git a/qemu/roms/SLOF/slof/fs/romfs.fs b/qemu/roms/SLOF/slof/fs/romfs.fs deleted file mode 100644 index 7d7e4637e..000000000 --- a/qemu/roms/SLOF/slof/fs/romfs.fs +++ /dev/null @@ -1,123 +0,0 @@ -\ ***************************************************************************** -\ * Copyright (c) 2004, 2008 IBM Corporation -\ * All rights reserved. -\ * This program and the accompanying materials -\ * are made available under the terms of the BSD License -\ * which accompanies this distribution, and is available at -\ * http://www.opensource.org/licenses/bsd-license.php -\ * -\ * Contributors: -\ * IBM Corporation - initial implementation -\ ****************************************************************************/ - -STRUCT - cell field romfs>file-header - cell field romfs>data - cell field romfs>data-size - cell field romfs>flags - -CONSTANT /romfs-lookup-control-block - -CREATE romfs-lookup-cb /romfs-lookup-control-block allot -romfs-lookup-cb /romfs-lookup-control-block erase - -: create-filename ( string -- string\0 ) - here >r dup 8 + allot - r@ over 8 + erase - r@ zplace r> ; - -: romfs-lookup ( fn-str fn-len -- data size | false ) - create-filename romfs-base - romfs-lookup-cb romfs-lookup-entry call-c - 0= IF romfs-lookup-cb dup romfs>data @ swap romfs>data-size @ ELSE - false THEN ; - -: ibm,romfs-lookup ( fn-str fn-len -- data-high data-low size | 0 0 false ) - romfs-lookup dup - 0= if drop 0 0 false else - swap dup 20 rshift swap ffffffff and then ; - -\ FIXME For a short time ... -: romfs-lookup-client ibm,romfs-lookup ; - -\ Fixme temp implementation - -STRUCT - cell field romfs>next-off - cell field romfs>size - cell field romfs>flags - cell field romfs>data-off - cell field romfs>name - -CONSTANT /romfs-cb - -: romfs-map-file ( fn-str fn-len -- file-addr file-size ) - romfs-base >r - BEGIN 2dup r@ romfs>name zcount string=ci not WHILE - ( fn-str fn-len ) ( R: rom-cb-file-addr ) - r> romfs>next-off dup @ dup 0= IF 1 THROW THEN + >r REPEAT - ( fn-str fn-len ) ( R: rom-cb-file-addr ) - 2drop r@ romfs>data-off @ r@ + r> romfs>size @ ; - -\ returns address of romfs-header file -: flash-header ( -- address | false ) - get-flash-base 28 + \ prepare flash header file address - dup rx@ \ fetch "magic123" - 6d61676963313233 <> IF \ IF flash is not valid - drop \ | forget address - false \ | return false - THEN \ FI -; - -CREATE bdate-str 10 allot -: bdate2human ( -- addr len ) - flash-header 40 + rx@ (.) - drop dup 0 + bdate-str 6 + 4 move - dup 4 + bdate-str 0 + 2 move - dup 6 + bdate-str 3 + 2 move - dup 8 + bdate-str b + 2 move - a + bdate-str e + 2 move - 2d bdate-str 2 + c! - 2d bdate-str 5 + c! - 20 bdate-str a + c! - 3a bdate-str d + c! - bdate-str 10 -; - - -\ Look up a file in the ROM file system and evaluate it - -: included ( fn fn-len -- ) - 2dup >r >r romfs-lookup dup IF - r> drop r> drop evaluate - ELSE - drop ." Cannot open file : " r> r> type cr - THEN -; - -: include ( " fn " -- ) - parse-word included -; - -: ?include ( flag " fn " -- ) - parse-word rot IF included ELSE 2drop THEN -; - -: include? ( nargs flag " fn " -- ) - parse-word rot IF - rot drop included - ELSE - 2drop 0 ?DO drop LOOP - THEN -; - - -\ List files in ROMfs - -: (print-romfs-file-info) ( file-addr -- ) - 9 emit dup b 0.r 2 spaces dup 8 + @ 6 0.r 2 spaces 20 + zcount type cr -; - -: romfs-list ( -- ) - romfs-base 0 cr BEGIN + dup (print-romfs-file-info) dup @ dup 0= UNTIL 2drop -; |