Branch: Tag:

2014-08-18

2014-08-18 15:38:59 by Martin Nilsson <nilsson@opera.com>

Improved cast.

108:   struct pike_type *sscanf_type_string;   struct pike_type *sscanf_76_type_string;    + PMOD_EXPORT struct pike_string *literal_string_string; + PMOD_EXPORT struct pike_string *literal_int_string; + PMOD_EXPORT struct pike_string *literal_float_string; + PMOD_EXPORT struct pike_string *literal_function_string; + PMOD_EXPORT struct pike_string *literal_object_string; + PMOD_EXPORT struct pike_string *literal_program_string; + PMOD_EXPORT struct pike_string *literal_array_string; + PMOD_EXPORT struct pike_string *literal_multiset_string; + PMOD_EXPORT struct pike_string *literal_mapping_string; + PMOD_EXPORT struct pike_string *literal_type_string; + PMOD_EXPORT struct pike_string *literal_mixed_string; +  +    #ifdef DO_PIKE_CLEANUP   struct pike_type_location *all_pike_type_locations = NULL;   #endif /* DO_PIKE_CLEANUP */
8769:    tAttr("sscanf_args", tMix), tIntPos));    /* add_ref(weak_type_string); *//* LEAK */    +  MAKE_CONST_STRING(literal_string_string, "string"); +  MAKE_CONST_STRING(literal_int_string, "int"); +  MAKE_CONST_STRING(literal_float_string, "float"); +  MAKE_CONST_STRING(literal_function_string, "function"); +  MAKE_CONST_STRING(literal_object_string, "object"); +  MAKE_CONST_STRING(literal_program_string, "program"); +  MAKE_CONST_STRING(literal_array_string, "array"); +  MAKE_CONST_STRING(literal_multiset_string, "multiset"); +  MAKE_CONST_STRING(literal_mapping_string, "mapping"); +  MAKE_CONST_STRING(literal_type_string, "type"); +  MAKE_CONST_STRING(literal_mixed_string, "mixed"); +    #ifdef PIKE_DEBUG    pike_type_gc_callback = add_gc_callback(gc_mark_external_types, NULL, NULL);   #endif
8841:    sscanf_type_string = NULL;    free_type(sscanf_76_type_string);    sscanf_76_type_string = NULL; +  +  free_string(literal_string_string); literal_string_string = NULL; +  free_string(literal_int_string); literal_int_string = NULL; +  free_string(literal_float_string); literal_float_string = NULL; +  free_string(literal_function_string); literal_function_string = NULL; +  free_string(literal_object_string); literal_object_string = NULL; +  free_string(literal_program_string); literal_program_string = NULL; +  free_string(literal_array_string); literal_array_string = NULL; +  free_string(literal_multiset_string); literal_multiset_string = NULL; +  free_string(literal_mapping_string); literal_mapping_string = NULL; +  free_string(literal_type_string); literal_type_string = NULL; +  free_string(literal_mixed_string); literal_mixed_string = NULL; +    #ifdef PIKE_DEBUG    remove_callback(pike_type_gc_callback);   #endif