From 68e3bfbfa77961190e034af9b209b2e65f8c8b1a Mon Sep 17 00:00:00 2001
From: Juha <juha@lazarus-ide.org>
Date: Sat, 15 Jan 2022 21:05:01 +0200
Subject: [PATCH] IDE: List different processors for i8086 target. Issue
 #39565.

(cherry picked from commit 3b0b5e67dd0c29301bc246e1082f9e6e09901b3d)
---
 components/codetools/definetemplates.pas | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/components/codetools/definetemplates.pas b/components/codetools/definetemplates.pas
index c8424af48c..f1781f9ad4 100644
--- a/components/codetools/definetemplates.pas
+++ b/components/codetools/definetemplates.pas
@@ -3785,6 +3785,21 @@ procedure GetTargetProcessors(const TargetCPU: string; aList: TStrings);
     aList.Add('PentiumM');
   end;
 
+  procedure Intel_i8086;
+  begin
+    aList.Add('8086');
+    aList.Add('80186');
+    aList.Add('80286');
+    aList.Add('80386');
+    aList.Add('80486');
+    aList.Add('PENTIUM');
+    aList.Add('PENTIUM2');
+    aList.Add('PENTIUM3');
+    aList.Add('PENTIUM4');
+    aList.Add('PENTIUMM');
+
+  end;
+
   procedure Intel_x86_64;
   begin
     aList.Add('ATHLON64');
@@ -3871,6 +3886,7 @@ begin
     'arm'    : Arm;
     'avr'    : AVR;
     'i386'   : Intel_i386;
+    'i8086'  : Intel_i8086;
     'm68k'   : M68k;
     'powerpc'  : PowerPC;
     'powerpc64': PowerPC64;