diff options
| author | Stanislav Sedov <stas@FreeBSD.org> | 2006-12-14 19:41:49 +0000 |
|---|---|---|
| committer | Stanislav Sedov <stas@FreeBSD.org> | 2006-12-14 19:41:49 +0000 |
| commit | 5c0f35dca6e21fd4800fcdab897c084230d307e6 (patch) | |
| tree | 0a74bdf74db077aca21b00356a008ad5a50a64f6 /lang/cu-prolog | |
| parent | 3a8252941a7b1a511453092e2a78f93c3f6d86aa (diff) | |
| download | ports-5c0f35dca6e21fd4800fcdab897c084230d307e6.tar.gz ports-5c0f35dca6e21fd4800fcdab897c084230d307e6.zip | |
Notes
Diffstat (limited to 'lang/cu-prolog')
| -rw-r--r-- | lang/cu-prolog/files/patch-syspred1.c | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/lang/cu-prolog/files/patch-syspred1.c b/lang/cu-prolog/files/patch-syspred1.c new file mode 100644 index 000000000000..1f8bc3658be8 --- /dev/null +++ b/lang/cu-prolog/files/patch-syspred1.c @@ -0,0 +1,32 @@ +--- src/syspred1.c.orig Thu Dec 14 22:30:29 2006 ++++ src/syspred1.c Thu Dec 14 22:35:14 2006 +@@ -1094,6 +1094,7 @@ + struct clause *root; + register struct term *tt, *temp; + int pos = 0, arity; ++ struct term *tt1; + + if (is_atomic(t)) return((struct clause *)NIL); + if ((arity = t->t_arity)==0) return((struct clause *)NIL); +@@ -1105,8 +1106,9 @@ + head_of_list(tt) = Arg(t,pos); + pos++; + if (pos >= arity) break; +- tail_of_list(tt) = temp = +- (struct term *)Nlist(NIL,(struct clause *)NIL,TEMPORAL); ++ tt1 = tail_of_list(tt); ++ temp = (struct term *)Nlist(NIL,(struct clause *)NIL,TEMPORAL); ++ tt1 = (struct term *)Nlist(NIL,(struct clause *)NIL,TEMPORAL); + tt = temp; + } + return(root); +@@ -1227,8 +1229,7 @@ + head_of_list(t) = Nstr(s, TEMPORAL); + } + if (nbuf[pos] == '\0') return(root); +- t = (tail_of_list(t) = +- (struct term *)Nlist(NIL,(struct clause *)NIL,TEMPORAL)); ++ t = (struct term *)Nlist(NIL,(struct clause *)NIL,TEMPORAL); + } + } + |