|
|
@@ -231,8 +231,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
|
|
|
@@ -243,16 +249,16 @@ program fpc;
|
|
|
cpusuffix:='ppc'
|
|
|
else if processorstr='powerpc64' then
|
|
|
cpusuffix:='ppc64'
|
|
|
+ else if processorstr='riscv32' then
|
|
|
+ cpusuffix:='rv32'
|
|
|
+ else if processorstr='riscv64' then
|
|
|
+ cpusuffix:='rv64'
|
|
|
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+'"');
|
|
|
|
pierre