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

* set pi_do_call for AArch64 mod/div nodes, as they call FPC_DIVBYZERO

Browse Source 
git-svn-id: trunk@30032 -
This commit is contained in:
Jonas Maebe 2015-02-28 22:30:57 +00:00
parent 33b1732ca2
commit ada5060a34
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/aarch64/ncpumat.pas
View File

@ -30,6 +30,7 @@ interface
type type
taarch64moddivnode = class(tmoddivnode) taarch64moddivnode = class(tmoddivnode)
function pass_1: tnode; override;
procedure pass_generate_code;override; procedure pass_generate_code;override;
end; end;
@ -58,6 +59,14 @@ implementation
taarch64moddivnode taarch64moddivnode
*****************************************************************************} *****************************************************************************}
function taarch64moddivnode.pass_1: tnode;
begin
result:=inherited pass_1;
if not assigned(result) then
include(current_procinfo.flags,pi_do_call);
end;
procedure taarch64moddivnode.pass_generate_code; procedure taarch64moddivnode.pass_generate_code;
var var
op : tasmop; op : tasmop;