From 61a382de0b60fd5517f83e8e9562d27f990fe46d Mon Sep 17 00:00:00 2001
From: Stephen Heumann <stephenheumann@gmail.com>
Date: Tue, 11 Jan 2022 21:23:00 -0600
Subject: [PATCH] Report parameter type errors the same way with and without
 strict type checks.

They were being reported as "type conflict" by default, but as "duplicate symbol" if strict checks were used.
---
 Parser.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/Parser.pas b/Parser.pas
index c894add..e013d92 100644
--- a/Parser.pas
+++ b/Parser.pas
@@ -1784,7 +1784,10 @@ if tPtr^.kind = functionType then begin {declare the identifier}
             end; {if}
          end {if}
       else
-         Error(42);
+         if (t1^.kind = functionType) and CompTypes(t1^.fType,tPtr^.fType) then
+            Error(47)
+         else
+            Error(42);
 1:
       if isPascal then begin
          {reverse the parameter list}