diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix limit on atoms to ints

Browse Source
This commit is contained in:
Vítor Santos Costa
2013-10-08 13:04:30 +01:00
parent c757e51cb0
commit 70d864b13d
7 changed files with 710 additions and 697 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
misc/HEAPFIELDS
View File

@@ -336,14 +336,14 @@ ADDR foreign_code_max ForeignCodeMax =NULL void
struct record_list *yap_records Yap_Records =NULL RestoreYapRecords()
/* SWI atoms and functors */
Atom swi_atoms[2*N_SWI_ATOMS] SWI_Atoms InitSWIAtoms() RestoreSWIAtoms()
Atom *swi_atoms SWI_Atoms InitSWIAtoms() RestoreSWIAtoms()
Functor swi_functors[N_SWI_FUNCTORS] SWI_Functors void void
struct swi_reverse_hash swi_reverse_hash[N_SWI_HASH] SWI_ReverseHash void void
/* integer access to atoms */
Int atom_translations AtomTranslations void void
Int max_atom_translations MaxAtomTranslations =2*N_SWI_ATOMS
Int max_atom_translations MaxAtomTranslations void void
Atom empty_wakeups[MAX_EMPTY_WAKEUPS] EmptyWakeups InitEmptyWakeups() RestoreEmptyWakeups()
int max_empty_wakeups MaxEmptyWakeups =0

2
misc/buildswiatoms
View File

@@ -47,7 +47,7 @@ gen_defs(Inp,Out) :-
gen_init(Inp,Out) :-
split(Inp," ",["A",_,String]), !,
append([" SWI_Atoms[i++] = Yap_LookupAtom(",String,");"],Out).
append([" YAP_AtomToInt(Yap_LookupAtom(",String,"));"],Out).
gen_init(Inp,Out) :-
split(Inp," ",["F",String,Arity]), !,
append([" SWI_Functors[j++] = Yap_MkFunctor(SWIAtomToAtom(ATOM_",String,"),",Arity,");"],Out).