From 9d3b105fab0d6d66192678520c14c20d9d638357 Mon Sep 17 00:00:00 2001
From: yury <jura@cp-lab.com>
Date: Fri, 14 Aug 2020 16:21:12 +0000
Subject: [PATCH] * msdos: By default external routine names with the pascal
 calling convention must be all upper case. This is TP and TASM compatible.

git-svn-id: trunk@46432 -
---
 compiler/pdecsub.pas | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/compiler/pdecsub.pas b/compiler/pdecsub.pas
index 0d78f8c896..df39eaeb1b 100644
--- a/compiler/pdecsub.pas
+++ b/compiler/pdecsub.pas
@@ -3178,6 +3178,9 @@ const
                     result:=target_info.Cprefix+tprocdef(pd).procsym.realname
                   else
                     result:=pd.procsym.realname;
+                  if (target_info.system=system_i8086_msdos) and
+                    (pd.proccalloption=pocall_pascal) then
+                    result:=UpCase(result);
                 end;
             end;
           end;