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

use standard way to dump arguments

Browse Source
This commit is contained in:
Vitor Santos Costa 2012-10-08 18:25:17 +01:00
parent b24922fd38
commit 26b5173a33
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
C/parser.c
View File

@ -177,8 +177,13 @@ VarNames(VarEntry *p,Term l USES_REGS)
{ {
if (p != NULL) { if (p != NULL) {
if (strcmp(p->VarRep, "_") != 0) { if (strcmp(p->VarRep, "_") != 0) {
Term o = MkPairTerm(MkPairTerm(Yap_StringToList(p->VarRep), p->VarAdr), Term t[2];
VarNames(p->VarRight, Term o;
t[0] = MkAtomTerm(Yap_LookupAtom(p->VarRep));
t[1] = p->VarAdr;
o = Yap_MkApplTerm(FunctorEq, 2, t);
o = MkPairTerm(o, VarNames(p->VarRight,
VarNames(p->VarLeft,l PASS_REGS) PASS_REGS)); VarNames(p->VarLeft,l PASS_REGS) PASS_REGS));
if (H > ASP-4096) { if (H > ASP-4096) {
save_machine_regs(); save_machine_regs();