From cdfefa381e4f3295f6a1afdafe6c17db7a55f106 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Mon, 21 Jan 2019 14:22:03 +0000
Subject: [PATCH]   * Merge 40833 (without the riscvXX part)

------------------------------------------------------------------------
r40833 | pierre | 2019-01-10 12:18:22 +0000 (Thu, 10 Jan 2019) | 1 line

 Add missing support for -PriscvXX and -Psparc64
------------------------------------------------------------------------
--- Merging r40833 into '.':
U    compiler/utils/fpc.pp
--- Recording mergeinfo for merge of r40833 into '.':
 U   .

git-svn-id: branches/fixes_3_2@40963 -
---
 compiler/utils/fpc.pp | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/compiler/utils/fpc.pp b/compiler/utils/fpc.pp
index e2152aaf69..859aa9d445 100644
--- a/compiler/utils/fpc.pp
+++ b/compiler/utils/fpc.pp
@@ -223,8 +223,14 @@ program fpc;
                              cpusuffix:='a64'
                            else if processorstr='arm' then
                              cpusuffix:='arm'
+                           else if processorstr='avr' then
+                             cpusuffix:='avr'
                            else if processorstr='i386' then
                              cpusuffix:='386'
+                           else if processorstr='i8086' then
+                             cpusuffix:='8086'
+                           else if processorstr='jvm' then
+                             cpusuffix:='jvm'
                            else if processorstr='m68k' then
                              cpusuffix:='68k'
                            else if processorstr='mips' then
@@ -237,14 +243,10 @@ program fpc;
                              cpusuffix:='ppc64'
                            else if processorstr='sparc' then
                              cpusuffix:='sparc'
+                           else if processorstr='sparc64' then
+                             cpusuffix:='sparc64'
                            else if processorstr='x86_64' then
                              cpusuffix:='x64'
-                           else if processorstr='jvm' then
-                             cpusuffix:='jvm'
-                           else if processorstr='i8086' then
-                             cpusuffix:='8086'
-                           else if processorstr='avr' then
-                             cpusuffix:='avr'
                            else
                              error('Illegal processor type "'+processorstr+'"');