Commit 5ef2a3c0 authored by Karl Heuer's avatar Karl Heuer

(openp): Fix Lisp_Object vs. int problems.

parent 92992c7e
......@@ -588,7 +588,8 @@ openp (path, str, suffix, storeptr, exec_only)
/* We succeeded; return this descriptor and filename. */
if (storeptr)
*storeptr = build_string (fn);
RETURN_UNGCPRO (fd);
UNGCPRO;
return fd;
}
}
......@@ -598,10 +599,11 @@ openp (path, str, suffix, storeptr, exec_only)
nsuffix += lsuffix + 1;
}
if (absolute)
RETURN_UNGCPRO (-1);
break;
}
RETURN_UNGCPRO (-1);
UNGCPRO;
return -1;
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment