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

fix totag SWI functors.

Browse Source
This commit is contained in:
Vitor Santos Costa 2010-07-19 14:47:08 +01:00
parent bbc67cca67
commit f34dcec03e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
misc/buildswiatoms
View File

@ -42,7 +42,7 @@ gen_defs(Inp,Out) :-
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*2+1, OffPos is Pos*4+2,
number_codes(OffPos, Val), number_codes(OffPos, Val),
append(["#define FUNCTOR_",Functor,Arity," ",Val], Out). append(["#define FUNCTOR_",Functor,Arity," ",Val], Out).