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

string_concat

Browse Source
This commit is contained in:
Vítor Santos Costa 2014-10-22 17:22:37 +01:00
parent 92ffbe5a2e
commit 0367f52840
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
C/atomic.c
View File

@ -810,10 +810,13 @@ init_string_concat3( USES_REGS1 )
} else if (Yap_IsGroundTerm(t2) && Yap_IsGroundTerm(t3)) { } else if (Yap_IsGroundTerm(t2) && Yap_IsGroundTerm(t3)) {
tf = Yap_SubtractTailString( t3, t2 PASS_REGS ); tf = Yap_SubtractTailString( t3, t2 PASS_REGS );
ot = ARG1; ot = ARG1;
} else if (Yap_IsGroundTerm(t3)) {
EXTRA_CBACK_ARG(3,1) = MkIntTerm(0);
EXTRA_CBACK_ARG(3,2) = MkIntTerm(Yap_StringToLength(t3 PASS_REGS));
return cont_string_concat3( PASS_REGS1 );
} else { } else {
EXTRA_CBACK_ARG(3,1) = MkIntTerm(0); LOCAL_Error_TYPE = INSTANTIATION_ERROR;
EXTRA_CBACK_ARG(3,2) = MkIntTerm(Yap_StringToLength(t3 PASS_REGS)); LOCAL_Error_Term = t1;
return cont_string_concat3( PASS_REGS1 );
} }
if (tf) { if (tf) {
if (Yap_unify(ot, tf)) { cut_succeed(); } if (Yap_unify(ot, tf)) { cut_succeed(); }