From a75ccb6fbc529d2fee00f9b456ca7c0c830548ee Mon Sep 17 00:00:00 2001 From: Ginger Bill Date: Mon, 27 Mar 2017 20:32:36 +0100 Subject: v0.1.3 --- src/types.c | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'src/types.c') diff --git a/src/types.c b/src/types.c index 8a342d9bd..fe46dc3cd 100644 --- a/src/types.c +++ b/src/types.c @@ -1037,8 +1037,12 @@ typedef enum ProcTypeOverloadKind { ProcTypeOverloadKind are_proc_types_overload_safe(Type *x, Type *y) { - if (!is_type_proc(x)) return ProcOverload_NotProcedure; - if (!is_type_proc(y)) return ProcOverload_NotProcedure; + if (x == NULL && y == NULL) return ProcOverload_NotProcedure; + if (x == NULL && y != NULL) return ProcOverload_NotProcedure; + if (x != NULL && y == NULL) return ProcOverload_NotProcedure; + if (!is_type_proc(x)) return ProcOverload_NotProcedure; + if (!is_type_proc(y)) return ProcOverload_NotProcedure; + TypeProc px = base_type(x)->Proc; TypeProc py = base_type(y)->Proc; -- cgit v1.2.3