From 5259de58722ed8e32f20c9c859b3d9fac8a526a3 Mon Sep 17 00:00:00 2001
From: Ginger Bill <bill@gingerbill.org>
Date: Sat, 30 Sep 2017 11:28:17 +0100
Subject: [PATCH] Reserve the link_name `main`

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

diff --git a/src/check_decl.cpp b/src/check_decl.cpp
index 331225d86..2ef825083 100644
--- a/src/check_decl.cpp
+++ b/src/check_decl.cpp
@@ -525,6 +525,8 @@ void check_proc_decl(Checker *c, Entity *e, DeclInfo *d) {
 				      "\tat %.*s(%td:%td)",
 				      LIT(name), LIT(pos.file), pos.line, pos.column);
 			}
+		} else if (name == "main") {
+			error(d->proc_lit, "The link name `main` is reserved for internal use");
 		} else {
 			map_set(fp, key, e);
 		}
@@ -549,6 +551,8 @@ void check_proc_decl(Checker *c, Entity *e, DeclInfo *d) {
 				      "Non unique linking name for procedure `%.*s`\n"
 				      "\tother at %.*s(%td:%td)",
 				      LIT(name), LIT(pos.file), pos.line, pos.column);
+			} else if (name == "main") {
+				error(d->proc_lit, "The link name `main` is reserved for internal use");
 			} else {
 				map_set(fp, key, e);
 			}