Virtualization
/
openbios
mirror of https://gitlab.com/qemu-project/openbios.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

libopenbios: add Forth LE memory access words 

These are particularly useful when accessing hardware registers from BE hosts.

Signed-off-by: Mark Cave-Ayland <mark.cave-ayland@ilande.co.uk>
This commit is contained in:
Mark Cave-Ayland 2017-06-10 08:14:09 +01:00
parent 30c071b514
commit eda7426fbd
1 changed files with 50 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
libopenbios/init.c
View File

@ -15,12 +15,56 @@
*/
#include "config.h"
#include "libc/byteorder.h"
#include "libopenbios/openbios.h"
#include "libopenbios/bindings.h"
#include "libopenbios/initprogram.h"
#define NO_QEMU_PROTOS
#include "arch/common/fw_cfg.h"
/*
* le-w! ( w waddr -- )
*/
static void lewstore(void)
{
u16 *aaddr = (u16 *)cell2pointer(POP());
const u16 word = POP();
*aaddr = __cpu_to_le16(word);
}
/*
* le-l! ( quad qaddr -- )
*/
static void lelstore(void)
{
u32 *aaddr = (u32 *)cell2pointer(POP());
const u32 longval = POP();
*aaddr = __cpu_to_le32(longval);
}
/*
* le-w@ ( waddr -- w )
*/
static void lewfetch(void)
{
const u16 *aaddr = (u16 *)cell2pointer(POP());
PUSH(__le16_to_cpu(*aaddr));
}
/*
* le-l@ ( qaddr -- quad )
*/
static void lelfetch(void)
{
const u32 *aaddr = (u32 *)cell2pointer(POP());
PUSH(__le32_to_cpu(*aaddr));
}
void
openbios_init( void )
{
@ -38,4 +82,10 @@ openbios_init( void )
// Bind the C implementation of (go) into Forth
bind_func("(go)", go);
// Bind the LE access words
bind_func("le-w!", lewstore);
bind_func("le-l!", lelstore);
bind_func("le-w@", lewfetch);
bind_func("le-l@", lelfetch);
}