From 721e89fafde6662c200a5efc3d67bc5480e4386e Mon Sep 17 00:00:00 2001
From: yury <jura@cp-lab.com>
Date: Sun, 16 Aug 2020 10:45:45 +0000
Subject: [PATCH] * msdos: Force names of external routines to be all uppercase
 only in TP mode.

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

diff --git a/compiler/pdecsub.pas b/compiler/pdecsub.pas
index df39eaeb1b..b276e04d83 100644
--- a/compiler/pdecsub.pas
+++ b/compiler/pdecsub.pas
@@ -3178,9 +3178,14 @@ const
                     result:=target_info.Cprefix+tprocdef(pd).procsym.realname
                   else
                     result:=pd.procsym.realname;
+{$ifdef i8086}
+                  { Turbo Pascal expects names of external routines
+                    to be all uppercase }
                   if (target_info.system=system_i8086_msdos) and
+                    (m_tp7 in current_settings.modeswitches) and
                     (pd.proccalloption=pocall_pascal) then
                     result:=UpCase(result);
+{$endif i8086}
                 end;
             end;
           end;