paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 03:59:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Xtensa: CALL0 abi started

Browse Source 
git-svn-id: trunk@44328 -
This commit is contained in:
florian 2020-03-21 20:48:03 +00:00
parent d0106d08b9
commit ad99285fec
5 changed files with 35 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/systems.inc
View File

@ -329,6 +329,8 @@
may still be removed by the callee (and then the stack needs to
be restored by the caller) }
,abi_i386_dynalignedstack
,abi_xtensa_windowed
,abi_xtensa_call0
);
const

4
compiler/systems.pas
View File

@ -438,7 +438,9 @@ interface
(name: 'OLDWIN32GNU'; supported:{$ifdef I386}true{$else}false{$endif}),
(name: 'AARCH64IOS'; supported:{$ifdef aarch64}true{$else}false{$endif}),
(name: 'RISCVHF'; supported:{$if defined(riscv32) or defined(riscv64)}true{$else}false{$endif}),
(name: 'LINUX386_SYSV'; supported:{$if defined(i386)}true{$else}false{$endif})
(name: 'LINUX386_SYSV'; supported:{$if defined(i386)}true{$else}false{$endif}),
(name: 'WINDOWED'; supported:{$if defined(xtensa)}true{$else}false{$endif}),
(name: 'CALL0'; supported:{$if defined(xtensa)}true{$else}false{$endif})
);
{ x86 asm modes with an Intel-style syntax }

8
compiler/xtensa/cgcpu.pas
View File

@ -434,14 +434,18 @@ implementation
procedure tcgcpu.g_proc_entry(list : TAsmList; localsize : longint;
nostackframe : boolean);
begin
list.Concat(taicpu.op_reg_const(A_ENTRY,NR_STACK_POINTER_REG,32));
if target_info.abi=abi_xtensa_windowed then
list.Concat(taicpu.op_reg_const(A_ENTRY,NR_STACK_POINTER_REG,32));
end;
procedure tcgcpu.g_proc_exit(list : TAsmList; parasize : longint;
nostackframe : boolean);
begin
list.Concat(taicpu.op_none(A_RETW));
if target_info.abi=abi_xtensa_windowed then
list.Concat(taicpu.op_none(A_RETW))
else
list.Concat(taicpu.op_none(A_RET));
end;

22
compiler/xtensa/cpuinfo.pas
View File

@ -19,7 +19,8 @@ Unit CPUInfo;
Interface
uses
globtype;
globtype,
systems;
Type
bestreal = double;
@ -35,6 +36,7 @@ Type
{ possible supported processors for this target }
tcputype =
(cpu_none,
cpu_lx106,
cpu_lx6
);
@ -49,6 +51,7 @@ Type
Type
tcontrollertype =
(ct_none,
ct_esp8266,
ct_esp32_d0wd,
ct_esp32_d2wd,
ct_esp32_sOwd
@ -56,7 +59,7 @@ Type
tcontrollerdatatype = record
controllertypestr, controllerunitstr: string[20];
cputype: tcputype; fputype: tfputype;
cputype: tcputype; fputype: tfputype; abi: tabi;
flashbase, flashsize, srambase, sramsize, eeprombase, eepromsize, bootbase, bootsize: dword;
end;
@ -86,6 +89,7 @@ Const
cputypestr : array[tcputype] of string[8] = (
'',
'LX106',
'LX6'
);
@ -102,10 +106,11 @@ Const
embedded_controllers : array [tcontrollertype] of tcontrollerdatatype =
(
(controllertypestr:''; controllerunitstr:''; cputype:cpu_none; fputype:fpu_none; flashbase:0),
(controllertypestr:'ESP32_D0WD'; controllerunitstr:'ESP32_D0WD'; cputype:cpu_lx6; fputype:fpu_none; flashbase:$40000000; flashsize:448*1024; srambase:$40070000; sramsize: 520*1024),
(controllertypestr:'ESP32_D2WD'; controllerunitstr:'ESP32_D2WD'; cputype:cpu_lx6; fputype:fpu_none; flashbase:$40000000; flashsize:448*1024; srambase:$40070000; sramsize: 520*1024),
(controllertypestr:'ESP32_S0WD'; controllerunitstr:'ESP32_S0WD'; cputype:cpu_lx6; fputype:fpu_none; flashbase:$40000000; flashsize:448*1024; srambase:$40070000; sramsize: 520*1024)
(controllertypestr:''; controllerunitstr:''; cputype:cpu_none; fputype:fpu_none; abi: abi_default; flashbase:0),
(controllertypestr:'ESP8266'; controllerunitstr:'ESP8266'; cputype:cpu_lx106; fputype:fpu_none; abi: abi_xtensa_call0; { flashbase:$40000000; flashsize:448*1024; srambase:$40070000; sramsize: 520*1024 }),
(controllertypestr:'ESP32_D0WD'; controllerunitstr:'ESP32_D0WD'; cputype:cpu_lx6; fputype:fpu_none; abi: abi_xtensa_windowed; flashbase:$40000000; flashsize:448*1024; srambase:$40070000; sramsize: 520*1024),
(controllertypestr:'ESP32_D2WD'; controllerunitstr:'ESP32_D2WD'; cputype:cpu_lx6; fputype:fpu_none; abi: abi_xtensa_windowed; flashbase:$40000000; flashsize:448*1024; srambase:$40070000; sramsize: 520*1024),
(controllertypestr:'ESP32_S0WD'; controllerunitstr:'ESP32_S0WD'; cputype:cpu_lx6; fputype:fpu_none; abi: abi_xtensa_windowed; flashbase:$40000000; flashsize:448*1024; srambase:$40070000; sramsize: 520*1024)
);
{ Supported optimizations, only used for information }
@ -126,7 +131,7 @@ Const
type
tcpuflags =
(
CPUXTENSA_DUMMY
CPUXTENSA_REGWINDOW
);
tfpuflags =
@ -138,7 +143,8 @@ Const
cpu_capabilities : array[tcputype] of set of tcpuflags =
(
{ cpu_none } [],
{ cpu_lx6 } []
{ cpu_lx106 } [],
{ cpu_lx6 } [CPUXTENSA_REGWINDOW]
);
fpu_capabilities : array[tfputype] of set of tfpuflags =

12
compiler/xtensa/cpupi.pas
View File

@ -65,8 +65,16 @@ unit cpupi;
inherited create(aparent);
maxpushedparasize := 0;
framepointer:=NR_FRAME_POINTER_REG;
callins:=A_CALL8;
callxins:=A_CALLX8;
if target_info.abi=abi_xtensa_windowed then
begin
callins:=A_CALL8;
callxins:=A_CALLX8;
end
else
begin
callins:=A_CALL0;
callxins:=A_CALLX0;
end
end;