From 349badcf177a618f30949bb0b273fdc19ce95abe Mon Sep 17 00:00:00 2001
From: Ginger Bill <bill@gingerbill.org>
Date: Sat, 24 Sep 2016 23:48:03 +0100
Subject: [PATCH] Nested procedures are declared inline but bodies checked
 later

---
 build.bat            |  2 +-
 src/checker/expr.cpp |  4 +--
 src/checker/stmt.cpp | 80 ++++++++++++++------------------------------
 3 files changed, 28 insertions(+), 58 deletions(-)

diff --git a/build.bat b/build.bat
index 3c7f8992a..23bf7a358 100644
--- a/build.bat
+++ b/build.bat
@@ -48,7 +48,7 @@ rem pushd %build_dir%
 
 	cl %compiler_settings% "src\main.cpp" ^
 		/link %linker_settings% -OUT:%exe_name% ^
-	&& odin run code/demo.odin
+	&& odin run code/wills_game/willsgame.odin
 	rem odin run code/demo.odin
 
 
diff --git a/src/checker/expr.cpp b/src/checker/expr.cpp
index 429b5e6ba..0d1306408 100644
--- a/src/checker/expr.cpp
+++ b/src/checker/expr.cpp
@@ -805,9 +805,7 @@ void check_identifier(Checker *c, Operand *o, AstNode *n, Type *named_type, Cycl
 		if (n->Ident.string == make_string("_")) {
 			error(n->Ident, "`_` cannot be used as a value type");
 		} else {
-			auto *entries = c->context.scope->elements.entries;
-			error(n->Ident,
-			      "Undeclared name: %.*s", LIT(n->Ident.string));
+			error(n->Ident, "Undeclared name: %.*s", LIT(n->Ident.string));
 		}
 		o->type = t_invalid;
 		o->mode = Addressing_Invalid;
diff --git a/src/checker/stmt.cpp b/src/checker/stmt.cpp
index 2f31a6b77..03bf85656 100644
--- a/src/checker/stmt.cpp
+++ b/src/checker/stmt.cpp
@@ -59,40 +59,19 @@ void check_stmt_list(Checker *c, AstNodeArray stmts, u32 flags) {
 			Delay delay = {e, d};
 			gb_array_append(delayed, delay);
 		case_end;
-
-		case_ast_node(pd, ProcDecl, node);
-			ast_node(name, Ident, pd->name);
-			Entity *e = make_entity_procedure(c->allocator, c->context.scope, *name, NULL);
-			add_entity(c, c->context.scope, pd->name, e);
-
-			DeclInfo *d = make_declaration_info(c->allocator, e->scope);
-			d->proc_decl = node;
-
-			Delay delay = {e, d};
-			gb_array_append(delayed, delay);
-		case_end;
 		}
 	}
 
 	auto check_scope_entity = [](Checker *c, gbArray(Delay) delayed, EntityKind kind) {
 		gb_for_array(i, delayed) {
 			auto delay = delayed[i];
-			Entity *e = delay.e;
-			if (e->kind == kind) {
-				DeclInfo *d = delay.d;
-				Scope *prev_scope = c->context.scope;
-				c->context.scope = d->scope;
-				GB_ASSERT(d->scope == e->scope);
-				check_entity_decl(c, e, d, NULL);
-				c->context.scope = prev_scope;
+			if (delay.e->kind == kind) {
+				check_entity_decl(c, delay.e, delay.d, NULL);
 			}
 		}
 	};
 	check_scope_entity(c, delayed, Entity_TypeName);
 	check_scope_entity(c, delayed, Entity_Constant);
-	check_scope_entity(c, delayed, Entity_Procedure);
-
-
 
 	b32 ft_ok = (flags & Stmt_FallthroughAllowed) != 0;
 	u32 f = flags & (~Stmt_FallthroughAllowed);
@@ -722,36 +701,20 @@ void check_entity_decl(Checker *c, Entity *e, DeclInfo *d, Type *named_type, Cyc
 		check_proc_decl(c, e, d);
 		return;
 	}
+	Scope *prev = c->context.scope;
+	c->context.scope = d->scope;
+	defer (c->context.scope = prev);
 
 	switch (e->kind) {
-	case Entity_Constant: {
-		Scope *prev = c->context.scope;
-		c->context.scope = d->scope;
-		defer (c->context.scope = prev);
-
+	case Entity_Constant:
 		check_const_decl(c, e, d->type_expr, d->init_expr);
-	} break;
-
-	case Entity_Variable: {
-		Scope *prev = c->context.scope;
-		c->context.scope = d->scope;
-		defer (c->context.scope = prev);
-
+		break;
+	case Entity_Variable:
 		check_var_decl(c, e, d->entities, d->entity_count, d->type_expr, d->init_expr);
-	} break;
-
-	case Entity_Procedure: {
-		check_proc_decl(c, e, d);
-	} break;
-
-
-	case Entity_TypeName: {
-		Scope *prev = c->context.scope;
-		c->context.scope = d->scope;
-		defer (c->context.scope = prev);
-
+		break;
+	case Entity_TypeName:
 		check_type_decl(c, e, d->type_expr, named_type, cycle_checker);
-	} break;
+		break;
 	}
 }
 
@@ -771,8 +734,7 @@ void check_var_decl_node(Checker *c, AstNode *node) {
 			String str = token.string;
 			Entity *found = NULL;
 			// NOTE(bill): Ignore assignments to `_`
-			b32 can_be_ignored = str == make_string("_");
-			if (!can_be_ignored) {
+			if (str != make_string("_")) {
 				found = current_scope_lookup_entity(c->context.scope, str);
 			}
 			if (found == NULL) {
@@ -1541,12 +1503,22 @@ void check_stmt(Checker *c, AstNode *node, u32 flags) {
 		// NOTE(bill): Handled elsewhere
 	case_end;
 
-	case_ast_node(pd, ProcDecl, node);
-		// NOTE(bill): Handled elsewhere
-	case_end;
-
 	case_ast_node(td, TypeDecl, node);
 		// NOTE(bill): Handled elsewhere
 	case_end;
+
+	case_ast_node(pd, ProcDecl, node);
+		// NOTE(bill): This must be handled here so it has access to the parent scope stuff
+		// e.g. using
+		Entity *e = make_entity_procedure(c->allocator, c->context.scope, pd->name->Ident, NULL);
+		add_entity(c, c->context.scope, pd->name, e);
+
+		DeclInfo *d = make_declaration_info(c->allocator, e->scope);
+		d->proc_decl = node;
+
+		check_entity_decl(c, e, d, NULL);
+	case_end;
+
+
 	}
 }