Commit 57fb4ed0 authored by Diederik van Arkel's avatar Diederik van Arkel
Browse files

fix set_return_code for PSt

parent e4f14099
......@@ -15,10 +15,11 @@ set_return_code_world a0 a1 = code {
}
set_return_code_pst :: !Int !(PSt .l) -> PSt .l;
set_return_code_pst a0 a1 = code {
set_return_code_pst a0 a1 = set_return_code_a a0 a1;
set_return_code_a :: !Int !.a -> .a;
set_return_code_a a0 a1 = code {
ccall set_return_code "I:V:A"
fill_a 0 1
pop_a 1
}
// void set_return_code (int return_code);
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