X-Git-Url: https://git.bts.cx/sun.git/blobdiff_plain/c14e8cb22c12114bd78aae89e54ccd51ad522c50..HEAD:/runtime/src/sun/tree/node.c?ds=sidebyside diff --git a/runtime/src/sun/tree/node.c b/runtime/src/sun/tree/node.c index ad91732..f94f6e2 100644 --- a/runtime/src/sun/tree/node.c +++ b/runtime/src/sun/tree/node.c @@ -93,8 +93,8 @@ SLTNode *sltNodeMakeArrayAccess(SLTNode *array, SLTNode *access) { return node; } -SLTNode *sltNodeMakeTypeAccess(SLTNode *type, SLTNode *access) { - SLTNode *node = node_make(SLTNodeTypeTypeAccess); +SLTNode *sltNodeMakeMemberAccess(SLTNode *type, SLTNode *access) { + SLTNode *node = node_make(SLTNodeTypeMemberAccess); node->typeAccessType = type; node->typeAccessAccess = access; return node; @@ -197,15 +197,17 @@ SLTNode *sltNodeMakeVariableDefinition(SLTNode *type, SLTNode *identifier, SLTNo return node; } -SLTNode *sltNodeMakeTypeDefinition(SLTNode *identifier, SLTNode *members) { - SLTNode *node = node_make(SLTNodeTypeTypeDefinition); +//extern SLTNode *sltNodeMakeTypeDefinition(SLTNode *identifier, SLTNode *dimension); + +SLTNode *sltNodeMakeUserDefinedTypeDefinition(SLTNode *identifier, SLTNode *members) { + SLTNode *node = node_make(SLTNodeTypeUserDefinedTypeDefinition); node->typeDefinitionIdentifier = identifier; node->typeDefinitionMembers = members; return node; } -SLTNode *sltNodeMakeTypeMemberDefinition(SLTNode *type, SLTNode *identifier) { - SLTNode *node = node_make(SLTNodeTypeTypeMemberDefinition); +SLTNode *sltNodeMakeUserDefinedTypeMemberDefinition(SLTNode *type, SLTNode *identifier) { + SLTNode *node = node_make(SLTNodeTypeUserDefinedTypeMemberDefinition); node->typeMemberDefinitionType = type; node->typeMemberDefinitionIdentifier = identifier; return node;