firmware/load_code.c

   1 /***************************************************************************
   2  *             __________               __   ___.
   3  *   Open      \______   \ ____   ____ |  | _\_ |__   _______  ___
   4  *   Source     |       _//  _ \_/ ___\|  |/ /| __ \ /  _ \  \/  /
   5  *   Jukebox    |    |   (  <_> )  \___|    < | \_\ (  <_> > <  <
   6  *   Firmware   |____|_  /\____/ \___  >__|_ \|___  /\____/__/\_ \
   7  *                     \/            \/     \/    \/            \/
   8  * $Id$
   9  *
  10  * Copyright (C) 2010 by Thomas Martitz
  11  *
  12  * This program is free software; you can redistribute it and/or
  13  * modify it under the terms of the GNU General Public License
  14  * as published by the Free Software Foundation; either version 2
  15  * of the License, or (at your option) any later version.
  16  *
  17  * This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
  18  * KIND, either express or implied.
  19  *
  20  ****************************************************************************/
  21
  22 #include "config.h"
  23 #include "system.h"
  24 #include "file.h"
  25 #include "debug.h"
  26 #include "load_code.h"
  27
  28 #if (CONFIG_PLATFORM & PLATFORM_NATIVE)
  29
  30 /* load binary blob from disk to memory, returning a handle */
  31 void * lc_open(const char *filename, unsigned char *buf, size_t buf_size)
  32 {
  33     int fd = open(filename, O_RDONLY);
  34     ssize_t read_size;
  35     struct lc_header hdr;
  36     unsigned char *buf_end = buf+buf_size;
  37     off_t copy_size;
  38
  39     if (fd < 0)
  40     {
  41         DEBUGF("Could not open file");
  42         goto error;
  43     }
  44
  45 #if NUM_CORES > 1
  46     /* Make sure COP cache is flushed and invalidated before loading */
  47     {
  48         int my_core = switch_core(CURRENT_CORE ^ 1);
  49         cpucache_commit_discard();
  50         switch_core(my_core);
  51     }
  52 #endif
  53
  54     /* read the header to obtain the load address */
  55     read_size = read(fd, &hdr, sizeof(hdr));
  56
  57     if (read_size < 0)
  58     {
  59         DEBUGF("Could not read from file");
  60         goto error_fd;
  61     }
  62
  63     /* hdr.end_addr points to the end of the bss section,
  64      * but there might be idata/icode behind that so the bytes to copy
  65      * can be larger */
  66     copy_size = MAX(filesize(fd), hdr.end_addr - hdr.load_addr);
  67
  68     if (hdr.load_addr < buf || (hdr.load_addr+copy_size) > buf_end)
  69     {
  70         DEBUGF("Binary doesn't fit into memory");
  71         goto error_fd;
  72     }
  73
  74     /* go back to beginning to load the whole thing (incl. header) */
  75     if (lseek(fd, 0, SEEK_SET) < 0)
  76     {
  77         DEBUGF("lseek failed");
  78         goto error_fd;
  79     }
  80
  81     /* the header has the addresses where the code is linked at */
  82     read_size = read(fd, hdr.load_addr, copy_size);
  83     close(fd);
  84
  85     if (read_size < 0)
  86     {
  87         DEBUGF("Could not read from file");
  88         goto error;
  89     }
  90
  91     /* commit dcache and discard icache */
  92     cpucache_commit_discard();
  93     /* return a pointer the header, reused by lc_get_header() */
  94     return hdr.load_addr;
  95
  96 error_fd:
  97     close(fd);
  98 error:
  99     return NULL;
 100 }
 101
 102 #elif (CONFIG_PLATFORM & PLATFORM_HOSTED)
 103 /* libdl wrappers */
 104
 105
 106 #ifdef WIN32
 107 /* win32 */
 108 #include <windows.h>
 109 #define dlopen(_x_, _y_) LoadLibraryW(_x_)
 110 #define dlsym(_x_, _y_) (void *)GetProcAddress(_x_, _y_)
 111 #define dlclose(_x_) FreeLibrary(_x_)
 112 static inline char *_dlerror(void)
 113 {
 114     static char err_buf[64];
 115     FormatMessageA(FORMAT_MESSAGE_FROM_SYSTEM, NULL, GetLastError(), 0,
 116                    err_buf, sizeof(err_buf), NULL);
 117     return err_buf;
 118 }
 119 #define dlerror _dlerror
 120 #else
 121 /* unix */
 122 #include <dlfcn.h>
 123 #endif
 124 #include <stdio.h>
 125 #include "rbpaths.h"
 126 #include "general.h"
 127
 128 void * _lc_open(const _lc_open_char *filename, unsigned char *buf, size_t buf_size)
 129 {
 130     (void)buf;
 131     (void)buf_size;
 132     return dlopen(filename, RTLD_NOW);
 133 }
 134
 135 void *lc_open_from_mem(void *addr, size_t blob_size)
 136 {
 137     int fd, i;
 138     char temp_filename[MAX_PATH];
 139
 140     /* We have to create the dynamic link library file from ram so we
 141        can simulate the codec loading. With voice and crossfade,
 142        multiple codecs may be loaded at the same time, so we need
 143        to find an unused filename */
 144     for (i = 0; i < 10; i++)
 145     {
 146 #if (CONFIG_PLATFORM & PLATFORM_ANDROID)
 147         /* we need that path fixed, since get_user_file_path()
 148          * gives us the folder on the sdcard where we cannot load libraries
 149          * from (no exec permissions)
 150          */
 151         snprintf(temp_filename, sizeof(temp_filename),
 152                  "/data/data/org.rockbox/app_rockbox/libtemp_binary_%d.so", i);
 153 #else
 154         char name[MAX_PATH];
 155         const char *_name = get_user_file_path(ROCKBOX_DIR, NEED_WRITE, name, sizeof(name));
 156         snprintf(temp_filename, sizeof(temp_filename),
 157                  "%s/libtemp_binary_%d.dll", _name, i);
 158 #endif
 159         fd = open(temp_filename, O_WRONLY|O_CREAT|O_TRUNC, 0700);
 160         if (fd >= 0)
 161             break;  /* Created a file ok */
 162     }
 163
 164     if (fd < 0)
 165     {
 166         DEBUGF("open failed\n");
 167         return NULL;
 168     }
 169
 170     if (write(fd, addr, blob_size) < (ssize_t)blob_size)
 171     {
 172         DEBUGF("Write failed\n");
 173         close(fd);
 174         remove(temp_filename);
 175         return NULL;
 176     }
 177
 178     close(fd);
 179     return lc_open(temp_filename, NULL, 0);
 180 }
 181
 182
 183 void *_lc_get_header(void *handle)
 184 {
 185     char *ret = dlsym(handle, "__header");
 186     if (ret == NULL)
 187         ret = dlsym(handle, "___header");
 188
 189     return ret;
 190 }
 191
 192 void _lc_close(void *handle)
 193 {
 194     if (handle)
 195         dlclose(handle);
 196 }
 197
 198 const char *lc_last_error(void)
 199 {
 200     return dlerror();
 201 }
 202 #endif