From 3fa398ec43ddc6fc40562087fd8ab87dc5292499 Mon Sep 17 00:00:00 2001
From: Ginger Bill <bill@gingerbill.org>
Date: Thu, 15 Jun 2017 21:36:29 +0100
Subject: Add extra check for bodiless procedures

---
 src/check_decl.cpp | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/check_decl.cpp')

diff --git a/src/check_decl.cpp b/src/check_decl.cpp
index 2673a4d17..6cb51102a 100644
--- a/src/check_decl.cpp
+++ b/src/check_decl.cpp
@@ -362,6 +362,8 @@ void check_proc_decl(Checker *c, Entity *e, DeclInfo *d) {
 
 		GB_ASSERT(pd->body->kind == AstNode_BlockStmt);
 		check_procedure_later(c, c->curr_ast_file, e->token, d, proc_type, pd->body, pd->tags);
+	} else if (!is_foreign) {
+		error(e->token, "Only a foreign procedure cannot have a body");
 	}
 
 	if (pt->result_count == 0 && is_require_results) {
-- 
cgit v1.2.3