From 6f661e44d0af94fddc382f5c563e44a53b2bdcee Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Fri, 31 Jul 2020 21:03:35 +0000
Subject: [PATCH]   * do not throw an internal error later on in case of a
 recursive call, if the declaration of the function was faulty, resolves
 #37460

git-svn-id: trunk@45975 -
---
 .gitattributes              | 1 +
 compiler/x86_64/cpupara.pas | 7 ++++++-
 tests/webtbf/tw37460.pp     | 5 +++++
 3 files changed, 12 insertions(+), 1 deletion(-)
 create mode 100644 tests/webtbf/tw37460.pp

diff --git a/.gitattributes b/.gitattributes
index 0b126d45fe..f27743249d 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -16541,6 +16541,7 @@ tests/webtbf/tw37272b.pp svneol=native#text/pascal
 tests/webtbf/tw37303.pp -text svneol=native#text/pascal
 tests/webtbf/tw3738.pp svneol=native#text/plain
 tests/webtbf/tw3740.pp svneol=native#text/plain
+tests/webtbf/tw37460.pp svneol=native#text/pascal
 tests/webtbf/tw3790.pp svneol=native#text/plain
 tests/webtbf/tw3812.pp svneol=native#text/plain
 tests/webtbf/tw3930a.pp svneol=native#text/plain
diff --git a/compiler/x86_64/cpupara.pas b/compiler/x86_64/cpupara.pas
index 230fd67946..2b92f5415a 100644
--- a/compiler/x86_64/cpupara.pas
+++ b/compiler/x86_64/cpupara.pas
@@ -1454,7 +1454,12 @@ unit cpupara;
             numclasses:=classify_argument(p.proccalloption,result.def,nil,vs_value,result.def.size,classes,0,False);
             { this would mean a memory return }
             if (numclasses=0) then
-              internalerror(2010021502);
+              begin
+                { we got an error before, so we just skip all the return type generation }
+                if result.def.typ=errordef then
+                  exit;
+                internalerror(2010021502);
+              end;
 
             if (numclasses > MAX_PARA_CLASSES) then
               internalerror(2010021503);
diff --git a/tests/webtbf/tw37460.pp b/tests/webtbf/tw37460.pp
new file mode 100644
index 0000000000..b6ee881059
--- /dev/null
+++ b/tests/webtbf/tw37460.pp
@@ -0,0 +1,5 @@
+{ %fail }
+function x(x : real) : ;
+begin
+  tmp in [x div x(1)]
+end.