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

export function make_symbol_name in module graph_copy_with_names

parent 41ebb64d
......@@ -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;
......@@ -314,6 +314,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