generic-library/ChaiScript
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Reduce creation of new Boxed_Value containers when returning the same value that was passed in

Browse Source
This commit is contained in:
Jason Turner
2011-06-04 03:48:32 +08:00
committed by Jason Turner
parent 5b40a85024
commit 4053196188
2 changed files with 43 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
contrib/codeanalysis/is_prime.chai
View File

@@ -21,5 +21,5 @@ def primes(n)
} }
var N = 500 var N = 5000
print("primes: " + primes(N).to_string()) print("primes: " + primes(N).to_string())

70
include/chaiscript/dispatchkit/boxed_numeric.hpp
View File

@@ -26,7 +26,7 @@ namespace chaiscript
{ {
#pragma GCC diagnostic ignored "-Wsign-compare" #pragma GCC diagnostic ignored "-Wsign-compare"
template<typename T, typename U> template<typename T, typename U>
static Boxed_Value go(Operators::Opers t_oper, const T &t, const U &u) static Boxed_Value go(Operators::Opers t_oper, const T &t, const U &u, const Boxed_Value &)
{ {
switch (t_oper) switch (t_oper)
{ {
@@ -52,61 +52,75 @@ namespace chaiscript
struct binary struct binary
{ {
template<typename T, typename U> template<typename T, typename U>
static Boxed_Value go(Operators::Opers t_oper, T &t, const U &u) static Boxed_Value go(Operators::Opers t_oper, T &t, const U &u, const Boxed_Value &t_lhs)
{ {
switch (t_oper) switch (t_oper)
{ {
case Operators::assign: case Operators::assign:
return var(&(t = u)); t = u;
break;
case Operators::pre_increment: case Operators::pre_increment:
return var(&(++t)); ++t;
break;
case Operators::pre_decrement: case Operators::pre_decrement:
return var(&(--t)); --t;
break;
case Operators::assign_product: case Operators::assign_product:
return var(&(t *= u)); t *= u;
break;
case Operators::assign_sum: case Operators::assign_sum:
return var(&(t += u)); t += u;
break;
case Operators::assign_quotient: case Operators::assign_quotient:
return var(&(t /= u)); t /= u;
break;
case Operators::assign_difference: case Operators::assign_difference:
return var(&(t -= u)); t -= u;
break;
default: default:
throw boost::bad_any_cast(); throw boost::bad_any_cast();
} }
throw boost::bad_any_cast();
return t_lhs;
} }
}; };
struct binary_int struct binary_int
{ {
template<typename T, typename U> template<typename T, typename U>
static Boxed_Value go(Operators::Opers t_oper, T &t, const U &u) static Boxed_Value go(Operators::Opers t_oper, T &t, const U &u, const Boxed_Value &t_lhs)
{ {
switch (t_oper) switch (t_oper)
{ {
case Operators::assign_bitwise_and: case Operators::assign_bitwise_and:
return var(&(t &= u)); t &= u;
break;
case Operators::assign_bitwise_or: case Operators::assign_bitwise_or:
return var(&(t |= u)); t |= u;
break;
case Operators::assign_shift_left: case Operators::assign_shift_left:
return var(&(t <<= u)); t <<= u;
break;
case Operators::assign_shift_right: case Operators::assign_shift_right:
return var(&(t >>= u)); t >>= u;
break;
case Operators::assign_remainder: case Operators::assign_remainder:
return var(&(t %= u)); t %= u;
break;
case Operators::assign_bitwise_xor: case Operators::assign_bitwise_xor:
return var(&(t ^= u)); t ^= u;
break;
default: default:
throw boost::bad_any_cast(); throw boost::bad_any_cast();
} }
throw boost::bad_any_cast(); return t_lhs;
} }
}; };
struct const_binary_int struct const_binary_int
{ {
template<typename T, typename U> template<typename T, typename U>
static Boxed_Value go(Operators::Opers t_oper, const T &t, const U &u) static Boxed_Value go(Operators::Opers t_oper, const T &t, const U &u, const Boxed_Value &)
{ {
switch (t_oper) switch (t_oper)
{ {
@@ -134,7 +148,7 @@ namespace chaiscript
struct const_binary struct const_binary
{ {
template<typename T, typename U> template<typename T, typename U>
static Boxed_Value go(Operators::Opers t_oper, const T &t, const U &u) static Boxed_Value go(Operators::Opers t_oper, const T &t, const U &u, const Boxed_Value &)
{ {
switch (t_oper) switch (t_oper)
{ {
@@ -164,15 +178,15 @@ namespace chaiscript
{ {
if (t_oper > Operators::boolean_flag && t_oper < Operators::non_const_flag) if (t_oper > Operators::boolean_flag && t_oper < Operators::non_const_flag)
{ {
return boolean::go<LHS, RHS>(t_oper, *static_cast<const LHS *>(t_lhs.get_const_ptr()), *static_cast<const RHS *>(t_rhs.get_const_ptr())); return boolean::go<LHS, RHS>(t_oper, *static_cast<const LHS *>(t_lhs.get_const_ptr()), *static_cast<const RHS *>(t_rhs.get_const_ptr()), t_lhs);
} else if (t_oper > Operators::non_const_flag && t_oper < Operators::non_const_int_flag && !t_lhs.is_const()) { } else if (t_oper > Operators::non_const_flag && t_oper < Operators::non_const_int_flag && !t_lhs.is_const()) {
return binary::go<LHS, RHS>(t_oper, *static_cast<LHS *>(t_lhs.get_ptr()), *static_cast<const RHS *>(t_rhs.get_const_ptr())); return binary::go<LHS, RHS>(t_oper, *static_cast<LHS *>(t_lhs.get_ptr()), *static_cast<const RHS *>(t_rhs.get_const_ptr()), t_lhs);
} else if (t_oper > Operators::non_const_int_flag && t_oper < Operators::const_int_flag && !t_lhs.is_const()) { } else if (t_oper > Operators::non_const_int_flag && t_oper < Operators::const_int_flag && !t_lhs.is_const()) {
return binary_int::go<LHS, RHS>(t_oper, *static_cast<LHS *>(t_lhs.get_ptr()), *static_cast<const RHS *>(t_rhs.get_const_ptr())); return binary_int::go<LHS, RHS>(t_oper, *static_cast<LHS *>(t_lhs.get_ptr()), *static_cast<const RHS *>(t_rhs.get_const_ptr()), t_lhs);
} else if (t_oper > Operators::const_int_flag && t_oper < Operators::const_flag) { } else if (t_oper > Operators::const_int_flag && t_oper < Operators::const_flag) {
return const_binary_int::go<LHS, RHS>(t_oper, *static_cast<const LHS *>(t_lhs.get_const_ptr()), *static_cast<const RHS *>(t_rhs.get_const_ptr())); return const_binary_int::go<LHS, RHS>(t_oper, *static_cast<const LHS *>(t_lhs.get_const_ptr()), *static_cast<const RHS *>(t_rhs.get_const_ptr()), t_lhs);
} else if (t_oper > Operators::const_flag) { } else if (t_oper > Operators::const_flag) {
return const_binary::go<LHS, RHS>(t_oper, *static_cast<const LHS *>(t_lhs.get_const_ptr()), *static_cast<const RHS *>(t_rhs.get_const_ptr())); return const_binary::go<LHS, RHS>(t_oper, *static_cast<const LHS *>(t_lhs.get_const_ptr()), *static_cast<const RHS *>(t_rhs.get_const_ptr()), t_lhs);
} else { } else {
throw boost::bad_any_cast(); throw boost::bad_any_cast();
} }
@@ -186,15 +200,15 @@ namespace chaiscript
{ {
if (t_oper > Operators::boolean_flag && t_oper < Operators::non_const_flag) if (t_oper > Operators::boolean_flag && t_oper < Operators::non_const_flag)
{ {
return boolean::go<LHS, RHS>(t_oper, *static_cast<const LHS *>(t_lhs.get_const_ptr()), *static_cast<const RHS *>(t_rhs.get_const_ptr())); return boolean::go<LHS, RHS>(t_oper, *static_cast<const LHS *>(t_lhs.get_const_ptr()), *static_cast<const RHS *>(t_rhs.get_const_ptr()), t_lhs);
} else if (t_oper > Operators::non_const_flag && t_oper < Operators::non_const_int_flag && !t_lhs.is_const()) { } else if (t_oper > Operators::non_const_flag && t_oper < Operators::non_const_int_flag && !t_lhs.is_const()) {
return binary::go<LHS, RHS>(t_oper, *static_cast<LHS *>(t_lhs.get_ptr()), *static_cast<const RHS *>(t_rhs.get_const_ptr())); return binary::go<LHS, RHS>(t_oper, *static_cast<LHS *>(t_lhs.get_ptr()), *static_cast<const RHS *>(t_rhs.get_const_ptr()), t_lhs);
} else if (t_oper > Operators::non_const_int_flag && t_oper < Operators::const_int_flag) { } else if (t_oper > Operators::non_const_int_flag && t_oper < Operators::const_int_flag) {
throw boost::bad_any_cast(); throw boost::bad_any_cast();
} else if (t_oper > Operators::const_int_flag && t_oper < Operators::const_flag) { } else if (t_oper > Operators::const_int_flag && t_oper < Operators::const_flag) {
throw boost::bad_any_cast(); throw boost::bad_any_cast();
} else if (t_oper > Operators::const_flag) { } else if (t_oper > Operators::const_flag) {
return const_binary::go<LHS, RHS>(t_oper, *static_cast<const LHS *>(t_lhs.get_const_ptr()), *static_cast<const RHS *>(t_rhs.get_const_ptr())); return const_binary::go<LHS, RHS>(t_oper, *static_cast<const LHS *>(t_lhs.get_const_ptr()), *static_cast<const RHS *>(t_rhs.get_const_ptr()), t_lhs);
} else { } else {
throw boost::bad_any_cast(); throw boost::bad_any_cast();
} }