From f099222af689e58fb4ce6e72c496f37d11a2bf03 Mon Sep 17 00:00:00 2001
From: Stephen Heumann <stephenheumann@gmail.com>
Date: Tue, 13 Dec 2016 21:46:11 -0600
Subject: [PATCH] Don't give an error when calling functions with
 const-qualified parameter types or returning from functions with
 const-qualified return type.

This fixes the compco12.c test case.
---
 Expression.pas | 2 +-
 Parser.pas     | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/Expression.pas b/Expression.pas
index 59617e8..b4c16f6 100644
--- a/Expression.pas
+++ b/Expression.pas
@@ -2658,7 +2658,7 @@ var
                if pCount = 0 then begin
                   if parameters <> nil then begin
                      AssignmentConversion(parameters^.parameterType,
-                        expressionType, lastWasConst, lastConst, true, true);
+                        expressionType, lastWasConst, lastConst, true, false);
                      end; {if}
                   parameters := parameters^.next;
                   end {if}
diff --git a/Parser.pas b/Parser.pas
index 4ac4dee..5dafa04 100644
--- a/Parser.pas
+++ b/Parser.pas
@@ -701,7 +701,7 @@ var
          end; {if}
       Expression(normalExpression, [semicolonch]);
       AssignmentConversion(fType, expressionType, lastWasConst, lastConst,
-         true, true);
+         true, false);
       case fType^.kind of
          scalarType:    Gen2t(pc_str, 0, 0, fType^.baseType);
          enumType:      Gen2t(pc_str, 0, 0, cgWord);