Commit 5a58e168 authored by Camil Staps's avatar Camil Staps 🍃

Export make_symbol_name

parent df826181
......@@ -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"
......
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