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

fix blob output

This commit is contained in:
Vítor Santos Costa 2013-11-23 15:19:54 +00:00
parent 03879aa778
commit 80dc774a5f
1 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
C/write.c
View File

@ -409,19 +409,25 @@ wrputref(CODEADDR ref, int Quote_illegal, struct write_globs *wglb)
} }
/* writes a blob (default) */ /* writes a blob (default) */
static void static int
wrputblob(CODEADDR ref, int Quote_illegal, struct write_globs *wglb) wrputblob(AtomEntry * ref, int Quote_illegal, struct write_globs *wglb)
{ {
char s[256]; char s[256];
wrf stream = wglb->stream; wrf stream = wglb->stream;
PL_blob_t *type = RepBlobProp(ref->PropsOfAE)->blob_t;
putAtom(AtomSWIStream, Quote_illegal, wglb); if (type->write) {
atom_t at = YAP_SWIAtomFromAtom(AbsAtom(ref));
return type->write(stream, at, 0);
} else {
putAtom(AtomSWIStream, Quote_illegal, wglb);
#if defined(__linux__) || defined(__APPLE__) #if defined(__linux__) || defined(__APPLE__)
sprintf(s, "(%p)", ref); sprintf(s, "(%p)", ref);
#else #else
sprintf(s, "(0x%p)", ref); sprintf(s, "(0x%p)", ref);
#endif #endif
wrputs(s, stream); wrputs(s, stream);
}
lastw = alphanum; lastw = alphanum;
} }
@ -546,7 +552,7 @@ putAtom(Atom atom, int Quote_illegal, struct write_globs *wglb)
wrf stream = wglb->stream; wrf stream = wglb->stream;
if (IsBlob(atom)) { if (IsBlob(atom)) {
wrputblob((CODEADDR)RepAtom(atom),wglb->Quote_illegal,wglb); wrputblob(RepAtom(atom),wglb->Quote_illegal,wglb);
return; return;
} }
if (IsWideAtom(atom)) { if (IsWideAtom(atom)) {