mirror of git://git.psyced.org/git/psyclpc
58 lines
1.5 KiB
C
58 lines
1.5 KiB
C
#ifndef SIMUL_EFUN_H__
|
|
#define SIMUL_EFUN_H__ 1
|
|
|
|
#include "driver.h"
|
|
#include "typedefs.h"
|
|
#include "exec.h" /* fun_hdr_p */
|
|
#include "ptrtable.h"
|
|
|
|
/* --- struct simul_efun_table_s: information of one simul_efun ---
|
|
*
|
|
* For every simulated efun, one of these structures is generated
|
|
* and holds the information about where to find the code, and
|
|
* what indices are to be used in relation to the simul_efun object
|
|
* (in case the program was inherited by the simul-efun object).
|
|
*/
|
|
struct simul_efun_table_s
|
|
{
|
|
fun_hdr_p funstart;
|
|
/* The function pointer, NULL for discarded sefuns.
|
|
*/
|
|
program_t *program;
|
|
p_int function_index_offset;
|
|
p_int variable_index_offset;
|
|
/* Copies from the function_t structure.
|
|
*/
|
|
};
|
|
|
|
/* --- Defines --- */
|
|
|
|
#define SEFUN_TABLE_SIZE (65536UL)
|
|
/* The number of entries in the sefun table, directly callable.
|
|
*/
|
|
|
|
/* --- Variables --- */
|
|
|
|
extern int num_simul_efun;
|
|
extern function_t *simul_efunp;
|
|
extern object_t *simul_efun_object;
|
|
extern vector_t *simul_efun_vector;
|
|
extern simul_efun_table_t simul_efun_table[];
|
|
|
|
/* --- Prototypes --- */
|
|
|
|
extern void invalidate_simul_efuns (void);
|
|
extern Bool assert_simul_efun_object(void);
|
|
extern string_t *query_simul_efun_file_name(void);
|
|
|
|
#ifdef GC_SUPPORT
|
|
extern void clear_simul_efun_refs(void);
|
|
extern void count_simul_efun_refs(void);
|
|
#endif /* GC_SUPPORT */
|
|
|
|
#ifdef DEBUG
|
|
extern void count_simul_efun_extra_refs(struct pointer_table *ptable);
|
|
#endif
|
|
|
|
#endif /* SIMUL_EFUN_H__ */
|