Fixed crash on 64-bit systems when get_thunk_descriptor is used.

b7e8c32c · Arjan Oortgiese · 82031140 · b7e8c32c
Commit b7e8c32c authored Sep 23, 2016 by Arjan Oortgiese
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

common/graph_copy_with_names.icl common/graph_copy_with_names.icl +1 -1

No files found.
--- a/common/graph_copy_with_names.icl
+++ b/common/graph_copy_with_names.icl
@@ -68,7 +68,7 @@ get_thunk_descriptor a :== IF_INT_64_OR_32 (get_thunk_descriptor_64 a) (get_thun

 get_thunk_descriptor_64 :: !Int -> Int;
 get_thunk_descriptor_64 a = code {
-	load_i -12
+	load_si32 -8
 }
 get_thunk_descriptor_32 :: !Int -> Int;
 get_thunk_descriptor_32 a = code {