Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 9556 → Rev 9557

/programs/develop/ktcc/trunk/source/libtcc.c
113,10 → 113,6
{
char path[1024], *p;
GetModuleFileNameA(tcc_module, path, sizeof path);
#ifdef TCC_TARGET_KX
kx_fix_root_directory(path, sizeof path);
normalize_slashes(strlwr(path));
#else
p = tcc_basename(normalize_slashes(strlwr(path)));
if (p - 5 > path && 0 == strncmp(p - 5, "/bin/", 5))
p -= 5;
123,7 → 119,6
else if (p > path)
p--;
*p = 0;
#endif
tcc_set_lib_path(s, path);
}
 
159,13 → 154,9
char** argv0 = (char**)0x20; // path in kolibri header
char path[1024], *p;
strncpy(path, *argv0, sizeof path);
#ifdef TCC_TARGET_KX
kx_fix_root_directory(path, sizeof path);
#else
p = tcc_basename(path);
if (p > path) p--;
*p = 0;
#endif
tcc_set_lib_path(s, path);
}
 
174,12 → 165,7
{
char buff[4096+1];
readlink("/proc/self/exe", buff, 4096);
#ifdef TCC_TARGET_KX
kx_fix_root_directory(buff, sizeof buff);
const char *path = buff;
#else
const char *path = dirname(buff);
#endif
tcc_set_lib_path(s, path);
}
 
1540,7 → 1526,7
{
if (-1 == tcc_add_library_internal(s, "%s/%s",
filename, 0, s->crt_paths, s->nb_crt_paths))
tcc_error_noabort("file '%s' not found", filename);
tcc_error("file '%s' not found", filename);
return 0;
}
 
1745,9 → 1731,7
#elif defined(TCC_TARGET_MEOS)
if (s->output_type != TCC_OUTPUT_OBJ && !s->nostdlib)
{
tcc_add_crt(s,"crt0.o");
tcc_add_library_err(s, "c");
tcc_add_library_err(s, "tcc1");
}
#else
/* add libc crt1/crti objects */
2280,6 → 2264,7
case TCC_OPTION_B:
/* set tcc utilities path (mainly for tcc development) */
tcc_set_lib_path(s, optarg);
tcc_split_path(s, (void ***)&s->crt_paths, &s->nb_crt_paths, CONFIG_TCC_CRTPREFIX);
break;
case TCC_OPTION_l:
args_parser_add_file(s, r, TCC_FILETYPE_BINARY);
/programs/develop/ktcc/trunk/source/tcc.h
47,7 → 47,7
#ifndef TCC_TARGET_MEOS
#define TCC_TARGET_MEOS
#endif
void kx_fix_root_directory(char *buf, size_t size);
//void kx_fix_root_directory(char *buf, size_t size);
#endif
 
#ifndef _WIN32
/programs/develop/ktcc/trunk/source/tcckx.c
323,6 → 323,7
This function correct tcc_root if tcc_root/kx is a run directory,
otherwise do trim filename
*/
#if 0
void kx_fix_root_directory(char *buf, size_t size) {
int defult = 1;
363,5 → 364,6
}
 
tcc_free(tcc_conf);
//kx_debug_output("tcc root = %s\n", buf);
}
kx_debug_output("tcc root = %s\n", buf);
}
#endif
/programs/develop/ktcc/trunk/source/tccmeos.c
303,6 → 303,7
kx_init(&me);
#endif
if (s1->output_type != TCC_OUTPUT_OBJ && !s1->nostdlib){
tcc_add_crt(s1, "crt0.o");
tcc_add_library_err(s1, "tcc1");
}