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

fix retry_head to work correctly if the argument is dereferenced.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@638 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-10-17 00:48:52 +00:00
parent 153b2cb2a3
commit 4a71cbda80
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
C/absmi.c
View File

@ -6508,8 +6508,8 @@ absmi(int inp)
d0 = ARG1; d0 = ARG1;
/* deref it first */ /* deref it first */
deref_head(d0,retry_tail_unk); deref_head(d0,retry_tail_unk);
PREG = (yamop *) (PREG->u.ld.d);
retry_tail_nvar: retry_tail_nvar:
PREG = (yamop *) (PREG->u.ld.d);
if (IsPairTerm(d0)) { if (IsPairTerm(d0)) {
/* pair */ /* pair */
SREG = RepPair(d0)+1; SREG = RepPair(d0)+1;