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

fix number of overflow bugs affecting threaded version

Browse Source 
make current_op faster.


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1615 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2006-04-28 13:23:23 +00:00
parent a80878d5f6
commit 6fb10bfc51
12 changed files with 96 additions and 67 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
C/iopreds.c
View File

@@ -4481,9 +4481,9 @@ static Int
p_format(void)
{ /* 'format'(Control,Args) */
Int res;
LOCK(BGL);
//LOCK(BGL);
res = format(Deref(ARG1),Deref(ARG2), Yap_c_output_stream);
UNLOCK(BGL);
//UNLOCK(BGL);
return res;
}
@@ -4494,17 +4494,17 @@ p_format2(void)
int old_c_stream = Yap_c_output_stream;
Int out;
LOCK(BGL);
//LOCK(BGL);
/* needs to change Yap_c_output_stream for write */
Yap_c_output_stream = CheckStream (ARG1, Output_Stream_f, "format/3");
if (Yap_c_output_stream == -1) {
Yap_c_output_stream = old_c_stream;
UNLOCK(BGL);
//UNLOCK(BGL);
return(FALSE);
}
out = format(Deref(ARG2),Deref(ARG3),Yap_c_output_stream);
Yap_c_output_stream = old_c_stream;
UNLOCK(BGL);
// UNLOCK(BGL);
return(out);
}