summaryrefslogtreecommitdiffstats
path: root/qemu/roms/SLOF/slof/fs/elf.fs
diff options
context:
space:
mode:
authorRajithaY <rajithax.yerrumsetty@intel.com>2017-04-25 03:31:15 -0700
committerRajitha Yerrumchetty <rajithax.yerrumsetty@intel.com>2017-05-22 06:48:08 +0000
commitbb756eebdac6fd24e8919e2c43f7d2c8c4091f59 (patch)
treeca11e03542edf2d8f631efeca5e1626d211107e3 /qemu/roms/SLOF/slof/fs/elf.fs
parenta14b48d18a9ed03ec191cf16b162206998a895ce (diff)
Adding qemu as a submodule of KVMFORNFV
This Patch includes the changes to add qemu as a submodule to kvmfornfv repo and make use of the updated latest qemu for the execution of all testcase Change-Id: I1280af507a857675c7f81d30c95255635667bdd7 Signed-off-by:RajithaY<rajithax.yerrumsetty@intel.com>
Diffstat (limited to 'qemu/roms/SLOF/slof/fs/elf.fs')
-rw-r--r--qemu/roms/SLOF/slof/fs/elf.fs71
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
-;