1 files changed, 0 insertions, 71 deletions
diff --git a/qemu/roms/SLOF/slof/fs/elf.fs b/qemu/roms/SLOF/slof/fs/elf.fs
deleted file mode 100644
index 5a80c78d5..000000000
--- a/qemu/roms/SLOF/slof/fs/elf.fs
+++ /dev/null
@@ -1,71 +0,0 @@
-\ *****************************************************************************
-\ * 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
-\ ****************************************************************************/
-
-\ Claim memory for segment
-\ Abort, if no memory available
-
-false value elf-claim?
-0     value last-claim
-
-\ cur-brk is set by elf loader to end of data segment
-0 VALUE cur-brk
-
-
-: elf-claim-segment ( addr size -- errorcode )
-   2dup
-   elf-claim? IF
-      >r
-      here last-claim , to last-claim                \ Setup ptr to last claim
-      \ Put addr and size in the data space
-      dup , r> dup , ( addr size )
-      0 ['] claim CATCH IF
-         ." Memory for ELF file is already in use!" cr
-         true ABORT" Memory for ELF file already in use "
-      THEN
-      drop
-   ELSE
-      2drop
-   THEN
-   + to cur-brk
-   0 
-;
-
-
-\ Load ELF file and claim the corresponding memory regions.
-\ A destination address can be specified. If the parameter is -1 then
-\ the file is loaded to the ddress that is specified in its header.
-: elf-load-claim ( file-addr destaddr -- claim-list entry imagetype )
-   true to elf-claim?
-   0 to last-claim
-   dup -1 = IF             \ If destaddr == -1 then load to addr from ELF header
-      drop ['] elf-load-file CATCH IF false to elf-claim? ABORT THEN
-   ELSE
-      ['] elf-load-file-to-addr CATCH IF false to elf-claim? ABORT THEN
-   THEN
-   >r
-   last-claim swap
-   false to elf-claim?
-   r>
-;
-
-
-\ Release memory claimed before
-
-: elf-release ( claim-list -- )
-   BEGIN
-      dup cell+                   ( claim-list claim-list-addr )
-      dup @ swap cell+ @          ( claim-list claim-list-addr claim-list-sz )
-      release                     ( claim-list )
-      @ dup 0=                    ( Next-element )
-   UNTIL
-   drop
-;