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

* ensure the generic version of tcgshlshrnode gets used for llvm

Browse Source 
git-svn-id: trunk@40464 -
This commit is contained in:
Jonas Maebe 2018-12-04 19:53:16 +00:00
parent 2109612fa3
commit b7da7cd654
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/llvm/nllvmmat.pas
View File

@ -34,6 +34,9 @@ type
procedure pass_generate_code; override; procedure pass_generate_code; override;
end; end;
tllvmshlshrnode = class(tcgshlshrnode)
end;
Tllvmunaryminusnode = class(tcgunaryminusnode) Tllvmunaryminusnode = class(tcgunaryminusnode)
procedure emit_float_sign_change(r: tregister; _size : tdef);override; procedure emit_float_sign_change(r: tregister; _size : tdef);override;
end; end;
@ -154,9 +157,7 @@ end;
begin begin
cmoddivnode := tllvmmoddivnode; cmoddivnode := tllvmmoddivnode;
(*
cshlshrnode := tllvmshlshrnode; cshlshrnode := tllvmshlshrnode;
*)
cnotnode := tllvmnotnode; cnotnode := tllvmnotnode;
cunaryminusnode := Tllvmunaryminusnode; cunaryminusnode := Tllvmunaryminusnode;
end. end.