Mercurial > hg > octave-terminal
changeset 14918:13465aab507f
Removed dead functions
* src/pt-jit.cc (jit_typeinfo::do_to_generic, jit_typeinfo::do_to_octave_value)
(jit_typeinfo::do_reset_generic): Removed
* src/pt-jit.h (jit_typeinfo::to_generic, jit_typeinfo::to_octave_value)
(jit_typeinfo::reset_generic): Removed
author | Max Brister <max@2bass.com> |
---|---|
date | Thu, 24 May 2012 15:25:06 -0600 |
parents | 232d8ab07932 |
children | f0499b0af646 |
files | src/pt-jit.cc src/pt-jit.h |
diffstat | 2 files changed, 0 insertions(+), 102 deletions(-) [+] |
line wrap: on
line diff
--- a/src/pt-jit.cc +++ b/src/pt-jit.cc @@ -47,7 +47,6 @@ #include <llvm/Transforms/IPO.h> #include <llvm/Support/TargetSelect.h> #include <llvm/Support/raw_os_ostream.h> -#include <llvm/ExecutionEngine/GenericValue.h> #include "octave.h" #include "ov-fcn-handle.h" @@ -561,74 +560,6 @@ return get_any (); } -void -jit_typeinfo::do_to_generic (jit_type *type, llvm::GenericValue& gv) -{ - if (type == any) - do_to_generic (type, gv, octave_value ()); - else if (type == scalar) - do_to_generic (type, gv, octave_value (0)); - else if (type == range) - do_to_generic (type, gv, octave_value (Range ())); - else - assert (false && "Type not supported yet"); -} - -void -jit_typeinfo::do_to_generic (jit_type *type, llvm::GenericValue& gv, octave_value ov) -{ - if (type == any) - { - octave_base_value *obv = ov.internal_rep (); - obv->grab (); - ov_out.push_back (obv); - gv.PointerVal = &ov_out.back (); - } - else if (type == scalar) - { - scalar_out.push_back (ov.double_value ()); - gv.PointerVal = &scalar_out.back (); - } - else if (type == range) - { - range_out.push_back (ov.range_value ()); - gv.PointerVal = &range_out.back (); - } - else - assert (false && "Type not supported yet"); -} - -octave_value -jit_typeinfo::do_to_octave_value (jit_type *type, llvm::GenericValue& gv) -{ - if (type == any) - { - octave_base_value **ptr = reinterpret_cast<octave_base_value **>(gv.PointerVal); - return octave_value (*ptr); - } - else if (type == scalar) - { - double *ptr = reinterpret_cast<double *>(gv.PointerVal); - return octave_value (*ptr); - } - else if (type == range) - { - jit_range *ptr = reinterpret_cast<jit_range *>(gv.PointerVal); - Range rng = *ptr; - return octave_value (rng); - } - else - assert (false && "Type not supported yet"); -} - -void -jit_typeinfo::do_reset_generic (void) -{ - scalar_out.clear (); - ov_out.clear (); - range_out.clear (); -} - jit_type* jit_typeinfo::new_type (const std::string& name, jit_type *parent, llvm::Type *llvm_type)
--- a/src/pt-jit.h +++ b/src/pt-jit.h @@ -81,7 +81,6 @@ class BasicBlock; class LLVMContext; class Type; - class GenericValue; class Twine; } @@ -309,26 +308,6 @@ { return instance->do_cast (to, from); } - - static void to_generic (jit_type *type, llvm::GenericValue& gv) - { - return instance->do_to_generic (type, gv); - } - - static void to_generic (jit_type *type, llvm::GenericValue& gv, octave_value ov) - { - return instance->do_to_generic (type, gv, ov); - } - - static octave_value to_octave_value (jit_type *type, llvm::GenericValue& gv) - { - return instance->do_to_octave_value (type, gv); - } - - static void reset_generic (void) - { - instance->do_reset_generic (); - } private: jit_typeinfo (llvm::Module *m, llvm::ExecutionEngine *e); @@ -380,14 +359,6 @@ return binary_ops[op]; } - void do_to_generic (jit_type *type, llvm::GenericValue& gv); - - void do_to_generic (jit_type *type, llvm::GenericValue& gv, octave_value ov); - - octave_value do_to_octave_value (jit_type *type, llvm::GenericValue& gv); - - void do_reset_generic (void); - const jit_function& do_cast (jit_type *to) { static jit_function null_function; @@ -500,10 +471,6 @@ // type id -> identity function std::vector<llvm::Function *> identities; - - std::list<double> scalar_out; - std::list<octave_base_value *> ov_out; - std::list<jit_range> range_out; }; // The low level octave jit ir