added creatFNeg for DoubleType negation, removed call to browser

vsbuffalo · Apr 4, 2012 · a3cad79 · a3cad79
1 parent ce21294
commit a3cad79
Show file tree

Hide file tree

Showing 4 changed files with 20 additions and 1 deletion.
diff --git a/NAMESPACE b/NAMESPACE
@@ -62,6 +62,7 @@ createLoad,
 createLocalArrayVariable,
 createLocalVariable,
 createNeg,
+createFNeg,
 createNot,
 createRet,
 createReturn,

diff --git a/R/IRBuilder.R b/R/IRBuilder.R
@@ -73,6 +73,14 @@ function(builder, val, id = character())
   .Call("R_IRBuilder_CreateNeg", builder, val)
 }
 
+
+createFNeg =
+function(builder, val, id = character())
+{
+  .Call("R_IRBuilder_CreateFNeg", builder, val)
+}
+
+
 createNot =
 function(builder, val, id = character())
 {

diff --git a/R/value.R b/R/value.R
@@ -10,7 +10,6 @@ setGeneric("getType",
 setMethod("getType", "Value",
            function(obj, ...) {
               ans = .Call("R_Value_getType", obj)
-              browser()
               ans
         })
 
diff --git a/src/IRBuilder.cpp b/src/IRBuilder.cpp
@@ -185,6 +185,17 @@ R_IRBuilder_CreateNeg(SEXP r_builder, SEXP r_val)
     return(R_createRef(ans, "Value"));
 }
 
+extern "C"
+SEXP
+R_IRBuilder_CreateFNeg(SEXP r_builder, SEXP r_val)
+{
+    llvm::IRBuilder<> *builder;
+    builder = GET_REF(r_builder, IRBuilder<>);
+    llvm::Value *val = GET_REF(r_val, Value);
+    llvm::Value * ans = builder->CreateFNeg(val);
+    return(R_createRef(ans, "Value"));
+}
+
 extern "C"
 SEXP
 R_IRBuilder_CreateUIToFP(SEXP r_builder, SEXP r_val, SEXP r_type)