Add qemu 2.4.0

[kvmfornfv.git] / qemu / roms / SLOF / lib / libelf / libelf.code

diff --git a/qemu/roms/SLOF/lib/libelf/libelf.code b/qemu/roms/SLOF/lib/libelf/libelf.code
new file mode 100644 (file)
index 0000000..551468b
--- /dev/null
+++ b/qemu/roms/SLOF/lib/libelf/libelf.code
@@ -0,0 +1,43 @@
+/******************************************************************************
+ * Copyright (c) 2004, 2011 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
+ *****************************************************************************/
+
+/*
+ * libelf Forth wrapper
+ */
+
+#include <libelf.h>
+
+// : elf-load-file  ( fileaddr -- entry type )
+PRIM(ELF_X2d_LOAD_X2d_FILE)
+{
+       void *file_addr = TOS.a;
+       int type;
+       unsigned long entry;
+       type = elf_load_file(file_addr, &entry, elf_forth_claim, flush_cache);
+       TOS.u = entry;
+       PUSH; TOS.n = type;
+}
+MIRP
+
+// : elf-load-file-to-addr  ( fileaddr destaddr -- entry type )
+PRIM(ELF_X2d_LOAD_X2d_FILE_X2d_TO_X2d_ADDR)
+{
+       void *dest_addr = TOS.a; POP;
+       void *file_addr = TOS.a;
+       int type;
+       unsigned long entry;
+       type = elf_load_file_to_addr(file_addr, dest_addr, &entry,
+                                    elf_forth_claim, flush_cache);
+       TOS.u = entry;
+       PUSH; TOS.n = type;
+}
+MIRP