Pārlūkot izejas kodu

* 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 -
pierre 6 gadi atpakaļ
vecāks
revīzija
cdfefa381e
1 mainītis faili ar 8 papildinājumiem un 6 dzēšanām
  1. 8 6
      compiler/utils/fpc.pp

+ 8 - 6
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+'"');