- = compile_string(idname_string, STRCTX_SYMBOL);
- }
-
- for (i=0, no_named_constants=0; i<no_symbols; i++)
- { if (((symbols[i].type == OBJECT_T) || (symbols[i].type == CLASS_T)
- || (symbols[i].type == CONSTANT_T))
- && ((symbols[i].flags & (UNKNOWN_SFLAG+ACTION_SFLAG))==0))
- { sprintf(idname_string, "%s", symbols[i].name);
- array_name_strings[no_arrays + no_globals + no_named_routines
- + no_named_constants++]
- = compile_string(idname_string, STRCTX_SYMBOL);
+ = compile_string(symbols[named_routine_symbols[i]].name, STRCTX_SYMBOL);
+ }
+
+ for (i=0, no_named_constants=0; i<no_symbols; i++)
+ { if (((symbols[i].type == OBJECT_T) || (symbols[i].type == CLASS_T)
+ || (symbols[i].type == CONSTANT_T))
+ && ((symbols[i].flags & (UNKNOWN_SFLAG+ACTION_SFLAG))==0))
+ {
+ array_name_strings[no_arrays + no_globals + no_named_routines
+ + no_named_constants++]
+ = compile_string(symbols[i].name, STRCTX_SYMBOL);
+ }