Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 9617 → Rev 9616

/programs/develop/ktcc/trunk/source/tccmeos.c
19,8 → 19,6
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*/
 
#include "tcc.h"
 
typedef struct {
char magic[8];
int version;
244,10 → 242,13
return sym_name;
}
 
int tcc_find_symbol_me(me_info* me, const char *sym_name, int* addr)
int tcc_find_symbol_me(me_info* me, const char *sym_name)
{
int i, symtab = 0, strtab = 0;
*addr = 0;
int i;
int symtab;
int strtab;
symtab=0;
strtab=0;
for (i=1;i<me->s1->nb_sections;i++)
{
Section* s;
275,8 → 276,7
{
if (strcmp(name+s->st_name,sym_name)==0)
{
*addr = s->st_value+findsection(me,s->st_shndx)->sh_addr;
return 1;
return s->st_value+findsection(me,s->st_shndx)->sh_addr;
}
s++;
}
303,9 → 303,11
if (s1->do_debug)
tcc_output_dbgme(filename, &me);
 
if (!tcc_find_symbol_me(&me, "start", &me.header.entry_point) |
!tcc_find_symbol_me(&me, "__argv", &me.header.params) |
!tcc_find_symbol_me(&me, "__path", &me.header.argv)) {
me.header.entry_point=tcc_find_symbol_me(&me,"start");
me.header.params= tcc_find_symbol_me(&me,"__argv"); // <--
me.header.argv= tcc_find_symbol_me(&me,"__path"); // <--
 
if (!me.header.entry_point || !me.header.params || me.header.argv) {
exit(1);
}
 
482,7 → 484,7
strcpy(cur_fun, stabstr_section->data + stab->n_strx);
str = strchr(cur_fun, ':');
if (str) *str = '\0';
tcc_find_symbol_me(me, cur_fun, &cur_fun_addr);
cur_fun_addr = tcc_find_symbol_me(me, cur_fun);
cur_line = stab->n_desc;
fun_flag = 1;
//fprintf(fdbg, "0x%X %s() line(%d)\n", cur_fun_addr, cur_fun, cur_line); // commented as conflicted with direct address