mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-21 20:33:55 +00:00
2f3224bbcb
init.h, wrapper.mod: Replace the `default_entry' and `which' (which _what_?) variables with a single variable `entry_point'. Move the check for NULL to just before entry_point is used, so that it comes after the call to do_init_modules(). XXX The `-w' (entry-point) option still doesn't work. wrapper.mod, label.c: Don't call do_init_entries() from do_init_modules(); instead, call it only if and when necessary.
130 lines
2.8 KiB
C
130 lines
2.8 KiB
C
/*
|
|
** Copyright (C) 1995 University of Melbourne.
|
|
** This file may only be copied under the terms of the GNU Library General
|
|
** Public License - see the file COPYING.LIB in the Mercury distribution.
|
|
*/
|
|
|
|
#include "imp.h"
|
|
#include "table.h"
|
|
#include "prof.h"
|
|
#include "init.h"
|
|
|
|
#include <string.h>
|
|
|
|
static const void *entry_name(const void *entry);
|
|
static const void *entry_addr(const void *entry);
|
|
static bool equal_name(const void *name1, const void *name2);
|
|
static bool equal_addr(const void *addr1, const void *addr2);
|
|
static int hash_name(const void *name);
|
|
static int hash_addr(const void *addr);
|
|
|
|
int entry_table_size = (1 << 16); /* 64k */
|
|
|
|
Table entry_name_table =
|
|
{0, NULL, entry_name, hash_name, equal_name};
|
|
Table entry_addr_table =
|
|
{0, NULL, entry_addr, hash_addr, equal_addr};
|
|
|
|
void do_init_entries(void)
|
|
{
|
|
static bool done = FALSE;
|
|
if (!done) {
|
|
entry_name_table.ta_size = entry_table_size;
|
|
entry_addr_table.ta_size = entry_table_size;
|
|
init_table(entry_name_table);
|
|
init_table(entry_addr_table);
|
|
done = TRUE;
|
|
}
|
|
}
|
|
|
|
Label *insert_entry(const char *name, Code *addr)
|
|
{
|
|
Label *entry;
|
|
|
|
do_init_entries();
|
|
|
|
entry = make(Label);
|
|
entry->e_name = name;
|
|
entry->e_addr = addr;
|
|
|
|
#ifdef PROFILE_CALLS
|
|
prof_output_addr_decls(name, addr);
|
|
#endif
|
|
|
|
#ifndef SPEED
|
|
if (progdebug)
|
|
printf("inserting label %s at %p\n", name, addr);
|
|
#endif
|
|
|
|
if (insert_table(entry_name_table, entry))
|
|
printf("duplicated label name %s\n", name);
|
|
|
|
/* two labels at same location will happen quite often */
|
|
/* when the code generated between them turns out to be empty */
|
|
|
|
(void) insert_table(entry_addr_table, entry);
|
|
|
|
return entry;
|
|
}
|
|
|
|
Label *lookup_label_addr(const Code *addr)
|
|
{
|
|
do_init_entries();
|
|
do_init_modules();
|
|
#ifndef SPEED
|
|
if (progdebug)
|
|
printf("looking for label at %p\n", addr);
|
|
#endif
|
|
|
|
return (Label *) lookup_table(entry_addr_table, addr);
|
|
}
|
|
|
|
Label *lookup_label_name(const char *name)
|
|
{
|
|
do_init_entries();
|
|
do_init_modules();
|
|
#ifndef SPEED
|
|
if (progdebug)
|
|
printf("looking for label %s\n", name);
|
|
#endif
|
|
|
|
return (Label *) lookup_table(entry_name_table, name);
|
|
}
|
|
|
|
List *get_all_labels(void)
|
|
{
|
|
do_init_entries();
|
|
do_init_modules();
|
|
return get_all_entries(entry_name_table);
|
|
}
|
|
|
|
static const void *entry_name(const void *entry)
|
|
{
|
|
return (const void *) (((const Label *) entry)->e_name);
|
|
}
|
|
|
|
static const void *entry_addr(const void *entry)
|
|
{
|
|
return (const void *) (((const Label *) entry)->e_addr);
|
|
}
|
|
|
|
static bool equal_name(const void *name1, const void *name2)
|
|
{
|
|
return streq(((const char *) name1), ((const char *) name2));
|
|
}
|
|
|
|
static bool equal_addr(const void *addr1, const void *addr2)
|
|
{
|
|
return ((const Code *) addr1) == ((const Code *) addr2);
|
|
}
|
|
|
|
static int hash_name(const void *name)
|
|
{
|
|
return str_to_int(((const char *) name)) % entry_table_size;
|
|
}
|
|
|
|
static int hash_addr(const void *addr)
|
|
{
|
|
return (((Unsigned) addr) >> 3) % entry_table_size;
|
|
}
|