Begin work on the Interpreter

src/ssa/make.cpp

@@ -295,14 +295,6 @@ ssaValue *ssa_make_value_constant_slice(gbAllocator a, Type *type, ssaValue *bac
 	return v;
 }
 
-ssaValue *ssa_make_value_constant_string(gbAllocator a, Type *type, String string) {
-	ssaValue *v = ssa_alloc_value(a, ssaValue_ConstantString);
-	v->ConstantString.type   = type;
-	v->ConstantString.string = string;
-	return v;
-}
-
-
 ssaValue *ssa_make_const_int(gbAllocator a, i64 i) {
 	return ssa_make_value_constant(a, t_int, make_exact_value_integer(i));
 }
@@ -328,6 +320,11 @@ ssaValue *ssa_make_value_procedure(gbAllocator a, ssaModule *m, Entity *entity,
 	v->Proc.body   = body;
 	v->Proc.name   = name;
 	array_init(&v->Proc.referrers, heap_allocator(), 0); // TODO(bill): replace heap allocator
+
+	Type *t = base_type(type);
+	GB_ASSERT(is_type_proc(t));
+	array_init(&v->Proc.params, heap_allocator(), t->Proc.param_count);
+
 	return v;
 }
 

src/ssa/proc.cpp

@@ -11,7 +11,8 @@ void ssa_begin_procedure_body(ssaProcedure *proc) {
 		auto *params = &proc->type->Proc.params->Tuple;
 		for (isize i = 0; i < params->variable_count; i++) {
 			Entity *e = params->variables[i];
-			ssa_add_param(proc, e);
+			ssaValue *param = ssa_add_param(proc, e);
+			array_add(&proc->params, param);
 		}
 	}
 }

src/ssa/ssa.cpp

@@ -93,6 +93,7 @@ struct ssaProcedure {
 	AstNode *             body;
 	u64                   tags;
 
+	Array<ssaValue *>     params;
 	Array<ssaDefer>       defer_stmts;
 	Array<ssaBlock *>     blocks;
 	i32                   scope_index;
@@ -308,7 +309,6 @@ enum ssaValueKind {
 
 	ssaValue_Constant,
 	ssaValue_ConstantSlice,
-	ssaValue_ConstantString,
 	ssaValue_Nil,
 	ssaValue_TypeName,
 	ssaValue_Global,
@@ -334,10 +334,6 @@ struct ssaValue {
 			ssaValue *backing_array;
 			i64       count;
 		} ConstantSlice;
-		struct {
-			Type * type;
-			String string;
-		} ConstantString;
 		struct {
 			Type *type;
 		} Nil;
@@ -579,6 +575,13 @@ void ssa_file_write(ssaFileBuffer *f, void *data, isize len) {
 	ssa_file_buffer_write(f, data, len);
 }
 
+ssaValue *ssa_lookup_member(ssaModule *m, String name) {
+	ssaValue **v = map_get(&m->members, hash_string(name));
+	if (v != NULL) {
+		return *v;
+	}
+	return NULL;
+}
 
 
 Type *ssa_type(ssaValue *value);
@@ -636,8 +639,6 @@ Type *ssa_type(ssaValue *value) {
 		return value->Constant.type;
 	case ssaValue_ConstantSlice:
 		return value->ConstantSlice.type;
-	case ssaValue_ConstantString:
-		return value->ConstantString.type;
 	case ssaValue_Nil:
 		return value->Nil.type;
 	case ssaValue_TypeName: