Subversion Repositories Kolibri OS

Compare Revisions

Ignore whitespace Rev 9516 → Rev 9517

/programs/develop/ktcc/trunk/kx/bin/lib/libc.def
File deleted
/programs/develop/ktcc/trunk/kx/bin/lib/img.def
File deleted
\ No newline at end of file
/programs/develop/ktcc/trunk/kx/bin/lib/http.def
File deleted
/programs/develop/ktcc/trunk/source/libtcc.c
113,7 → 113,7
{
char path[1024], *p;
GetModuleFileNameA(tcc_module, path, sizeof path);
#ifdef TCC_TARGET_KX
#ifdef TCC_TARGET_KX
kx_fix_root_directory(path, sizeof path);
normalize_slashes(strlwr(path));
#else
155,13 → 155,13
#if defined TCC_TARGET_MEOS
/* on Kolibri host, we suppose the lib and includes are at the location of 'tcc' /lib, /include */
static void tcc_set_lib_path_kos(TCCState *s)
{
{
char** argv0 = (char**)0x20; // path in kolibri header
char path[1024], *p;
char path[1024], *p;
strncpy(path, *argv0, sizeof path);
#ifdef TCC_TARGET_KX
#ifdef TCC_TARGET_KX
kx_fix_root_directory(path, sizeof path);
#else
#else
p = tcc_basename(path);
if (p > path) p--;
*p = 0;
174,7 → 174,7
{
char buff[4096+1];
readlink("/proc/self/exe", buff, 4096);
#ifdef TCC_TARGET_KX
#ifdef TCC_TARGET_KX
kx_fix_root_directory(buff, sizeof buff);
const char *path = buff;
#else
/programs/develop/ktcc/trunk/source/tcckx.c
168,9 → 168,9
imp_sect->data = tcc_mallocz(4096); // FIXME!!! I increased it to 4Kb, but steel need dynamicaly size
imp_sect->data_size = 0;
//imp_sect->sh_addr = me->header.image_size;// +1;
long imp_data = (long)imp_sect->data; //FIXED changed to long for gcc compatible
 
long imp_data = (long)imp_sect->data; //FIXED changed to long for gcc compatible
 
// Strings
i = 0;
do {
203,7 → 203,7
memcpy((void*)imp_data, &lib, sizeof(LibraryEntry));
 
if (nlib > 1) {
int prev_sum = 0;
int prev_sum = 0;
int prev = 0;
i = 1;
do {
232,7 → 232,7
i = 0;
do {
char* len_data = len_arr[i].data;
long* sym_data = sym_arr[i].data;
long* sym_data = sym_arr[i].data;
 
name_len = *len_data++; // Skip library name