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

improve x@ and x! functions, at least x@ reads back what x! wrote, now.

Browse Source 
git-svn-id: svn://coreboot.org/openbios/trunk/openbios-devel@620 f158a5a8-5612-0410-a976-696ce0be7e32
This commit is contained in:
Stefan Reinauer
2009-11-20 16:37:41 +00:00
parent 6708a79d0f
commit 51fb2e19c3
2 changed files with 14 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
forth/lib/64bit.fs
View File

@@ -20,6 +20,10 @@ cell /x = constant 64bit?
then
;
: 64>32 ( 64bitsigned -- 32bitsigned )
h# ffffffff and
;
: lxjoin ( quad.lo quad.hi -- o )
d# 32 lshift or
;
@@ -37,12 +41,12 @@ cell /x = constant 64bit?
;
: unaligned-x@ ( addr - o )
dup la+ unaligned-l@ swap unaligned-l@ lxjoin
dup la1+ unaligned-l@ 64>32 swap unaligned-l@ 64>32 lxjoin
;
: unaligned-x! ( oaddr o -- )
2dup d# 32 rshift unaligned-l!
swap la+ swap h# ffffffff and unaligned-l!
: unaligned-x! ( o oaddr -- )
>r dup d# 32 rshift r@ unaligned-l!
h# ffffffff and r> la1+ unaligned-l!
;
: x@ ( oaddr -- o )