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

Merge ../yap-6.2

Browse Source
This commit is contained in:
Vitor Santos Costa 2010-12-05 00:09:08 +00:00
commit 35db431020
3 changed files with 857 additions and 858 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
C/absmi.c
View File

@ -1861,6 +1861,7 @@ Yap_absmi(int inp)
#else #else
B = B->cp_b; B = B->cp_b;
#endif /* YAPOR */ #endif /* YAPOR */
goto fail;
ENDBOp(); ENDBOp();
#ifdef YAPOR #ifdef YAPOR

1704
include/dswiatoms.h
View File

File diff suppressed because it is too large Load Diff

10
misc/buildswiatoms
View File

@ -34,17 +34,15 @@ gen_defs(Inp,Out) :-
nb_getval(atom_counter, Pos), nb_getval(atom_counter, Pos),
NPos is Pos+1, NPos is Pos+1,
nb_setval(atom_counter, NPos), nb_setval(atom_counter, NPos),
OffPos is Pos*2+1, number_codes(Pos, Val),
number_codes(OffPos, Val), append(["#define ATOM_",Atom," (",Val,"*2+1)"], Out).
append(["#define ATOM_",Atom," ",Val], Out).
gen_defs(Inp,Out) :- gen_defs(Inp,Out) :-
split(Inp," ",["F",Functor,Arity]), !, split(Inp," ",["F",Functor,Arity]), !,
nb_getval(functor_counter, Pos), nb_getval(functor_counter, Pos),
NPos is Pos+1, NPos is Pos+1,
nb_setval(functor_counter, NPos), nb_setval(functor_counter, NPos),
OffPos is Pos*4+2, number_codes(Pos, Val),
number_codes(OffPos, Val), append(["#define FUNCTOR_",Functor,Arity," (",Val,"*4+2)"], Out).
append(["#define FUNCTOR_",Functor,Arity," ",Val], Out).
gen_init(Inp,Out) :- gen_init(Inp,Out) :-