From f229084baa383ebd81c5d04db1ede5dc71017904 Mon Sep 17 00:00:00 2001
From: gingerBill <bill@gingerbill.org>
Date: Mon, 13 Apr 2020 15:48:56 +0100
Subject: Basic polymorphic named procedure parameters for procedures and
 records

---
 src/types.cpp | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/types.cpp')

diff --git a/src/types.cpp b/src/types.cpp
index bf5a12e9b..530a02df7 100644
--- a/src/types.cpp
+++ b/src/types.cpp
@@ -1039,6 +1039,9 @@ bool is_type_constant_type(Type *t) {
 	if (t->kind == Type_BitSet) {
 		return true;
 	}
+	if (t->kind == Type_Proc) {
+		return true;
+	}
 	return false;
 }
 bool is_type_float(Type *t) {
-- 
cgit v1.2.3