diff options
Diffstat (limited to 'qemu/roms/SLOF/slof/paflof.c')
| -rw-r--r-- | qemu/roms/SLOF/slof/paflof.c | 125 |
1 files changed, 0 insertions, 125 deletions
diff --git a/qemu/roms/SLOF/slof/paflof.c b/qemu/roms/SLOF/slof/paflof.c deleted file mode 100644 index 2fc25c81e..000000000 --- a/qemu/roms/SLOF/slof/paflof.c +++ /dev/null @@ -1,125 +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 - *****************************************************************************/ -// -// Copyright 2002,2003,2004 Segher Boessenkool <segher@kernel.crashing.org> -// - - -#define XSTR(x) #x -#define ISTR(x,y) XSTR(x.y) -#undef unix - -#include "paflof.h" -#include <stdio.h> -#include <string.h> -#include <stdint.h> -#include <ctype.h> -#include <cache.h> -#include <allocator.h> - -#include ISTR(TARG,h) - -#define LAST_ELEMENT(x) x[sizeof x / sizeof x[0] - 1] - -/* Hack to get around static inline issues */ -#include "../lib/libhvcall/libhvcall.h" - - -extern char _start_OF[]; - -unsigned long fdt_start; -unsigned long romfs_base; -unsigned long epapr_magic; -unsigned long epapr_ima_size; // ePAPR initially mapped area size -unsigned char hash_table[HASHSIZE*CELLSIZE]; - -#include ISTR(TARG,c) - -static int did_stackwarning; -extern char the_system_stack[]; - -// the actual engine -long engine(int mode, long param_1, long param_2) -{ - // For Exceptions: - // mode = ENGINE_MODE_PARAM_1 | MODE_PARAM_2 - // (param_1 = error, param_2 = reason) - // - // For Push: - // mode = ENGINE_MODE_PARAM_1 | ENGINE_MODE_NOP - // - // For Pop: - // mode = ENGINE_MODE_NOP | ENGINE_MODE_POP - // - // For Evaluate: - // mode = ENGINE_MODE_PARAM_1 | MODE_PARAM_2 | ENGINE_MODE_EVAL - // (param_1 = strlen(string), param_2 = string) - - cell *restrict ip; - cell *restrict cfa; - static cell handler_stack[160]; - static cell c_return[2]; - static cell dummy; - - #include "prep.h" - #include "dict.xt" - - static int init_engine = 0; - if (init_engine == 0) { - // one-time initialisation - init_engine = 1; - LAST_ELEMENT(xt_FORTH_X2d_WORDLIST).a = xt_LASTWORD; - - // stack-pointers - dp = the_data_stack - 1; - rp = handler_stack - 1; - - // return-address for "evaluate" personality - dummy.a = &&over; - c_return[1].a = &dummy; - } - - if ((char *)&ip < the_system_stack && !did_stackwarning) { - puts("ERROR: stack overflow in engine()!"); - did_stackwarning = 1; - } - - if (mode & ENGINE_MODE_PARAM_2) { - (++dp)->n = param_2; - } - if (mode & ENGINE_MODE_PARAM_1) { - (++dp)->n = param_1; - } - - if (mode & ENGINE_MODE_NOP ) { - goto over; - } - - if (mode & ENGINE_MODE_EVAL) { - (++rp)->a = c_return; - ip = xt_EVALUATE + 2 + ((10 + CELLSIZE - 1) / CELLSIZE); - } else { - ip = xt_SYSTHROW; - } - - #include "prim.code" - #include "board.code" - #include ISTR(TARG,code) - - - // Only reached in case of non-exception call -over: if (mode & ENGINE_MODE_POP) { - return ((dp--)->n); - } else { - return 0; - } -} |