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

small fixes

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1261 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2005-03-07 17:49:16 +00:00
parent 8b74eb8b2b
commit b6af3095da
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
C/absmi.c
View File

@ -10,8 +10,11 @@
* * * *
* File: absmi.c * * File: absmi.c *
* comments: Portable abstract machine interpreter * * comments: Portable abstract machine interpreter *
* Last rev: $Date: 2005-03-04 20:29:55 $,$Author: ricroc $ * * Last rev: $Date: 2005-03-07 17:49:14 $,$Author: vsc $ *
* $Log: not supported by cvs2svn $ * $Log: not supported by cvs2svn $
* Revision 1.159 2005/03/04 20:29:55 ricroc
* bug fixes for YapTab support
*
* Revision 1.158 2005/03/01 22:25:07 vsc * Revision 1.158 2005/03/01 22:25:07 vsc
* fix pruning bug * fix pruning bug
* make DL_MALLOC less enthusiastic about walking through buckets. * make DL_MALLOC less enthusiastic about walking through buckets.
@ -281,8 +284,8 @@ void prof_alrm(int signo, siginfo_t *si, ucontext_t *sc)
fprintf(FProf,"%p %p\n", (void *) oldpc, P); fprintf(FProf,"%p %p\n", (void *) oldpc, P);
return; return;
} }
#endif
fprintf(FProf,"0 %p\n", PREG); fprintf(FProf,"0 %p\n", PREG);
#endif
return; return;
} }

2
C/save.c
View File

@ -185,7 +185,7 @@ myread(int fd, char *buff, Int len)
while (len > 0) { while (len > 0) {
int nchars = read(fd, buff, len); int nchars = read(fd, buff, len);
if (nchars < 0) { if (nchars < 0) {
return do_system_error(PERMISSION_ERROR_INPUT_PAST_END_OF_STREAM, "bad read on saved state", ); return do_system_error(PERMISSION_ERROR_INPUT_PAST_END_OF_STREAM, "bad read on saved state");
} }
len -= nchars; len -= nchars;
buff += nchars; buff += nchars;