From eb95dcb85f9e2cde54ffbcb61edf05fa5322c282 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Sun, 6 May 2018 14:40:08 +0000
Subject: [PATCH] - removed pocall_mwpascal from the supported calling
 conventions of the i8086   code generator

git-svn-id: trunk@38937 -
---
 compiler/i8086/cpuinfo.pas | 3 +--
 compiler/i8086/cpupara.pas | 6 +-----
 2 files changed, 2 insertions(+), 7 deletions(-)

diff --git a/compiler/i8086/cpuinfo.pas b/compiler/i8086/cpuinfo.pas
index 6ed08ae0ef..4bbbf02c4f 100644
--- a/compiler/i8086/cpuinfo.pas
+++ b/compiler/i8086/cpuinfo.pas
@@ -104,8 +104,7 @@ Const
      pocall_cdecl,
      pocall_cppdecl,
      pocall_far16,
-     pocall_pascal,
-     pocall_mwpascal
+     pocall_pascal
    ];
 
    cputypestr : array[tcputype] of string[10] = ('',
diff --git a/compiler/i8086/cpupara.pas b/compiler/i8086/cpupara.pas
index 31bc69553a..34d828cb71 100644
--- a/compiler/i8086/cpupara.pas
+++ b/compiler/i8086/cpupara.pas
@@ -164,9 +164,7 @@ unit cpupara;
               else
                 result:=
                   (not(calloption in (cdecl_pocalls)) and
-                   (def.size>sizeof(aint))) or
-                  ((calloption = pocall_mwpascal) and
-                   (varspez=vs_const));
+                   (def.size>sizeof(aint)));
             end;
           arraydef :
             begin
@@ -215,7 +213,6 @@ unit cpupara;
           pocall_safecall,
           pocall_stdcall,
           pocall_cppdecl,
-          pocall_mwpascal,
           pocall_far16,
           pocall_pascal :
             result:=[RS_AX,RS_DX,RS_CX,RS_SI,RS_DI,RS_BX];
@@ -250,7 +247,6 @@ unit cpupara;
           pocall_safecall,
           pocall_stdcall,
           pocall_cppdecl,
-          pocall_mwpascal,
           pocall_far16,
           pocall_pascal :
             result:=saveregs_pascal;