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

keep trying to fix atoms

Browse Source
This commit is contained in:
Vitor Santos Costa
2013-12-04 23:01:30 +00:00
parent 0d749059a4
commit 2665f71112
17 changed files with 1362 additions and 610 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
C/compiler.c
View File

@@ -714,7 +714,7 @@ c_arg(Int argno, Term t, unsigned int arity, unsigned int level, compiler_struct
/* The argument to pass to the structure is now the label for
where we are storing the blob */
if (level == 0)
Yap_emit((cglobs->onhead ? get_string_op : put_string_op), t, argno, &cglobs->cint);
Yap_emit((cglobs->onhead ? get_string_op : put_string_op), l1, argno, &cglobs->cint);
else
Yap_emit((cglobs->onhead ? (argno == (Int)arity ? unify_last_string_op
: unify_string_op) :