Groundwork for arrays

[sun.git] / runtime / src / sun / tree / node.c

diff --git a/runtime/src/sun/tree/node.c b/runtime/src/sun/tree/node.c
index ad91732e504e514f01a83b4012bdca69a15dcbc9..f94f6e2471aa3ee0b53f37386fda1c755df34511 100644 (file)
--- 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;