From b7da7cd654a752872057bd48ac17628665750aa1 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Tue, 4 Dec 2018 19:53:16 +0000
Subject: [PATCH]   * ensure the generic version of tcgshlshrnode gets used for
 llvm

git-svn-id: trunk@40464 -
---
 compiler/llvm/nllvmmat.pas | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/compiler/llvm/nllvmmat.pas b/compiler/llvm/nllvmmat.pas
index d2f08226df..539cdd0dc0 100644
--- a/compiler/llvm/nllvmmat.pas
+++ b/compiler/llvm/nllvmmat.pas
@@ -34,6 +34,9 @@ type
     procedure pass_generate_code; override;
   end;
 
+  tllvmshlshrnode = class(tcgshlshrnode)
+  end;
+
   Tllvmunaryminusnode = class(tcgunaryminusnode)
     procedure emit_float_sign_change(r: tregister; _size : tdef);override;
   end;
@@ -154,9 +157,7 @@ end;
 
 begin
   cmoddivnode := tllvmmoddivnode;
-(*
   cshlshrnode := tllvmshlshrnode;
-*)
   cnotnode    := tllvmnotnode;
   cunaryminusnode := Tllvmunaryminusnode;
 end.