diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
This repository has been archived on 2023-08-20. You can view files and clone it, but cannot push or open issues or pull requests.
89b034ce45
yap-6.3/H/Heap.h
vsc f9ff6498d8 more simplifications on the catch and throw mechanism after 
having failed the ISO testset.


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@341 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2002-01-30 03:49:50 +00:00

522 lines
18 KiB
C
Raw Blame History

/*************************************************************************
* *
* YAP Prolog %W% %G% *
* Yap Prolog was developed at NCCUP - Universidade do Porto *
* *
* Copyright L.Damas, V.S.Costa and Universidade do Porto 1985-1997 *
* *
**************************************************************************
* *
* File: Heap.h *
* mods: *
* comments: Heap Init Structure *
* version: $Id: Heap.h,v 1.23 2002-01-30 03:49:50 vsc Exp $ *
*************************************************************************/
/* information that can be stored in Code Space */
#ifndef INT_KEYS_DEFAULT_SIZE
#define INT_KEYS_DEFAULT_SIZE 256
#endif
typedef struct atom_hash_entry {
#if defined(YAPOR) || defined(THREADS)
rwlock_t AERWLock;
#endif
Atom Entry;
} AtomHashEntry;
typedef struct various_codes {
special_functors funcs;
Int heap_used;
Int heap_max;
ADDR heap_top;
struct FREEB *free_blocks;
#if defined(YAPOR) || defined(THREADS)
lockvar free_blocks_lock; /* protect the list of free blocks */
#endif
#ifdef YAPOR
int seq_def;
yamop getworkcode;
yamop getworkcode_seq;
yamop getworkfirsttimecode;
#endif /* YAPOR */
#ifdef TABLING
yamop tablecompletioncode;
yamop tableanswerresolutioncode;
#endif /* TABLING */
OPCODE failcode;
OPCODE failcode_1;
OPCODE failcode_2;
OPCODE failcode_3;
OPCODE failcode_4;
OPCODE failcode_5;
OPCODE failcode_6;
OPCODE trustfailcode;
struct {
OPCODE op;
#ifdef YAPOR
COUNT ltt;
COUNT cut;
COUNT seq;
#endif /* YAPOR */
COUNT s;
CODEADDR l;
CODEADDR l2;
CODEADDR p;
} env_for_yes_code; /* sla */
OPCODE yescode;
#ifdef YAPOR
yamop nocode;
yamop rtrycode;
#else
OPCODE nocode;
/* yamop rtrycode; problem: we would have to publish yamop */
CELL rtrycode[4];
#endif /* YAPOR */
struct {
OPREG arity;
CODEADDR clause;
Functor func;
} clausecode;
union CONSULT_OBJ *consultsp;
union CONSULT_OBJ *consultbase;
union CONSULT_OBJ *consultlow;
UInt consultcapacity;
#if HAVE_LIBREADLINE
char *readline_buf, *readline_pos;
#endif
#if USE_THREADED_CODE
opentry *op_rtable;
#endif
#ifdef COROUTINING
int num_of_atts; /* max. number of attributes we have for a variable */
#ifdef MULTI_ASSIGNMENT_VARIABLES
Term woken_goals;
Term mutable_list;
Term atts_mutable_list;
#endif
PredEntry *wake_up_code;
#endif
struct pred_entry *creep_code;
struct pred_entry *undef_code;
struct pred_entry *spy_code;
int profiling;
AtomHashEntry invisiblechain;
OPCODE dummycode;
Int maxdepth, maxlist;
int update_mode;
Atom atprompt;
#if defined(YAPOR) || defined(THREADS)
lockvar heap_used_lock; /* protect HeapUsed */
#endif
char prompt[MAX_PROMPT];
OPCODE undef_op;
OPCODE index_op;
yamop *retry_recorded_code,
*retry_recorded_k_code,
*retry_drecorded_code,
*retry_c_recordedp_code;
Int static_predicates_marked;
UInt int_keys_size;
UInt int_keys_timestamp;
Prop *IntKeys;
UInt int_bb_keys_size;
Prop *IntBBKeys;
Int yap_flags_field[NUMBER_OF_YAP_FLAGS];
char *char_conversion_table;
char *char_conversion_table2;
#if defined(YAPOR) || defined(THREADS)
lockvar heap_top_lock; /* protect HeapTop */
int heap_top_owner;
#endif
unsigned int size_of_overflow;
UInt number_of_cpreds;
UInt number_of_cmpfuncs;
Term module_name[MaxModules];
struct pred_entry *module_pred[MaxModules];
SMALLUNSGN no_of_modules;
struct clause_struct *dead_clauses;
#if defined(YAPOR) || defined(THREADS)
lockvar dead_clauses_lock; /* protect DeadClauses */
#endif
int primitives_module;
int user_module;
struct idb_queue *db_queues, *db_queues_cache;
Atom
atom_abol,
atom_alarm,
atom_append,
atom_array,
atom_assert,
atom_b,
atom_break,
atom_call,
atom_catch,
atom_comma,
atom_cpu_time,
atom_csult,
atom_cut,
atom_cut_by,
#ifdef EUROTRA
#ifdef SFUNC
atom_dollar_undef,
#endif
#endif
atom_e,
atom_e_q,
atom_eof,
#ifdef EUROTRA
atom_f_b,
#endif
atom_fail,
atom_false,
atom_fast,
atom_g_t,
atom_gc,
atom_gc_margin,
atom_gc_trace,
atom_gc_verbose,
atom_gc_very_verbose,
atom_global,
atom_heap_used,
atom_index,
atom_inf,
atom_l_t,
atom_local,
atom_meta_call,
atom_minus,
atom_nan,
atom_otherwise,
atom_pi,
atom_plus,
atom_portray,
atom_profile,
atom_random,
atom_read,
atom_repeat,
atom_restore_regs,
#if HAVE_SIGACTION
atom_sig_pending,
#endif
atom_stack_free,
atom_true,
atom_unwritable,
atom_user,
atom_usr_in,
atom_usr_out,
atom_usr_err,
atom_version_number,
atom_write;
Functor
#ifdef USE_SOCKET
functor_af_inet,
functor_af_local,
functor_af_unix,
#endif
functor_alt_not,
#ifdef COROUTINING
functor_array_entry,
#endif
functor_arrow,
functor_assert,
#ifdef COROUTINING
functor_att_goal, /* goal that activates attributed variables */
#endif
functor_braces,
functor_call,
functor_clist,
functor_comma,
functor_csult,
functor_cut_by,
functor_eq,
functor_execute_in_mod,
functor_execute_within,
functor_g_atom,
functor_g_atomic,
functor_g_compound,
functor_g_integer,
functor_g_float,
functor_g_number,
functor_g_primitive,
functor_g_var,
functor_last_execute_within,
functor_list,
functor_module,
#ifdef MULTI_ASSIGNMENT_VARIABLES
functor_mutable,
#endif
functor_not,
functor_or,
functor_portray,
functor_query,
functor_spy,
functor_stream,
functor_stream_pos,
functor_stream_eOS,
functor_change_module,
functor_current_module,
functor_u_minus,
functor_u_plus,
functor_v_bar,
functor_var;
Term
#ifdef EUROTRA
term_dollar_u,
#endif
term_prolog,
term_refound_var;
void *last_wtime;
PredEntry *pred_goal_expansion;
PredEntry *pred_meta_call;
PredEntry *pred_dollar_catch;
PredEntry *pred_throw;
PredEntry *pred_handle_throw;
UInt n_of_file_aliases;
UInt sz_of_file_aliases;
struct AliasDescS * file_aliases;
void *foreign_code_loaded;
char *yap_lib_dir;
#if defined(YAPOR) || defined(TABLING)
struct global_data global;
struct local_data remote[MAX_WORKERS];
#endif
AtomHashEntry hash_chain[MaxHash];
} all_heap_codes;
#define heap_regs ((all_heap_codes *)HEAP_INIT_BASE)
#define HeapUsed heap_regs->heap_used
#define HeapMax heap_regs->heap_max
#define HeapTop heap_regs->heap_top
#ifdef YAPOR
#define SEQUENTIAL_IS_DEFAULT heap_regs->seq_def
#define GETWORK (&(heap_regs->getworkcode ))
#define GETWORK_SEQ (&(heap_regs->getworkcode_seq ))
#define GETWORK_FIRST_TIME (&(heap_regs->getworkfirsttimecode ))
#endif /* YAPOR */
#ifdef TABLING
#define COMPLETION ((yamop *)&(heap_regs->tablecompletioncode ))
#define ANSWER_RESOLUTION ((yamop *)&(heap_regs->tableanswerresolutioncode ))
#endif /* TABLING */
#define FAILCODE ((CODEADDR)&(heap_regs->failcode ))
#define FAILCODE ((CODEADDR)&(heap_regs->failcode ))
#define TRUSTFAILCODE ((CODEADDR)&(heap_regs->trustfailcode ))
#define YESCODE ((CODEADDR)&(heap_regs->yescode ))
#define NOCODE ((CODEADDR)&(heap_regs->nocode ))
#define RTRYCODE ((CODEADDR)&(heap_regs->rtrycode ))
#define DUMMYCODE ((CODEADDR)&(heap_regs->dummycode ))
#define CLAUSECODE (&(heap_regs->clausecode ))
#define INVISIBLECHAIN heap_regs->invisiblechain
#define max_depth (&(heap_regs->maxdepth ))
#define max_list (&(heap_regs->maxlist ))
#define AtPrompt (&(heap_regs->atprompt ))
#define Prompt heap_regs->prompt
#if USE_THREADED_CODE
#define OP_RTABLE heap_regs->op_rtable
#endif
#define PROFILING heap_regs->profiling
#define UPDATE_MODE heap_regs->update_mode
#define RETRY_C_RECORDED_CODE heap_regs->retry_recorded_code
#define RETRY_C_RECORDED_K_CODE heap_regs->retry_recorded_k_code
#define RETRY_C_DRECORDED_CODE heap_regs->retry_drecorded_code
#define RETRY_C_RECORDEDP_CODE heap_regs->retry_c_recordedp_code
#define STATIC_PREDICATES_MARKED heap_regs->static_predicates_marked
#define yap_flags heap_regs->yap_flags_field
#define UNDEF_OPCODE heap_regs->undef_op
#define INDEX_OPCODE heap_regs->index_op
#define HashChain heap_regs->hash_chain
#define INT_KEYS_SIZE heap_regs->int_keys_size
#define INT_KEYS_TIMESTAMP heap_regs->int_keys_timestamp
#define INT_KEYS heap_regs->IntKeys
#define INT_BB_KEYS_SIZE heap_regs->int_bb_keys_size
#define INT_BB_KEYS heap_regs->IntBBKeys
#define CharConversionTable heap_regs->char_conversion_table
#define CharConversionTable2 heap_regs->char_conversion_table2
#define NUMBER_OF_CPREDS heap_regs->number_of_cpreds
#define NUMBER_OF_CMPFUNCS heap_regs->number_of_cmpfuncs
#define ModuleName heap_regs->module_name
#define ModulePred heap_regs->module_pred
#define PrimitivesModule heap_regs->primitives_module
#define UserModule heap_regs->user_module
#define DBQueues heap_regs->db_queues
#define DBQueuesCache heap_regs->db_queues_cache
#define NoOfModules heap_regs->no_of_modules
#define AtomAbol heap_regs->atom_abol
#define AtomAlarm heap_regs->atom_alarm
#define AtomAppend heap_regs->atom_append
#define AtomArray heap_regs->atom_array
#define AtomAssert heap_regs->atom_assert
#define AtomB heap_regs->atom_b
#define AtomBreak heap_regs->atom_break
#define AtomCall heap_regs->atom_call
#define AtomCatch heap_regs->atom_catch
#define AtomComma heap_regs->atom_comma
#define AtomCpuTime heap_regs->atom_cpu_time
#define AtomCsult heap_regs->atom_csult
#define AtomCut heap_regs->atom_cut
#define AtomCutBy heap_regs->atom_cut_by
#if defined(EUROTRA) && defined(SFUNC)
#define AtomDollarUndef heap_regs->atom_dollar_undef
#endif
#define AtomE heap_regs->atom_e
#define AtomEQ heap_regs->atom_e_q
#define AtomEof heap_regs->atom_eof
#ifdef EUROTRA
#define AtomFB heap_regs->atom_f_b
#endif
#define AtomFail heap_regs->atom_fail
#define AtomFalse heap_regs->atom_false
#define AtomFast heap_regs->atom_fast
#define AtomGT heap_regs->atom_g_t
#define AtomGc heap_regs->atom_gc
#define AtomGcMargin heap_regs->atom_gc_margin
#define AtomGcTrace heap_regs->atom_gc_trace
#define AtomGcVerbose heap_regs->atom_gc_verbose
#define AtomGcVeryVerbose heap_regs->atom_gc_very_verbose
#define AtomGlobal heap_regs->atom_global
#define AtomHeapUsed heap_regs->atom_heap_used
#define AtomIndex heap_regs->atom_index
#define AtomInf heap_regs->atom_inf
#define AtomLocal heap_regs->atom_local
#define AtomLT heap_regs->atom_l_t
#define AtomMetaCall heap_regs->atom_meta_call
#define AtomMinus heap_regs->atom_minus
#define AtomNan heap_regs->atom_nan
#define AtomOtherwise heap_regs->atom_otherwise
#define AtomPi heap_regs->atom_pi
#define AtomPlus heap_regs->atom_plus
#define AtomPortray heap_regs->atom_portray
#define AtomProfile heap_regs->atom_profile
#define AtomRandom heap_regs->atom_random
#define AtomRead heap_regs->atom_read
#define AtomRepeat heap_regs->atom_repeat
#define AtomRestoreRegs heap_regs->atom_restore_regs
#if HAVE_SIGACTION
#define AtomSigPending heap_regs->atom_sig_pending
#endif
#define AtomStackFree heap_regs->atom_stack_free
#define AtomTrue heap_regs->atom_true
#define AtomUser heap_regs->atom_user
#define AtomUsrErr heap_regs->atom_usr_err
#define AtomUsrIn heap_regs->atom_usr_in
#define AtomUsrOut heap_regs->atom_usr_out
#define AtomVersionNumber heap_regs->atom_version_number
#define AtomWrite heap_regs->atom_write
#ifdef USE_SOCKET
#define FunctorAfInet heap_regs->functor_af_inet
#define FunctorAfLocal heap_regs->functor_af_local
#define FunctorAfUnix heap_regs->functor_af_unix
#endif
#define FunctorAltNot heap_regs->functor_alt_not
#ifdef COROUTINING
#define FunctorArrayEntry heap_regs->functor_array_entry
#endif
#define FunctorArrow heap_regs->functor_arrow
#define FunctorAssert heap_regs->functor_assert
#ifdef COROUTINING
#define FunctorAttGoal heap_regs->functor_att_goal
#endif
#define FunctorBraces heap_regs->functor_braces
#define FunctorCall heap_regs->functor_call
#define FunctorClist heap_regs->functor_clist
#define FunctorComma heap_regs->functor_comma
#define FunctorCsult heap_regs->functor_csult
#define FunctorCutBy heap_regs->functor_cut_by
#define FunctorEq heap_regs->functor_eq
#define FunctorExecuteInMod heap_regs->functor_execute_in_mod
#define FunctorExecuteWithin heap_regs->functor_execute_within
#define FunctorGAtom heap_regs->functor_g_atom
#define FunctorGAtomic heap_regs->functor_g_atomic
#define FunctorGCompound heap_regs->functor_g_compound
#define FunctorGFloat heap_regs->functor_g_float
#define FunctorGInteger heap_regs->functor_g_integer
#define FunctorGNumber heap_regs->functor_g_number
#define FunctorGPrimitive heap_regs->functor_g_primitive
#define FunctorGVar heap_regs->functor_g_var
#define FunctorLastExecuteWithin heap_regs->functor_last_execute_within
#define FunctorList heap_regs->functor_list
#define FunctorModule heap_regs->functor_module
#ifdef MULTI_ASSIGNMENT_VARIABLES
#define FunctorMutable heap_regs->functor_mutable
#endif
#define FunctorNot heap_regs->functor_not
#define FunctorOr heap_regs->functor_or
#define FunctorPortray heap_regs->functor_portray
#define FunctorQuery heap_regs->functor_query
#define FunctorSpy heap_regs->functor_spy
#define FunctorStream heap_regs->functor_stream
#define FunctorStreamPos heap_regs->functor_stream_pos
#define FunctorStreamEOS heap_regs->functor_stream_eOS
#define FunctorChangeModule heap_regs->functor_change_module
#define FunctorCurrentModule heap_regs->functor_current_module
#define FunctorModSwitch heap_regs->functor_mod_switch
#define FunctorUMinus heap_regs->functor_u_minus
#define FunctorUPlus heap_regs->functor_u_plus
#define FunctorVBar heap_regs->functor_v_bar
#define FunctorVar heap_regs->functor_var
#define TermDollarU heap_regs->term_dollar_u
#define TermProlog heap_regs->term_prolog
#define TermReFoundVar heap_regs->term_refound_var
#define PredGoalExpansion heap_regs->pred_goal_expansion
#define PredMetaCall heap_regs->pred_meta_call
#define PredDollarCatch heap_regs->pred_dollar_catch
#define PredThrow heap_regs->pred_throw
#define PredHandleThrow heap_regs->pred_handle_throw
#define NOfFileAliases heap_regs->n_of_file_aliases
#define SzOfFileAliases heap_regs->sz_of_file_aliases
#define FileAliases heap_regs->file_aliases
#define ForeignCodeLoaded heap_regs->foreign_code_loaded
#define Yap_LibDir heap_regs->yap_lib_dir
#define DeadClauses heap_regs->dead_clauses
#define SizeOfOverflow heap_regs->size_of_overflow
#define LastWtimePtr heap_regs->last_wtime
#ifdef COROUTINING
#define WakeUpCode heap_regs->wake_up_code
#define WokenGoals heap_regs->woken_goals
#define MutableList heap_regs->mutable_list
#define AttsMutableList heap_regs->atts_mutable_list
#endif
#if defined(YAPOR) || defined(THREADS)
#define FreeBlocksLock heap_regs->free_blocks_lock
#define HeapTopLock heap_regs->heap_top_lock
#define HeapTopOwner heap_regs->heap_top_owner
#define HeapUsedLock heap_regs->heap_used_lock
#define DeadClausesLock heap_regs->dead_clauses_lock
#endif
#define CreepCode heap_regs->creep_code
#define UndefCode heap_regs->undef_code
#define SpyCode heap_regs->spy_code
#if defined(YAPOR) || defined(TABLING)
#define REMOTE heap_regs->remote
#define GLOBAL heap_regs->global
#endif
#define UPDATE_MODE_IMMEDIATE 0
#define UPDATE_MODE_LOGICAL 1
#define UPDATE_MODE_LOGICAL_ASSERT 2
#ifdef COROUTINING
#define NUM_OF_ATTS heap_regs->num_of_atts
#endif
/* initially allow for files with up to 1024 predicates. This number
is extended whenever needed */
#define InitialConsultCapacity 1024
/* current consult stack */
#define ConsultSp (heap_regs->consultsp )
/* top of consult stack */
#define ConsultBase (heap_regs->consultbase )
/* low-water mark for consult */
#define ConsultLow (heap_regs->consultlow )
/* current maximum number of cells in consult stack */
#define ConsultCapacity (heap_regs->consultcapacity )
#if HAVE_LIBREADLINE
#define ReadlineBuf heap_regs->readline_buf
#define ReadlinePos heap_regs->readline_pos
#endif
Reference in New Issue View Git Blame Copy Permalink