Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
clean-and-itasks
clean-libraries
Commits
35a785ef
Commit
35a785ef
authored
Feb 22, 2019
by
johnvg@science.ru.nl
Browse files
use abc instruction get_thunk_desc in function get_thunk_descriptor
parent
e5858b9e
Changes
1
Hide whitespace changes
Inline
Side-by-side
Libraries/graph_copy/graph_copy_with_names.icl
View file @
35a785ef
...
...
@@ -64,15 +64,9 @@ get_thunk_arity_64 a = code {
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_64
::
!
Int
->
Int
;
get_thunk_descriptor_64
a
=
code {
load_i
-12
}
get_thunk_descriptor_32
::
!
Int
->
Int
;
get_thunk_descriptor_32
a
=
code {
load_i
-8
get_thunk_descriptor
::
!
Int
->
Int
;
get_thunk_descriptor
a
=
code inline {
get_thunk_desc
}
is_Int_D
::
!
Int
->
Bool
;
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment