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

fix debugger

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1795 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2007-02-13 11:26:17 +00:00
parent 73a30641a0
commit 8edd35f303
2 changed files with 17 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
C/sysbits.c
View File

@@ -2162,12 +2162,17 @@ static Int p_putenv(void)
"second arg to putenv/2");
return(FALSE);
} else s2 = RepAtom(AtomOfTerm(t2))->StrOfAE;
p0 = p = Yap_AllocAtomSpace(strlen(s)+strlen(s2)+3);
while (!(p0 = p = Yap_AllocAtomSpace(strlen(s)+strlen(s2)+3))) {
if (!Yap_growheap(FALSE, MinHeapGap, NULL)) {
Yap_Error(OUT_OF_HEAP_ERROR, TermNil, Yap_ErrorMessage);
return FALSE;
}
}
while ((*p++ = *s++) != '\0');
p[-1] = '=';
while ((*p++ = *s2++) != '\0');
if (putenv(p0) == 0)
return(TRUE);
return TRUE;
#if HAVE_STRERROR
Yap_Error(OPERATING_SYSTEM_ERROR, TermNil,
"in putenv(%s)", strerror(errno), p0);
@@ -2175,11 +2180,11 @@ static Int p_putenv(void)
Yap_Error(OPERATING_SYSTEM_ERROR, TermNil,
"in putenv(%s)", p0);
#endif
return (FALSE);
return FALSE;
#else
Yap_Error(SYSTEM_ERROR, TermNil,
"putenv not available in this configuration");
return (FALSE);
return FALSE;
#endif
}