Index strings
This commit is contained in:
@ -41,14 +41,13 @@ namespace gcc
|
||||
|
||||
elna_string_type_node = make_node(RECORD_TYPE);
|
||||
tree string_ptr_type = build_pointer_type_for_mode(elna_char_type_node, VOIDmode, true);
|
||||
tree record_chain = NULL_TREE;
|
||||
|
||||
record_chain = chainon(record_chain,
|
||||
build_field(UNKNOWN_LOCATION, elna_string_type_node, "length", elna_word_type_node));
|
||||
record_chain = chainon(record_chain,
|
||||
build_field(UNKNOWN_LOCATION, elna_string_type_node, "ptr", string_ptr_type));
|
||||
elna_string_length_field_node = build_field(UNKNOWN_LOCATION,
|
||||
elna_string_type_node, "length", elna_word_type_node);
|
||||
elna_string_ptr_field_node = build_field(UNKNOWN_LOCATION,
|
||||
elna_string_type_node, "ptr", string_ptr_type);
|
||||
|
||||
TYPE_FIELDS(elna_string_type_node) = record_chain;
|
||||
TYPE_FIELDS(elna_string_type_node) = chainon(elna_string_ptr_field_node, elna_string_length_field_node);
|
||||
layout_type(elna_string_type_node);
|
||||
}
|
||||
}
|
||||
|
Reference in New Issue
Block a user