fix totag SWI functors.

This commit is contained in:
Vitor Santos Costa 2010-07-19 14:47:08 +01:00
parent bbc67cca67
commit f34dcec03e

View File

@ -42,7 +42,7 @@ gen_defs(Inp,Out) :-
nb_getval(functor_counter, Pos),
NPos is Pos+1,
nb_setval(functor_counter, NPos),
OffPos is Pos*2+1,
OffPos is Pos*4+2,
number_codes(OffPos, Val),
append(["#define FUNCTOR_",Functor,Arity," ",Val], Out).