Переглянути джерело

* ensure the generic version of tcgshlshrnode gets used for llvm

git-svn-id: trunk@40464 -
Jonas Maebe 6 роки тому
батько
коміт
b7da7cd654
1 змінених файлів з 3 додано та 2 видалено
  1. 3 2
      compiler/llvm/nllvmmat.pas

+ 3 - 2
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.