X-Git-Url: https://git.bts.cx/sun.git/blobdiff_plain/c14e8cb22c12114bd78aae89e54ccd51ad522c50..a5b6b9ea53d78b2019201a9fb75b763b7d92873c:/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 deb10b8..0309257 100644
--- a/runtime/src/sun/compiler/vm_generator.c
+++ b/runtime/src/sun/compiler/vm_generator.c
@@ -114,7 +114,7 @@ static VMGeneratorOutputScope *generatorCreate() {
 	VMGeneratorOutputScope *scope = malloc(sizeof(VMGeneratorOutputScope)); // fixme these mallocs
 	memset(scope, 0, sizeof(VMGeneratorOutputScope));
 
-	scope->instructionCount = 1024;
+	scope->instructionCount = 2048;
 	scope->instructions = malloc(scope->instructionCount * sizeof(struct VMGeneratorInstruction));
 	scope->nextInstructionIdx = 0;
 
@@ -1001,26 +1001,26 @@ 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 SLTNodeTypeVariableDefinition:
 				case SLTNodeTypeTypeDefinition:
 				case SLTNodeTypeFunctionDefinition:
 					// Do nothing...