Commit 35a785ef authored by johnvg@science.ru.nl's avatar johnvg@science.ru.nl

use abc instruction get_thunk_desc in function get_thunk_descriptor

parent e5858b9e
...@@ -64,15 +64,9 @@ get_thunk_arity_64 a = code { ...@@ -64,15 +64,9 @@ get_thunk_arity_64 a = code {
load_si32 -4 load_si32 -4
} }
get_thunk_descriptor a :== IF_INT_64_OR_32 (get_thunk_descriptor_64 a) (get_thunk_descriptor_32 a); get_thunk_descriptor :: !Int -> Int;
get_thunk_descriptor a = code inline {
get_thunk_descriptor_64 :: !Int -> Int; get_thunk_desc
get_thunk_descriptor_64 a = code {
load_i -12
}
get_thunk_descriptor_32 :: !Int -> Int;
get_thunk_descriptor_32 a = code {
load_i -8
} }
is_Int_D :: !Int -> Bool; is_Int_D :: !Int -> Bool;
......
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