Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 9304 → Rev 9305

/programs/develop/ktcc/trunk/kx/bin/lib/http.def
0,0 → 1,9
LIBRARY http.obj
 
EXPORTS prefix
http_get
http_head
http_post
http_receive
http_send
http_free
/programs/develop/ktcc/trunk/kx/bin/lib/img.def
0,0 → 1,20
LIBRARY libimg.obj
 
EXPORTS
img_blend
img_convert
img_count
img_create
img_decode
img_destroy
img_destroy_layer
img_draw
img_encode
img_flip
img_flip_layer
img_resize_data
img_rotate
img_rotate_layer
img_scale
img_to_rgb
img_to_rgb2
/programs/develop/ktcc/trunk/kx/bin/lib/libc.def
0,0 → 1,177
LIBRARY libc.obj
 
EXPORTS
;____STDIO______
clearerr
debug_printf
fclose
feof
ferror
fflush
fgetc
fgetpos
fgets
fopen
fprintf
fputc
fputs
fread
freopen
fscanf
fseek
fsetpos
ftell
fwrite
getchar
gets
perror
printf
puts
remove
rename
rewind
scanf
setbuf
setvbuf
snprintf
sprintf
sscanf
tmpfile
tmpnam
vfscanf
vprintf
vfscanf
vsprintf
vsnprintf
vsscanf
ungetc
;____STDLIB____
abs
atoi
atol
atoll
atof
calloc
exit
free
itoa
labs
llabs
malloc
realloc
strtol
srand
rand
qsort
strtod
__assert_fail
;____STRING____
;memcpy
memchr
memcmp
!memmove
!memset
strncat
strchr
strcat
strcmp
strcoll
strcpy
strcspn
strdup
strerror
strlen
strncat
strncmp
strncpy
strrchr
strrev
strspn
strstr
strtok
strxfrm
_errno
;____SYS____
closedir
opendir
readdir
rewinddir
seekdir
telldir
getcwd
mkdir
rmdir
setcwd
getcwd
;____SOCKET____
socket
close
bind
listen
connect
accept
send
recv
setsockopt
socketpair
;____UNISTD____
;____MATH____
acosh
asinh
atanh
acosh
frexp
hypot
ldexp
sinh
tanh
acos
asin
atan
atan2
ceil
cos
exp
fabs
floor
fmod
log
modf
modfl
pow
pow2
pow10
;____LONGJMP____
longjmp
setjmp
;____CTYPE____
__is
tolower
toupper
;___CONIO___
con_set_title
con_init
con_init_opt
con_write_asciiz
con_write_string
con_printf
con_exit
con_get_flags
con_set_flags
con_kbhit
con_getch
con_getch2
con_gets
con_gets2
con_get_font_height
con_get_cursor_height
con_set_cursor_height
con_cls
con_get_cursor_pos
con_set_cursor_pos
;____TIME____
mktime
time
localtime
asctime
difftime
/programs/develop/ktcc/trunk/kx/src/crt/crt0.asm
0,0 → 1,127
;
; 2021, Edited by Coldy
;
; This module same as original crt0.asm, but cut:
; 1. virtual header block (hparams change to __app_params, hpath change to __app_path)
; 2. init heap of memory - not needed because 68.18 (68.19) init heap implicitly
; (it is does dll.obj)
; 3. loader (he lives in dll.obj)
;
 
format ELF
section '.text' executable
public start
public start as '_start'
 
extrn main
;include 'debug2.inc'
include '/../../../../../../proc32.inc'
include '/../../../../../../macros.inc'
__DEBUG__ = 0
 
__app_params equ 0x1C ; Pointer to program arguments
;__app_path equ 0x20 ; Pointer to program path
 
start:
;DEBUGF 'Start programm\n'
 
mov [argc], 0
mov eax, [__app_params]
test eax, eax
jz .without_path
mov eax, path
cmp word ptr eax, 32fh ; '/#3' UTF8
jne .without_path
mov word ptr eax, 12fh ; '/#1' fix to CP866
.without_path:
mov esi, eax
call push_param
; retrieving parameters
mov esi, params
xor edx, edx ; dl - èä¸ò ïàðàìåòð(1) èëè ðàçäåëèòåëè(0)
; dh - ñèìâîë ñ êîòîðîãî íà÷àëñÿ ïàðàìåòð (1 êàâû÷êè, 0 îñòàëüíîå)
mov ecx, 1 ; cl = 1
; ch = 0 ïðîñòî íîëü
.parse:
lodsb
test al, al
jz .run
test dl, dl
jnz .findendparam
;{åñëè áûë ðàçäåëèòåëü
cmp al, ' '
jz .parse ;çàãðóæåí ïðîáåë, ãðóçèì ñëåäóþùèé ñèìâîë
mov dl, cl ;íà÷èíàåòñÿ ïàðàìåòð
cmp al, '"'
jz @f ;çàãðóæåíû êàâû÷êè
mov dh, ch ;ïàðàìåòð áåç êàâû÷åê
dec esi
call push_param
inc esi
jmp .parse
 
@@:
mov dh, cl ;ïàðàìåòð â êàâû÷åêàõ
call push_param ;åñëè íå ïðîáåë çíà÷èò íà÷èíàåòñÿ êàêîé òî ïàðàìåòð
jmp .parse ;åñëè áûë ðàçäåëèòåëü}
 
.findendparam:
test dh, dh
jz @f ; áåç êàâû÷åê
cmp al, '"'
jz .clear
jmp .parse
@@:
cmp al, ' '
jnz .parse
 
.clear:
lea ebx, [esi - 1]
mov [ebx], ch
mov dl, ch
jmp .parse
 
.run:
push argv
push [argc]
call main
.exit:
xor eax,eax
dec eax
int 0x40
dd -1
.crash:
jmp .exit
;============================
push_param:
;============================
;parameters
; esi - pointer
;description
; procedure increase argc
; and add pointer to array argv
; procedure changes ebx
mov ebx, [argc]
cmp ebx, max_parameters
jae .dont_add
mov [argv+4*ebx], esi
inc [argc]
.dont_add:
ret
;==============================
public argc as '__argc'
public params as '__argv'
public path as '__path'
 
section '.bss'
buf_len = 0x400
max_parameters=0x20
argc rd 1
argv rd max_parameters
path rb buf_len
params rb buf_len
 
;section '.data'
;include_debug_strings ; ALWAYS present in data section
/programs/develop/ktcc/trunk/source/config.h
1,6 → 1,7
#define TCC_VERSION "0.9.26"
#define CONFIG_TCC_STATIC
#define TCC_TARGET_MEOS
#define TCC_TARGET_KX
//#define TCC_TARGET_MEOS
#define TCC_TARGET_I386
#define ONE_SOURCE
 
/programs/develop/ktcc/trunk/source/libtcc.c
1181,6 → 1181,9
tcc_define_symbol(s, "KOLIBRI", NULL);
tcc_define_symbol(s, "_KOLIBRI", NULL);
tcc_define_symbol(s, "_KOLIBRI_",NULL);
#ifdef TCC_TARGET_KX
tcc_define_symbol(s, "__KX__", NULL);
#endif
#else
tcc_define_symbol(s, "__unix__", NULL);
tcc_define_symbol(s, "__unix", NULL);
/programs/develop/ktcc/trunk/source/tcc.c
58,6 → 58,9
" Windows"
#elif defined TCC_TARGET_MEOS
" KolibriOS"
#ifdef TCC_TARGET_KX
"/KX extension"
#endif
#else
" Linux"
#endif
/programs/develop/ktcc/trunk/source/tcckx.c
26,10 → 26,10
 
static kx_header __kx_header = { 'K','X',0, 0, 0x40, 0 };
 
typedef struct LibraryEntry {
typedef struct {
uint32_t ImportEntry;
uint32_t LibraryName;
};
} LibraryEntry;
 
/*union ImportEntry {
uint32_t ImportStr;
43,7 → 43,8
ElfW(Sym) *sym;
int sym_index, sym_end;
sym_end = symtab_section->data_offset / sizeof(ElfW(Sym));
CString *str_arr, *len_arr;
CString *str_arr, *len_arr, *sym_arr;
char dll_len;
int nlib = 0;
int i;
 
51,16 → 52,11
return;
 
str_arr = tcc_malloc(sizeof(CString) * me->s1->nb_loaded_dlls);
if (str_arr == 0) {
return;
}
 
len_arr = tcc_malloc(sizeof(CString)* me->s1->nb_loaded_dlls);
if (len_arr == 0) {
tcc_free(str_arr);
return;
}
 
sym_arr = tcc_malloc(sizeof(CString)* me->s1->nb_loaded_dlls);
 
for (sym_index = 1; sym_index < sym_end; ++sym_index) {
sym = (ElfW(Sym) *)symtab_section->data + sym_index;
if (sym->st_shndx == SHN_UNDEF) {
79,16 → 75,18
// KOS support 32 bit only
Elf32_Sym* dyn_sym = &((ElfW(Sym) *)me->s1->dynsymtab_section->data)[dynsym_index];
DLLReference **dllref = me->s1->loaded_dlls;
char* dll_name;
i = dyn_sym->st_size - 1;
// TCC store dll index in dyn_sym->st_size field
if (dllref[i]->level != -1) {
char* dll_name = dllref[i]->name;
char dll_len = strlen(dll_name) + 1;
dll_name = dllref[i]->name;
dll_len = strlen(dll_name) + 1;
 
nlib++;
 
cstr_new(&str_arr[i]);
cstr_new(&len_arr[i]);
cstr_new(&sym_arr[i]);
 
cstr_ccat(&len_arr[i], dll_len);
cstr_cat(&str_arr[i], dll_name, dll_len);
96,6 → 94,13
dllref[i]->level = -1;
}
 
cstr_wccat(&sym_arr[i], (int)name);
 
// Export defined with prefix?
if (dyn_sym->st_value == -1){
name += (dll_len - 4); // skip prefix_
}
 
char name_len = strlen(name) + 1;
cstr_ccat(&len_arr[i], name_len);
cstr_cat(&str_arr[i], name, name_len);
127,12 → 132,12
imp_sect->data_size = 0;
//imp_sect->sh_addr = me->header.image_size;// +1;
 
long imp_data = imp_sect->data; //FIXME change to long for gcc compatible?
long imp_data = (long)imp_sect->data; //FIXED changed to long for gcc compatible
 
// Strings
i = 0;
do {
memcpy(imp_data, str_arr[i].data, str_arr[i].size);
memcpy((void*)imp_data, str_arr[i].data, str_arr[i].size);
imp_data += str_arr[i].size;
imp_sect->data_size += str_arr[i].size;
 
152,22 → 157,24
0, SHN_ABS, __kx_import_table_sym);*/
__kx_header.i_ptr = me->header.image_size + imp_sect->data_size;
 
struct LibraryEntry lib;
LibraryEntry lib;
lib.ImportEntry = me->header.image_size + imp_sect->data_size + (nlib * 8) + 4;
lib.LibraryName = me->header.image_size + 0;
 
// LibraryEntry
memcpy(imp_data, &lib, sizeof(struct LibraryEntry));
memcpy((void*)imp_data, &lib, sizeof(LibraryEntry));
 
if (nlib > 1) {
int prev_sum = 0;
int prev = 0;
i = 1;
do {
lib.ImportEntry += (len_arr[prev].size - 2) * 4 + 4; //TODO: check that +4 is correct
lib.LibraryName = me->header.image_size + str_arr[prev].size;
imp_data += sizeof(struct LibraryEntry);
imp_sect->data_size += sizeof(struct LibraryEntry);
memcpy(imp_data, &lib, sizeof(struct LibraryEntry));
prev_sum += str_arr[prev].size;
lib.LibraryName = me->header.image_size + prev_sum; // FIXED (was BUG#10)
imp_data += sizeof(LibraryEntry);
imp_sect->data_size += sizeof(LibraryEntry);
memcpy((void*)imp_data, &lib, sizeof(LibraryEntry));
 
prev++;
i++;
176,44 → 183,44
}
 
// End of LibraryEntry
imp_data += sizeof(struct LibraryEntry) + 4;
imp_sect->data_size += sizeof(struct LibraryEntry) + 4;
imp_data += sizeof(LibraryEntry) + 4;
imp_sect->data_size += sizeof(LibraryEntry) + 4;
 
const char *sym_name;
char name_len;
long l, nl;
long len_sum;
 
l = me->header.image_size;
len_sum = me->header.image_size;
i = 0;
do {
char* len_data = len_arr[i].data;
long* sym_data = sym_arr[i].data;
 
name_len = *len_data++; // Skip library name
nl = name_len;
 
do {
const char *name = (const char *)str_arr[i].data + nl;
memcpy(&sym_name, sym_data++, 4);
add_elf_sym(
me->s1->dynsymtab_section,
me->header.image_size + imp_sect->data_size,
0, ELFW(ST_INFO)(STB_GLOBAL, STT_NOTYPE),
0, SHN_ABS, name);
0, SHN_ABS, sym_name);
 
l += name_len;
memcpy(imp_data, &l, 4);
len_sum += name_len;
memcpy((void*)imp_data, &len_sum, 4);
 
imp_data += 4;
imp_sect->data_size += 4;
name_len = */*++*/len_data/*++*/; //(was BUG#3)
 
nl = nl + name_len;
 
} while (/*name_len*/*(++len_data) > 0);
 
imp_data += 4;
imp_sect->data_size += 4;
 
l += name_len;
len_sum += name_len;
i++;
 
} while (i < nlib);
223,6 → 230,7
 
tcc_free(str_arr);
tcc_free(len_arr);
tcc_free(sym_arr);
 
}
 
246,7 → 254,7
}
 
long kx_get_header_length(me_info* me) {
if (me->header.version = 2)
if (me->header.version == 2)
return sizeof(kx_header);
 
return 0;
253,7 → 261,7
}
 
void kx_write_header(me_info* me, FILE* f) {
if (me->header.version = 2)
if (me->header.version == 2)
fwrite(&__kx_header, 1, sizeof(kx_header), f);
}
 
/programs/develop/ktcc/trunk/source/tccpe.c
1493,7 → 1493,10
dllindex, /* st_size */
ELFW(ST_INFO)(STB_GLOBAL, STT_NOTYPE),
0,
value ? SHN_ABS : SHN_UNDEF,
#ifndef TCC_TARGET_KX
value ? SHN_ABS :
#endif
SHN_UNDEF,
name
);
}
1567,7 → 1570,7
#if !defined(TCC_TARGET_MEOS) || defined (TCC_TARGET_KX)
static int pe_load_def(TCCState *s1, int fd)
{
int state = 0, ret = -1, dllindex = 0, ord;
int state = 0, ret = -1, dllindex = 0, ord = 0;
char line[400], dllname[80], *p, *x;
FILE *fp;
 
1591,6 → 1594,15
continue;
 
case 1:
#ifdef TCC_TARGET_KX
{
char* p1 = strstr(p, "prefix");
if (p1) {
p[p1 - p - 1] = 0;
ord = -1; // All exports used prefix
}
}
#endif
if (0 != stricmp(p, "EXPORTS"))
goto quit;
++state;
1599,10 → 1611,22
case 2:
dllindex = add_dllref(s1, dllname);
++state;
#ifdef TCC_TARGET_KX
if (ord == - 1) {
char* tmp = strchr(dllname, '.');
int n = tmp - dllname;
dllname[n] = '_';
dllname[n + 1] = 0;
}
#endif
/* fall through */
default:
#ifdef TCC_TARGET_KX
if ((ord == -1) && p != strstr(p, dllname))
tcc_error_noabort("Wrong prefix for %s", p);
#else
/* get ordinal and will store in sym->st_value */
ord = 0;
//ord = 0; // ord is assign in begining of function
x = strchr(p, ' ');
if (x) {
*x = 0, x = strrchr(x + 1, '@');
1613,6 → 1637,7
ord = 0;
}
}
#endif
pe_putimport(s1, dllindex, p, ord);
continue;
}