summaryrefslogtreecommitdiffstats
path: root/qemu/roms/openbios/forth/lib/64bit.fs
diff options
context:
space:
mode:
authorRajithaY <rajithax.yerrumsetty@intel.com>2017-04-25 03:31:15 -0700
committerRajitha Yerrumchetty <rajithax.yerrumsetty@intel.com>2017-05-22 06:48:08 +0000
commitbb756eebdac6fd24e8919e2c43f7d2c8c4091f59 (patch)
treeca11e03542edf2d8f631efeca5e1626d211107e3 /qemu/roms/openbios/forth/lib/64bit.fs
parenta14b48d18a9ed03ec191cf16b162206998a895ce (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/lib/64bit.fs')
-rw-r--r--qemu/roms/openbios/forth/lib/64bit.fs128
1 files changed, 0 insertions, 128 deletions
diff --git a/qemu/roms/openbios/forth/lib/64bit.fs b/qemu/roms/openbios/forth/lib/64bit.fs
deleted file mode 100644
index 239ddd028..000000000
--- a/qemu/roms/openbios/forth/lib/64bit.fs
+++ /dev/null
@@ -1,128 +0,0 @@
-\
-\ Copyright (C) 2009 Stefan Reinauer
-\
-\ See the file "COPYING" for further information about
-\ the copyright and warranty status of this work.
-\
-
-\ Implementation of IEEE Draft Std P1275.6/D5
-\ Standard for Boot (Initialization Configuration) Firmware
-\ 64 Bit Extensions
-
-
-cell /x = constant 64bit?
-
-64bit? [IF]
-
-: 32>64 ( 32bitsigned -- 64bitsigned )
- dup 80000000 and if \ is it negative?
- ffffffff00000000 or \ then set all high bits
- then
-;
-
-: 64>32 ( 64bitsigned -- 32bitsigned )
- h# ffffffff and
-;
-
-: lxjoin ( quad.lo quad.hi -- o )
- d# 32 lshift or
-;
-
-: wxjoin ( w.lo w.2 w.3 w.hi -- o )
- wljoin >r wljoin r> lxjoin
-;
-
-: bxjoin ( b.lo b.2 b.3 b.4 b.5 b.6 b.7 b.hi -- o )
- bljoin >r bljoin r> lxjoin
-;
-
-: <l@ ( qaddr -- n )
- l@ 32>64
-;
-
-: unaligned-x@ ( addr - o )
- dup la1+ unaligned-l@ 64>32 swap unaligned-l@ 64>32 lxjoin
-;
-
-: unaligned-x! ( o oaddr -- )
- >r dup d# 32 rshift r@ unaligned-l!
- h# ffffffff and r> la1+ unaligned-l!
-;
-
-: x@ ( oaddr -- o )
- unaligned-x@ \ for now
-;
-
-: x! ( o oaddr -- )
- unaligned-x! \ for now
-;
-
-: (rx@) ( oaddr - o )
- x@
-;
-
-: (rx!) ( o oaddr -- )
- x!
-;
-
-: x, ( o -- )
- here /x allot x!
-;
-
-: /x* ( nu1 -- nu2 )
- /x *
-;
-
-: xa+ ( addr1 index -- addr2 )
- /x* +
-;
-
-: xa1+ ( addr1 -- addr2 )
- /x +
-;
-
-: xlsplit ( o -- quad.lo quad.hi )
- dup h# ffffffff and swap d# 32 rshift
-;
-
-: xwsplit ( o -- w.lo w.2 w.3 w.hi )
- xlsplit >r lwsplit r> lwsplit
-;
-
-: xbsplit ( o -- b.lo b.2 b.3 b.4 b.5 b.6 b.7 b.hi )
- xlsplit >r lbsplit r> lbsplit
-;
-
-: xlflip ( oct1 -- oct2 )
- xlsplit swap lxjoin
-;
-
-: xlflips ( oaddr len -- )
- bounds ?do
- i unaligned-x@ xlflip i unaligned-x!
- /x +loop
-;
-
-: xwflip ( oct1 -- oct2 )
- xlsplit lwflip swap lwflip lxjoin
-;
-
-: xwflips ( oaddr len -- )
- bounds ?do
- i unaligned-x@ xwflip i unaligned-x! /x
- +loop
-;
-
-: xbflip ( oct1 -- oct2 )
- xlsplit lbflip swap lbflip lxjoin
-;
-
-: xbflips ( oaddr len -- )
- bounds ?do
- i unaligned-x@ xbflip i unaligned-x!
- /x +loop
-;
-
-\ : b(lit) b(lit) 32>64 ;
-
-[THEN]