...
 
Commits (2)
......@@ -8,3 +8,4 @@ from symbols_in_program import ::Symbol;
copy_to_string_with_names :: a -> (!*{#Char},!*{#DescInfo},!*{#String});
copy_from_string_with_names :: !*{#Char} !*{#DescInfo} !*{#String} !{#Symbol} -> (.a,!Int);
make_symbol_name :: !String !String !Int -> String;
......@@ -393,6 +393,7 @@ get_thunk_n_non_pointers d
# b_size = arity>>8;
= b_size;
make_symbol_name :: !String !String !Int -> String;
make_symbol_name "_system" descriptor_name prefix
= case descriptor_name of {
"INT"
......