have to fix SWI frames.

This commit is contained in:
Vitor Santos Costa 2010-05-10 03:06:06 +01:00
parent d0371b2f36
commit 86333a9c6e

View File

@ -2208,7 +2208,7 @@ X_API int PL_action(int action,...)
X_API fid_t
PL_open_foreign_frame(void)
{
return 0;
return (fid_t)ASP;
}
X_API void
@ -2224,8 +2224,6 @@ PL_rewind_foreign_frame(fid_t f)
X_API void
PL_discard_foreign_frame(fid_t f)
{
if (f)
fprintf(stderr,"WARNING: PL_discard_foreign_frame not fully implemented!!\n");
/* Missing: undo Trail!! */
}