X-Git-Url: https://git.bts.cx/sun.git/blobdiff_plain/e47a6583d105110c3f3aaee5f860ce51555997e2..refs/heads/mainline:/runtime/src/sun/compiler/vm_generator.c diff --git a/runtime/src/sun/compiler/vm_generator.c b/runtime/src/sun/compiler/vm_generator.c index 1e9cff3..6a3cb19 100644 --- a/runtime/src/sun/compiler/vm_generator.c +++ b/runtime/src/sun/compiler/vm_generator.c @@ -288,7 +288,7 @@ static bool nodeTypeDefinesScope(SLTNodeType type) { switch (type) { case SLTNodeTypeModule: case SLTNodeTypeFunctionDefinition: - case SLTNodeTypeTypeDefinition: + case SLTNodeTypeUserDefinedTypeDefinition: case SLTNodeTypeForIteration: case SLTNodeTypeDoIteration: case SLTNodeTypeWhileIteration: @@ -803,7 +803,7 @@ static SVMPointer generateExpressionInstructions(VMGeneratorOutputScope *generat return r; } - case SLTNodeTypeTypeAccess: + case SLTNodeTypeMemberAccess: generator_assert_msg(false, "not implemented: %s", sltNodeToString(node)); return -1; @@ -1001,27 +1001,27 @@ static size_t generateModuleInstructions(VMGeneratorOutputScope *generator, SLTN generatorPatchOperand(generator, start, 0, address); // then do variables - for (SLTNode *n = node->moduleStatementsAndDefinitions; n != NULL; n = n->sequenceNext) { - switch (n->sequenceNode->type) { - case SLTNodeTypeFunctionDefinition: + //for (SLTNode *n = node->moduleStatementsAndDefinitions; n != NULL; n = n->sequenceNext) { + // switch (n->sequenceNode->type) { + // case SLTNodeTypeFunctionDefinition: // Do nothing... - break; + // break; - case SLTNodeTypeVariableDefinition: - generateStatementInstructions(generator, n->sequenceNode, 0); - break; + //case SLTNodeTypeVariableDefinition: + //generateStatementInstructions(generator, n->sequenceNode, 0); + // break; - default: + // default: //generator_assert_msg(false, "could not define %s", sltNodeTypeToString(n->sequenceNode->type)); - break; - } - } + // break; + // } + //} // statements for (SLTNode *n = node->moduleStatementsAndDefinitions; n != NULL; n = n->sequenceNext) { switch (n->sequenceNode->type) { - case SLTNodeTypeVariableDefinition: - case SLTNodeTypeTypeDefinition: + //case SLTNodeTypeVariableDefinition: + case SLTNodeTypeUserDefinedTypeDefinition: case SLTNodeTypeFunctionDefinition: // Do nothing... break;