qemu/roms/SLOF/lib/libelf/elf_claim.c

   1 /******************************************************************************
   2  * Copyright (c) 2009, 2011 IBM Corporation
   3  * All rights reserved.
   4  * This program and the accompanying materials
   5  * are made available under the terms of the BSD License
   6  * which accompanies this distribution, and is available at
   7  * http://www.opensource.org/licenses/bsd-license.php
   8  *
   9  * Contributors:
  10  *     IBM Corporation - initial implementation
  11  *****************************************************************************/
  12
  13 #include <string.h>
  14 #include <libelf.h>
  15 #include "../../slof/paflof.h"
  16
  17
  18 /**
  19  * Call Forth code to try to claim the memory region
  20  */
  21 int
  22 elf_forth_claim(void *addr, long size)
  23 {
  24         forth_push((long)addr);
  25         forth_push(size);
  26         forth_eval("elf-claim-segment");
  27         return forth_pop();
  28 }