paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 20:09:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed LLVM and non-i386 compilation

Browse Source 
git-svn-id: branches/debug_eh@41423 -
This commit is contained in:
Jonas Maebe 2019-02-23 17:03:42 +00:00
parent 8db9b211d5
commit 5cb5b10f8d
4 changed files with 23 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/llvm/llvmpi.pas
View File

@ -47,13 +47,15 @@ interface
procedure pushlandingpad(pad: taillvm);
procedure poppad;
function currlandingpad: taillvm;
procedure setup_eh; override;
procedure finish_eh; override;
end;
implementation
uses
globtype,globals,verbose,systems,
symtable;
symconst,symtable;
constructor tllvmprocinfo.create(aparent: tprocinfo);
@ -119,6 +121,20 @@ implementation
end;
procedure tllvmprocinfo.setup_eh;
begin
if po_assembler in procdef.procoptions then
inherited;
end;
procedure tllvmprocinfo.finish_eh;
begin
if po_assembler in procdef.procoptions then
inherited;
end;
begin
if not assigned(cprocinfo) then
begin

4
compiler/llvm/nllvmflw.pas
View File

@ -41,7 +41,7 @@ interface
class procedure get_exception_temps(list: TAsmList; var t: texceptiontemps); override;
class procedure unget_exception_temps(list: TAsmList; const t: texceptiontemps); override;
class procedure new_exception(list: TAsmList; const t: texceptiontemps; const exceptframekind: texceptframekind; out exceptstate: texceptionstate); override;
class procedure emit_except_label(list: TAsmList; exceptframekind: texceptframekind; var exceptionstate: texceptionstate); override;
class procedure emit_except_label(list: TAsmList; exceptframekind: texceptframekind; var exceptionstate: texceptionstate;var exceptiontemps:texceptiontemps); override;
class procedure end_try_block(list: TAsmList; exceptframekind: texceptframekind; const t: texceptiontemps; var exceptionstate: texceptionstate; endlabel: TAsmLabel); override;
class procedure cleanupobjectstack(list: TAsmList); override;
class procedure popaddrstack(list: TAsmList); override;
@ -167,7 +167,7 @@ implementation
end;
class procedure tllvmexceptionstatehandler.emit_except_label(list: TAsmList; exceptframekind: texceptframekind; var exceptionstate: texceptionstate);
class procedure tllvmexceptionstatehandler.emit_except_label(list: TAsmList; exceptframekind: texceptframekind; var exceptionstate: texceptionstate;var exceptiontemps:texceptiontemps);
var
reg: tregister;
landingpad: taillvm;

3
rtl/inc/psabieh.inc
View File

@ -1205,6 +1205,7 @@ procedure fpc_ReRaise; [public,alias:'FPC_RERAISE']; compilerproc;
end;
{$if defined(cpui386) and not defined(cpullvm)}
{$define FPC_SYSTEM_HAS_RESUME}
procedure fpc_Resume(exception_object: PFPC_Unwind_Exception); [public,alias:'FPC_RESUME']; compilerproc; assembler; nostackframe;
asm
@ -1213,7 +1214,7 @@ procedure fpc_Resume(exception_object: PFPC_Unwind_Exception); [public,alias:'FP
pushl %ecx
jmp _Unwind_Resume
end;
{$endif}
{$define FPC_SYSTEM_HAS_RAISENESTED}
procedure fpc_raise_nested;compilerproc;

2
rtl/inc/psabiehh.inc
View File

@ -80,7 +80,9 @@ function _FPC_psabieh_personality_v0(version: longint; actions: FPC_Unwind_Actio
{$endif}
function FPC_psabi_begin_catch(exc:PFPC_Unwind_Exception): pointer; cdecl; compilerproc;
procedure FPC_psabi_end_catch; cdecl; compilerproc;
{$if defined(cpui386) and not defined(cpullvm)}
Procedure fpc_Resume(exception_object: PFPC_Unwind_Exception); compilerproc;
{$endif}
{ llvm cannot create a catch/cleanup block if there is no call inside the
try block to a routine that can raise an exception. Hence, we will call