beautification

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@475 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2002-05-17 01:01:07 +00:00
parent 3b3a19f5d9
commit 17728f58f5
5 changed files with 16 additions and 15 deletions

View File

@@ -688,7 +688,7 @@ InitCPredBack(char *Name, int Arity, int Extra, CPredicate Start, CPredicate Con
pe->StateOfPred = NUMBER_OF_CPREDS;
c_predicates[NUMBER_OF_CPREDS] = Start;
NUMBER_OF_CPREDS++;
code->u.lds.p = (CODEADDR) pe;
code->u.lds.p = pe;
code->u.lds.s = Arity;
code->u.lds.extra = Extra;
#ifdef YAPOR
@@ -703,7 +703,7 @@ InitCPredBack(char *Name, int Arity, int Extra, CPredicate Start, CPredicate Con
code->u.lds.d = (CODEADDR) Cont;
c_predicates[NUMBER_OF_CPREDS] = Cont;
NUMBER_OF_CPREDS++;
code->u.lds.p = (CODEADDR) pe;
code->u.lds.p = pe;
code->u.lds.s = Arity;
code->u.lds.extra = Extra;
#ifdef YAPOR