ruby-mpfr 0.0.12 → 0.0.13

data/.gitignore

@@ -0,0 +1,13 @@
+*.gem
+.bundle
+Gemfile.lock
+pkg/*
+*.o
+*.so
+*.log
+*~
+\#*\#
+ext/*/Makefile
+ext/*/*/Makefile
+doc
+.yardoc

data/Gemfile

@@ -0,0 +1,4 @@
+source "http://rubygems.org"
+
+# Specify your gem's dependencies in ruby-mpfr.gemspec
+gemspec

data/README.rdoc

@@ -1,7 +1,7 @@
 = ruby-mpfr
 
-* http://rubyforge.org/projects/ruby-mpfr/
-* http://gemcutter.org/gems/ruby-mpfr/
+* https://github.com/ytaka/ruby-mpfr/
+* http://rubygems.org/gems/ruby-mpfr/
 
 == Description:
 
@@ -34,21 +34,22 @@ The package of rubygems of ruby-mpfr is provided.
 You can install ruby-mpfr with the following command
 in the system satisfying the above requirements.
  
- $ sudo gem install ruby-mpfr
+ $ gem install ruby-mpfr
 
 == Related Software:
 These two gem packages uses ruby-mpfr.
 
-* ruby-mpc[http://gemcutter.org/gems/ruby-mpc/]: the arithmetic of complex numbers with multiprecision
-* ruby-mpfi[http://gemcutter.org/gems/ruby-mpfi/]: the interval arithmetic with multiprecision
+* ruby-mpc[http://rubygems.org/gems/ruby-mpc/]: the arithmetic of complex numbers with multiprecision
+* ruby-mpfi[http://rubygems.org/gems/ruby-mpfi/]: the interval arithmetic with multiprecision
 
 The following is an another multiple precision library which uses GMP.
-* http://gemcutter.org/gems/gmp
+
+* http://rubygems.org/gems/gmp
 
 == License:
 
 ruby-mpfr
-Copyright (C) 2009 - 2010 Takayuki YAMAGUCHI
+Copyright (C) 2009 Takayuki YAMAGUCHI
 
 This program is free software; you can redistribute it and/or modify it under
 the terms of the GNU Lesser General Public License as published by the Free 

data/Rakefile

@@ -1,30 +1,31 @@
-require 'rubygems'
-gem 'hoe', '>= 2.1.0'
-require 'hoe'
-require 'fileutils'
-require './lib/mpfr/version.rb'
-# require 'rake/clean'
+require "bundler/gem_tasks"
 
-Hoe.plugin :newgem
-# Hoe.plugin :website
-# Hoe.plugin :cucumberfeatures
+def each_extconf_directory(&block)
+  Dir.glob("ext/**/extconf.rb").each do |extconf|
+    cd File.dirname(extconf) do
+      yield
+    end
+  end
+end
 
-# Generate all the Rake tasks
-# Run 'rake -T' to see list of generated tasks (from gem root directory)
-$hoe = Hoe.spec 'ruby-mpfr' do
-  self.developer 'Takayuki YAMAGUCHI', 'd@ytak.info'
-  self.post_install_message = 'PostInstall.txt' # TODO remove if post-install message not required
-  self.rubyforge_name       = self.name # TODO this is default value
-  # self.extra_deps         = [['activesupport','>= 2.0.2']]
-  self.spec_extras[:extensions] = ["ext/mpfr/extconf.rb", "ext/mpfr_matrix/mpfr/extconf.rb",
-                                   "ext/gmp/mpfr/extconf.rb"]
-  self.extra_rdoc_files << 'README.rdoc'
-  self.extra_rdoc_files << 'Example.rdoc'
+desc 'Compile extended library'
+task 'ext:compile' do |t|
+  each_extconf_directory do
+    sh 'ruby extconf.rb' unless File.exist?('Makefile')
+    sh 'make'
+  end
 end
 
-# require 'newgem/tasks'
-Dir['tasks/**/*.rake'].each { |t| load t }
+desc 'Clean'
+task 'ext:clean' do |t|
+  each_extconf_directory do
+    sh 'make clean' if File.exist?('Makefile')
+  end
+end
 
-# TODO - want other tests/tasks run by default? Add them to the list
-# remove_task :default
-# task :default => [:spec, :features]
+desc 'Clean completely'
+task 'ext:distclean' do |t|
+  each_extconf_directory do
+    sh 'make distclean' if File.exist?('Makefile')
+  end
+end

data/ext/mpfr/ruby_mpfr.c

@@ -12,7 +12,7 @@
 
 static ID eqq, to_s, new, class, method_defined, object_id, to_fr,
   id_rndn, id_rndz, id_rndu, id_rndd, id_rnda;
-static VALUE __mpfr_class__, __sym_to_s__, __sym_to_str__;
+static VALUE __mpfr_class__, __sym_to_s__, __sym_to_str__, __mpfr_domain_error__;
 
 /* ------------------------------ Precision and Rounding Mode Start ------------------------------ */
 #define VALID_RND(rnd_mode) (rnd_mode >= MPFR_RNDN && rnd_mode < ((MPFR_RNDA)+1))
@@ -640,8 +640,9 @@ static VALUE r_mpfr_get_prec(VALUE self)
 static VALUE r_mpfr_set(int argc, VALUE *argv, VALUE self)
 {
   MPFR *ptr_self;
+  mp_rnd_t rnd;
   r_mpfr_get_struct(ptr_self, self);
-  mp_rnd_t rnd = r_mpfr_rnd_from_optional_argument(1, 2, argc, argv);
+  rnd = r_mpfr_rnd_from_optional_argument(1, 2, argc, argv);
   r_mpfr_set_robj(ptr_self, argv[0], rnd);
   return self;
 }
@@ -653,8 +654,9 @@ static VALUE r_mpfr_set(int argc, VALUE *argv, VALUE self)
 static VALUE r_mpfr_set_fixnum_2exp(int argc, VALUE *argv, VALUE self)
 {
   MPFR *ptr_self;
+  mp_rnd_t rnd;
   r_mpfr_get_struct(ptr_self, self);
-  mp_rnd_t rnd = r_mpfr_rnd_from_optional_argument(2, 3, argc, argv);
+  rnd = r_mpfr_rnd_from_optional_argument(2, 3, argc, argv);
   mpfr_set_si_2exp(ptr_self, NUM2INT(argv[0]), NUM2INT(argv[1]), rnd);
   return self;
 }
@@ -717,13 +719,14 @@ static VALUE r_mpfr_swap(VALUE self, VALUE other)
 static VALUE r_mpfr_to_strf(VALUE self, VALUE format_str)
 {
   MPFR *ptr_self;
+  char *format, *ret_str;
+  VALUE ret_val;
   r_mpfr_get_struct(ptr_self, self);
-  char *format = StringValuePtr(format_str);
-  char *ret_str;
+  format = StringValuePtr(format_str);
   if (!mpfr_asprintf(&ret_str, format, ptr_self)) {
     rb_raise(rb_eFatal, "Can not allocate a string by mpfr_asprintf.");
   }
-  VALUE ret_val = rb_str_new2(ret_str);
+  ret_val = rb_str_new2(ret_str);
   mpfr_free_str(ret_str);
   return ret_val;
 }
@@ -732,12 +735,13 @@ static VALUE r_mpfr_to_strf(VALUE self, VALUE format_str)
 static VALUE r_mpfr_to_s(VALUE self)
 {
   MPFR *ptr_self;
-  r_mpfr_get_struct(ptr_self, self);
   char *ret_str;
+  VALUE ret_val;
+  r_mpfr_get_struct(ptr_self, self);
   if (!mpfr_asprintf(&ret_str, "%.Re", ptr_self)) {
     rb_raise(rb_eFatal, "Can not allocate a string by mpfr_asprintf.");
   }
-  VALUE ret_val = rb_str_new2(ret_str);
+  ret_val = rb_str_new2(ret_str);
   mpfr_free_str(ret_str);
   return ret_val;
 }
@@ -746,13 +750,14 @@ static VALUE r_mpfr_to_s(VALUE self)
 static VALUE r_mpfr_inspect(VALUE self)
 {
   MPFR *ptr_s;
-  r_mpfr_get_struct(ptr_s, self);
   char *ret_str;
+  VALUE ret_val;
+  r_mpfr_get_struct(ptr_s, self);
   if (!mpfr_asprintf(&ret_str, "#<MPFR:%lx,'%0.Re',%d>", NUM2LONG(rb_funcall(self, object_id, 0)),
 		     ptr_s, mpfr_get_prec(ptr_s))) {
     rb_raise(rb_eFatal, "Can not allocate a string by mpfr_asprintf.");
   }
-  VALUE ret_val = rb_str_new2(ret_str);
+  ret_val = rb_str_new2(ret_str);
   mpfr_free_str(ret_str);
   return ret_val;
 }
@@ -774,18 +779,11 @@ static VALUE r_mpfr_get_d(int argc, VALUE *argv, VALUE self)
 static VALUE r_mpfr_get_d_2exp(int argc, VALUE *argv, VALUE self)
 {
   MPFR *ptr_self;
-  r_mpfr_get_struct(ptr_self, self);
+  double ret_val1;
   long int ret_val2;
-  double ret_val1 = mpfr_get_d_2exp(&ret_val2, ptr_self, r_mpfr_rnd_from_optional_argument(0, 1, argc, argv));
-  return rb_ary_new3(2, rb_float_new(ret_val1), INT2NUM(ret_val2));
-}
-
-/* Return Fixnum object converted after rounding self with respect to rnd which is optional argument. */
-static VALUE r_mpfr_get_si(int argc, VALUE *argv, VALUE self)
-{
-  MPFR *ptr_self;
   r_mpfr_get_struct(ptr_self, self);
-  return INT2NUM(mpfr_get_si(ptr_self, r_mpfr_rnd_from_optional_argument(0, 1, argc, argv)));
+  ret_val1 = mpfr_get_d_2exp(&ret_val2, ptr_self, r_mpfr_rnd_from_optional_argument(0, 1, argc, argv));
+  return rb_ary_new3(2, rb_float_new(ret_val1), LONG2NUM(ret_val2));
 }
 
 /* Return Fixnum object which is nearest integer to self. */
@@ -793,7 +791,23 @@ static VALUE r_mpfr_round_to_i(VALUE self)
 {
   MPFR *ptr_self;
   r_mpfr_get_struct(ptr_self, self);
-  return INT2NUM(mpfr_get_si(ptr_self, GMP_RNDN));
+  if (mpfr_fits_slong_p(ptr_self, GMP_RNDN)) {
+    return LONG2NUM(mpfr_get_si(ptr_self, GMP_RNDN));
+  } else if (mpfr_nan_p(ptr_self)) {
+    rb_raise(__mpfr_domain_error__, "Can not convert NaN to an integer");
+  } else {
+    MPFR *tmp_int;
+    char *tmp_str;
+    VALUE bignum;
+    r_mpfr_temp_alloc_init2(tmp_int, mpfr_get_prec(ptr_self));
+    mpfr_round(tmp_int, ptr_self);
+    if (!mpfr_asprintf(&tmp_str, "%Rf", tmp_int)) {
+      rb_raise(rb_eFatal, "Can not allocate a string by mpfr_asprintf.");
+    }
+    bignum = rb_cstr_to_inum(tmp_str, 10, false);
+    r_mpfr_temp_free(tmp_int);
+    return bignum;
+  }
 }
 
 /* Return Fixnum object which is the minimum integer over self. */
@@ -801,7 +815,23 @@ static VALUE r_mpfr_ceil_to_i(VALUE self)
 {
   MPFR *ptr_self;
   r_mpfr_get_struct(ptr_self, self);
-  return INT2NUM(mpfr_get_si(ptr_self, GMP_RNDU));
+  if (mpfr_fits_slong_p(ptr_self, GMP_RNDU)) {
+    return LONG2NUM(mpfr_get_si(ptr_self, GMP_RNDU));
+  } else if (mpfr_nan_p(ptr_self)) {
+    rb_raise(__mpfr_domain_error__, "Can not convert NaN to an integer");
+  } else {
+    MPFR *tmp_int;
+    char *tmp_str;
+    VALUE bignum;
+    r_mpfr_temp_alloc_init2(tmp_int, mpfr_get_prec(ptr_self));
+    mpfr_ceil(tmp_int, ptr_self);
+    if (!mpfr_asprintf(&tmp_str, "%Rf", tmp_int)) {
+      rb_raise(rb_eFatal, "Can not allocate a string by mpfr_asprintf.");
+    }
+    bignum = rb_cstr_to_inum(tmp_str, 10, false);
+    r_mpfr_temp_free(tmp_int);
+    return bignum;
+  }
 }
 
 /* Return Fixnum object which is the maximum integer not over self. */
@@ -809,7 +839,23 @@ static VALUE r_mpfr_floor_to_i(VALUE self)
 {
   MPFR *ptr_self;
   r_mpfr_get_struct(ptr_self, self);
-  return INT2NUM(mpfr_get_si(ptr_self, GMP_RNDD));
+  if (mpfr_fits_slong_p(ptr_self, GMP_RNDD)) {
+    return LONG2NUM(mpfr_get_si(ptr_self, GMP_RNDD));
+  } else if (mpfr_nan_p(ptr_self)) {
+    rb_raise(__mpfr_domain_error__, "Can not convert NaN to an integer");
+  } else {
+    MPFR *tmp_int;
+    char *tmp_str;
+    VALUE bignum;
+    r_mpfr_temp_alloc_init2(tmp_int, mpfr_get_prec(ptr_self));
+    mpfr_floor(tmp_int, ptr_self);
+    if (!mpfr_asprintf(&tmp_str, "%Rf", tmp_int)) {
+      rb_raise(rb_eFatal, "Can not allocate a string by mpfr_asprintf.");
+    }
+    bignum = rb_cstr_to_inum(tmp_str, 10, false);
+    r_mpfr_temp_free(tmp_int);
+    return bignum;
+  }
 }
 
 /* Return Fixnum object by truncating self. */
@@ -817,17 +863,35 @@ static VALUE r_mpfr_truncate_to_i(VALUE self)
 {
   MPFR *ptr_self;
   r_mpfr_get_struct(ptr_self, self);
-  return INT2NUM(mpfr_get_si(ptr_self, GMP_RNDZ));
+  if (mpfr_fits_slong_p(ptr_self, GMP_RNDZ)) {
+    return LONG2NUM(mpfr_get_si(ptr_self, GMP_RNDZ));
+  } else if (mpfr_nan_p(ptr_self)) {
+    rb_raise(__mpfr_domain_error__, "Can not convert NaN to an integer");
+  } else {
+    MPFR *tmp_int;
+    char *tmp_str;
+    VALUE bignum;
+    r_mpfr_temp_alloc_init2(tmp_int, mpfr_get_prec(ptr_self));
+    mpfr_trunc(tmp_int, ptr_self);
+    if (!mpfr_asprintf(&tmp_str, "%Rf", tmp_int)) {
+      rb_raise(rb_eFatal, "Can not allocate a string by mpfr_asprintf.");
+    }
+    bignum = rb_cstr_to_inum(tmp_str, 10, false);
+    r_mpfr_temp_free(tmp_int);
+    return bignum;
+  }
 }
 
 /* Return array having String object meaning mantissa and Fixnum object meaning exponent. See MPFR reference for detail. */
 static VALUE r_mpfr_get_str(VALUE self)
 {
   MPFR *ptr_self;
-  r_mpfr_get_struct(ptr_self, self);
   mp_exp_t e;
-  char *str = mpfr_get_str(NULL, &e, 10, 0, ptr_self, GMP_RNDN);
-  VALUE ret_str = rb_str_new2(str);
+  char *str;
+  VALUE ret_str;
+  r_mpfr_get_struct(ptr_self, self);
+  str = mpfr_get_str(NULL, &e, 10, 0, ptr_self, GMP_RNDN);
+  ret_str = rb_str_new2(str);
   mpfr_free_str(str);
   return rb_ary_new3(2, ret_str, INT2FIX((int)e));
 }
@@ -974,9 +1038,9 @@ static VALUE r_mpfr_neg(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 0, 2, argc, argv);
   MPFR *ptr_self, *ptr_return;
   VALUE val_ret;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 0, 2, argc, argv);
   r_mpfr_get_struct(ptr_self, self);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   mpfr_neg(ptr_return, ptr_self, rnd);
@@ -988,9 +1052,9 @@ static VALUE r_mpfr_abs(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 0, 2, argc, argv);
   MPFR *ptr_self, *ptr_return;
   VALUE val_ret;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 0, 2, argc, argv);
   r_mpfr_get_struct(ptr_self, self);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   mpfr_abs(ptr_return, ptr_self, rnd);
@@ -1006,10 +1070,11 @@ static VALUE r_mpfr_math_add(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 2, 4, argc, argv);
   MPFR *ptr_arg1, *ptr_arg2, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 2, 4, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
 
@@ -1030,10 +1095,11 @@ static VALUE r_mpfr_math_sub(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 2, 4, argc, argv);
   MPFR *ptr_arg1, *ptr_arg2, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 2, 4, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
 
@@ -1054,10 +1120,11 @@ static VALUE r_mpfr_math_mul(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 2, 4, argc, argv);
   MPFR *ptr_arg1, *ptr_arg2, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 2, 4, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
 
@@ -1078,10 +1145,11 @@ static VALUE r_mpfr_math_div(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 2, 4, argc, argv);
   MPFR *ptr_arg1, *ptr_arg2, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 2, 4, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
 
@@ -1102,10 +1170,11 @@ static VALUE r_mpfr_math_sqr(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_arg1, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   mpfr_sqr(ptr_return, ptr_arg1, rnd);
@@ -1117,9 +1186,9 @@ static VALUE r_mpfr_math_sqrt(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_arg1, *ptr_return;
   VALUE val_ret;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
 
   if(TYPE(argv[0]) == T_FIXNUM){
@@ -1142,10 +1211,11 @@ static VALUE r_mpfr_math_rec_sqrt(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_arg1, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   mpfr_rec_sqrt(ptr_return, ptr_arg1, rnd);
@@ -1157,10 +1227,11 @@ static VALUE r_mpfr_math_cbrt(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_arg1, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   mpfr_cbrt(ptr_return, ptr_arg1, rnd);
@@ -1172,13 +1243,15 @@ static VALUE r_mpfr_math_root(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 2, 4, argc, argv);
   MPFR *ptr_arg1, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  int root;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 2, 4, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
-  int root = NUM2INT(argv[1]);
+  root = NUM2INT(argv[1]);
   if(root > 0){
     mpfr_root(ptr_return, ptr_arg1, root, rnd);
   }else{
@@ -1192,10 +1265,11 @@ static VALUE r_mpfr_math_pow(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 2, 4, argc, argv);
   MPFR *ptr_arg0, *ptr_arg1, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 2, 4, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg0, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   if(TYPE(argv[1]) == T_FIXNUM){
@@ -1213,12 +1287,13 @@ static VALUE r_mpfr_math_dim(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 2, 4, argc, argv);
   MPFR *ptr_arg0, *ptr_arg1, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0, tmp_argv1;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 2, 4, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg0, tmp_argv0);
-  volatile VALUE tmp_argv1 = r_mpfr_new_fr_obj(argv[1]);
+  tmp_argv1 = r_mpfr_new_fr_obj(argv[1]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv1);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   mpfr_dim(ptr_return, ptr_arg0, ptr_arg1, rnd);
@@ -1230,10 +1305,11 @@ static VALUE r_mpfr_math_mul_2si(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 2, 4, argc, argv);
   MPFR *ptr_arg0, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 2, 4, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg0, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   mpfr_mul_2si(ptr_return, ptr_arg0, NUM2INT(argv[1]), rnd);
@@ -1245,10 +1321,11 @@ static VALUE r_mpfr_math_div_2si(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 2, 4, argc, argv);
   MPFR *ptr_arg0, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 2, 4, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg0, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   mpfr_div_2si(ptr_return, ptr_arg0, NUM2INT(argv[1]), rnd);
@@ -1263,8 +1340,8 @@ static VALUE r_mpfr_math_div_2si(int argc, VALUE *argv, VALUE self)
 static VALUE r_mpfr_cmp(VALUE self, VALUE other)
 {
   MPFR *ptr_self, *ptr_other;
-  r_mpfr_get_struct(ptr_self, self);
   int val_ret;
+  r_mpfr_get_struct(ptr_self, self);
 
   if(MPFR_P(other)){
     r_mpfr_get_struct(ptr_other, other);
@@ -1287,9 +1364,10 @@ static VALUE r_mpfr_cmp(VALUE self, VALUE other)
 static VALUE r_mpfr_cmp_ui_2exp(VALUE self, VALUE other, VALUE exp)
 {
   MPFR *ptr_self;
-  r_mpfr_get_struct(ptr_self, self);
   VALUE val_ret;
-  int i = NUM2INT(other);
+  int i;
+  r_mpfr_get_struct(ptr_self, self);
+  i = NUM2INT(other);
   if(i > 0){
     val_ret = INT2FIX(mpfr_cmp_ui_2exp(ptr_self, i, (mp_exp_t)NUM2INT(exp)));
   }else{
@@ -1310,8 +1388,9 @@ static VALUE r_mpfr_cmp_si_2exp(VALUE self, VALUE other, VALUE exp)
 static VALUE r_mpfr_cmpabs(VALUE self, VALUE other)
 {
   MPFR *ptr_self, *ptr_other;
+  volatile VALUE tmp_other;
   r_mpfr_get_struct(ptr_self, self);
-  volatile VALUE tmp_other = r_mpfr_new_fr_obj(other);
+  tmp_other = r_mpfr_new_fr_obj(other);
   r_mpfr_get_struct(ptr_other, tmp_other);
   return INT2FIX(mpfr_cmpabs(ptr_self, ptr_other));
 }
@@ -1392,8 +1471,9 @@ static VALUE r_mpfr_sgn(VALUE self)
 static VALUE r_mpfr_greater_p(VALUE self, VALUE other)
 {
   MPFR *ptr_self, *ptr_other;
+  volatile VALUE tmp_other;
   r_mpfr_get_struct(ptr_self, self);
-  volatile VALUE tmp_other = r_mpfr_new_fr_obj(other);
+  tmp_other = r_mpfr_new_fr_obj(other);
   r_mpfr_get_struct(ptr_other, tmp_other);
   return (mpfr_greater_p(ptr_self, ptr_other) != 0 ? Qtrue : Qfalse);
 }
@@ -1402,8 +1482,9 @@ static VALUE r_mpfr_greater_p(VALUE self, VALUE other)
 static VALUE r_mpfr_greaterequal_p(VALUE self, VALUE other)
 {
   MPFR *ptr_self, *ptr_other;
+  volatile VALUE tmp_other;
   r_mpfr_get_struct(ptr_self, self);
-  volatile VALUE tmp_other = r_mpfr_new_fr_obj(other);
+  tmp_other = r_mpfr_new_fr_obj(other);
   r_mpfr_get_struct(ptr_other, tmp_other);
   return (mpfr_greaterequal_p(ptr_self, ptr_other) != 0 ? Qtrue : Qfalse);
 }
@@ -1412,8 +1493,9 @@ static VALUE r_mpfr_greaterequal_p(VALUE self, VALUE other)
 static VALUE r_mpfr_less_p(VALUE self, VALUE other)
 {
   MPFR *ptr_self, *ptr_other;
+  volatile VALUE tmp_other;
   r_mpfr_get_struct(ptr_self, self);
-  volatile VALUE tmp_other = r_mpfr_new_fr_obj(other);
+  tmp_other = r_mpfr_new_fr_obj(other);
   r_mpfr_get_struct(ptr_other, tmp_other);
   return (mpfr_less_p(ptr_self, ptr_other) != 0 ? Qtrue : Qfalse);
 }
@@ -1422,8 +1504,9 @@ static VALUE r_mpfr_less_p(VALUE self, VALUE other)
 static VALUE r_mpfr_lessequal_p(VALUE self, VALUE other)
 {
   MPFR *ptr_self, *ptr_other;
+  volatile VALUE tmp_other;
   r_mpfr_get_struct(ptr_self, self);
-  volatile VALUE tmp_other = r_mpfr_new_fr_obj(other);
+  tmp_other = r_mpfr_new_fr_obj(other);
   r_mpfr_get_struct(ptr_other, tmp_other);
   return (mpfr_lessequal_p(ptr_self, ptr_other) != 0 ? Qtrue : Qfalse);
 }
@@ -1432,8 +1515,9 @@ static VALUE r_mpfr_lessequal_p(VALUE self, VALUE other)
 static VALUE r_mpfr_lessgreater_p(VALUE self, VALUE other)
 {
   MPFR *ptr_self, *ptr_other;
+  volatile VALUE tmp_other;
   r_mpfr_get_struct(ptr_self, self);
-  volatile VALUE tmp_other = r_mpfr_new_fr_obj(other);
+  tmp_other = r_mpfr_new_fr_obj(other);
   r_mpfr_get_struct(ptr_other, tmp_other);
   return (mpfr_lessgreater_p(ptr_self, ptr_other) != 0 ? Qtrue : Qfalse);
 }
@@ -1442,8 +1526,9 @@ static VALUE r_mpfr_lessgreater_p(VALUE self, VALUE other)
 static VALUE r_mpfr_equal_p(VALUE self, VALUE other)
 {
   MPFR *ptr_self, *ptr_other;
+  volatile VALUE tmp_other;
   r_mpfr_get_struct(ptr_self, self);
-  volatile VALUE tmp_other = r_mpfr_new_fr_obj(other);
+  tmp_other = r_mpfr_new_fr_obj(other);
   r_mpfr_get_struct(ptr_other, tmp_other);
   return (mpfr_equal_p(ptr_self, ptr_other) != 0 ? Qtrue : Qfalse);
 }
@@ -1452,8 +1537,9 @@ static VALUE r_mpfr_equal_p(VALUE self, VALUE other)
 static VALUE r_mpfr_unordered_p(VALUE self, VALUE other)
 {
   MPFR *ptr_self, *ptr_other;
+  volatile VALUE tmp_other;
   r_mpfr_get_struct(ptr_self, self);
-  volatile VALUE tmp_other = r_mpfr_new_fr_obj(other);
+  tmp_other = r_mpfr_new_fr_obj(other);
   r_mpfr_get_struct(ptr_other, tmp_other);
   return (mpfr_unordered_p(ptr_self, ptr_other) != 0 ? Qtrue : Qfalse);
 }
@@ -1467,9 +1553,9 @@ static VALUE r_mpfr_fr_rint(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 0, 2, argc, argv);
   MPFR *ptr_self, *ptr_return;
   VALUE val_ret;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 0, 2, argc, argv);
   r_mpfr_get_struct(ptr_self, self);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   mpfr_rint(ptr_return, ptr_self, rnd);
@@ -1529,9 +1615,9 @@ static VALUE r_mpfr_rint_ceil(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 0, 2, argc, argv);
   MPFR *ptr_self, *ptr_return;
   VALUE val_ret;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 0, 2, argc, argv);
   r_mpfr_get_struct(ptr_self, self);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   mpfr_rint_ceil(ptr_return, ptr_self, rnd);
@@ -1543,9 +1629,9 @@ static VALUE r_mpfr_rint_floor(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 0, 2, argc, argv);
   MPFR *ptr_self, *ptr_return;
   VALUE val_ret;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 0, 2, argc, argv);
   r_mpfr_get_struct(ptr_self, self);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   mpfr_rint_floor(ptr_return, ptr_self, rnd);
@@ -1557,9 +1643,9 @@ static VALUE r_mpfr_rint_round(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 0, 2, argc, argv);
   MPFR *ptr_self, *ptr_return;
   VALUE val_ret;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 0, 2, argc, argv);
   r_mpfr_get_struct(ptr_self, self);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   mpfr_rint_round(ptr_return, ptr_self, rnd);
@@ -1571,9 +1657,9 @@ static VALUE r_mpfr_rint_trunc(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 0, 2, argc, argv);
   MPFR *ptr_self, *ptr_return;
   VALUE val_ret;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 0, 2, argc, argv);
   r_mpfr_get_struct(ptr_self, self);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   mpfr_rint_trunc(ptr_return, ptr_self, rnd);
@@ -1585,9 +1671,9 @@ static VALUE r_mpfr_frac(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 0, 2, argc, argv);
   MPFR *ptr_self, *ptr_return;
   VALUE val_ret;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 0, 2, argc, argv);
   r_mpfr_get_struct(ptr_self, self);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   mpfr_frac(ptr_return, ptr_self, rnd);
@@ -1599,9 +1685,9 @@ static VALUE r_mpfr_modf(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 0, 2, argc, argv);
   MPFR *ptr_self, *ptr_return1, *ptr_return2;
   VALUE val_ret1, val_ret2;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 0, 2, argc, argv);
   r_mpfr_get_struct(ptr_self, self);
   r_mpfr_make_struct_init2(val_ret1, ptr_return1, prec);
   r_mpfr_make_struct_init2(val_ret2, ptr_return2, prec);
@@ -1614,12 +1700,13 @@ static VALUE r_mpfr_fmod(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_self, *ptr_other, *ptr_return;
   VALUE val_ret;
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   r_mpfr_get_struct(ptr_self, self);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_other, tmp_argv0);
   mpfr_fmod(ptr_return, ptr_self, ptr_other, rnd);
   return val_ret;
@@ -1630,12 +1717,13 @@ static VALUE r_mpfr_remainder(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_self, *ptr_other, *ptr_return;
   VALUE val_ret;
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   r_mpfr_get_struct(ptr_self, self);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_other, tmp_argv0);
   mpfr_remainder(ptr_return, ptr_self, ptr_other, rnd);
   return val_ret;
@@ -1645,10 +1733,11 @@ static VALUE r_mpfr_remainder(int argc, VALUE *argv, VALUE self)
 static VALUE r_mpfr_remainder2(VALUE self, VALUE other)
 {
   MPFR *ptr_self, *ptr_other, *ptr_return;
+  volatile VALUE tmp_other;
   VALUE val_ret;
   r_mpfr_get_struct(ptr_self, self);
   r_mpfr_make_struct_init(val_ret, ptr_return);
-  volatile VALUE tmp_other = r_mpfr_new_fr_obj(other);
+  tmp_other = r_mpfr_new_fr_obj(other);
   r_mpfr_get_struct(ptr_other, tmp_other);
   mpfr_remainder(ptr_return, ptr_self, ptr_other, mpfr_get_default_rounding_mode());
   return val_ret;
@@ -1659,13 +1748,14 @@ static VALUE r_mpfr_remquo(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_self, *ptr_other, *ptr_return;
   VALUE val_ret;
   long q;
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   r_mpfr_get_struct(ptr_self, self);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_other, tmp_argv0);
   mpfr_remquo(ptr_return, &q, ptr_self, ptr_other, rnd);
   return rb_ary_new3(2, val_ret, LONG2FIX(q));
@@ -1687,8 +1777,9 @@ static VALUE r_mpfr_integer_p(VALUE self)
 static VALUE r_mpfr_nexttoward(VALUE self, VALUE other)
 {
   MPFR *ptr_self, *ptr_other;
+  volatile VALUE tmp_other;
   r_mpfr_get_struct(ptr_self, self);
-  volatile VALUE tmp_other = r_mpfr_new_fr_obj(other);
+  tmp_other = r_mpfr_new_fr_obj(other);
   r_mpfr_get_struct(ptr_other, tmp_other);
   mpfr_nexttoward(ptr_self, ptr_other);
   return self;
@@ -1728,8 +1819,9 @@ static VALUE r_mpfr_get_exp(VALUE self)
 static VALUE r_mpfr_set_exp(VALUE self, VALUE arg_exp)
 {
   MPFR *ptr_self;
+  mp_exp_t exp;
   r_mpfr_get_struct(ptr_self, self);
-  mp_exp_t exp = NUM2INT(arg_exp);
+  exp = NUM2INT(arg_exp);
   mpfr_set_exp(ptr_self, exp);
   return self;
 }
@@ -1747,12 +1839,13 @@ static VALUE r_mpfr_setsign(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 2, 4, argc, argv);
   MPFR *ptr_self, *ptr_return;
   VALUE val_ret;
+  int s;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 2, 4, argc, argv);
   r_mpfr_get_struct(ptr_self, self);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
-  int s = NUM2INT(argv[0]);
+  s = NUM2INT(argv[0]);
   mpfr_setsign(ptr_return, ptr_self, s, rnd);
   return val_ret;
 }
@@ -1762,12 +1855,13 @@ static VALUE r_mpfr_copysign(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 2, 4, argc, argv);
   MPFR *ptr_self, *ptr_return, *ptr_arg;
   VALUE val_ret;
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 2, 4, argc, argv);
   r_mpfr_get_struct(ptr_self, self);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg, tmp_argv0);
   mpfr_copysign(ptr_return, ptr_self, ptr_arg, rnd);
   return val_ret;
@@ -1782,9 +1876,9 @@ static VALUE r_mpfr_prec_round(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 0, 2, argc, argv);
   MPFR *ptr_self, *ptr_return;
   VALUE val_ret;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 0, 2, argc, argv);
   r_mpfr_get_struct(ptr_self, self);
   r_mpfr_make_struct_init2(val_ret, ptr_return, mpfr_get_prec(ptr_self));
   mpfr_set(ptr_return, ptr_self, mpfr_get_default_prec());
@@ -1797,8 +1891,8 @@ static VALUE r_mpfr_prec_round2(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 0, 2, argc, argv);
   MPFR *ptr_self;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 0, 2, argc, argv);
   r_mpfr_get_struct(ptr_self, self);
   mpfr_prec_round(ptr_self, prec, rnd);
   return self;
@@ -1849,10 +1943,11 @@ static VALUE r_mpfr_math_log(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_arg1, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   r_mpfr_set_special_func_state(mpfr_log(ptr_return, ptr_arg1, rnd));
@@ -1864,10 +1959,11 @@ static VALUE r_mpfr_math_log2(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_arg1, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   r_mpfr_set_special_func_state(mpfr_log2(ptr_return, ptr_arg1, rnd));
@@ -1879,10 +1975,11 @@ static VALUE r_mpfr_math_log10(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_arg1, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   r_mpfr_set_special_func_state(mpfr_log10(ptr_return, ptr_arg1, rnd));
@@ -1894,10 +1991,11 @@ static VALUE r_mpfr_math_exp(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_arg1, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   r_mpfr_set_special_func_state(mpfr_exp(ptr_return, ptr_arg1, rnd));
@@ -1909,10 +2007,11 @@ static VALUE r_mpfr_math_exp2(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_arg1, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   r_mpfr_set_special_func_state(mpfr_exp2(ptr_return, ptr_arg1, rnd));
@@ -1924,10 +2023,11 @@ static VALUE r_mpfr_math_exp10(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_arg1, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   r_mpfr_set_special_func_state(mpfr_exp10(ptr_return, ptr_arg1, rnd));
@@ -1939,10 +2039,11 @@ static VALUE r_mpfr_math_cos(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_arg1, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   r_mpfr_set_special_func_state(mpfr_cos(ptr_return, ptr_arg1, rnd));
@@ -1954,10 +2055,11 @@ static VALUE r_mpfr_math_sin(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_arg1, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   r_mpfr_set_special_func_state(mpfr_sin(ptr_return, ptr_arg1, rnd));
@@ -1969,10 +2071,11 @@ static VALUE r_mpfr_math_tan(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_arg1, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   r_mpfr_set_special_func_state(mpfr_tan(ptr_return, ptr_arg1, rnd));
@@ -1984,10 +2087,11 @@ static VALUE r_mpfr_math_sec(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_arg1, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   r_mpfr_set_special_func_state(mpfr_sec(ptr_return, ptr_arg1, rnd));
@@ -1999,10 +2103,11 @@ static VALUE r_mpfr_math_csc(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_arg1, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   r_mpfr_set_special_func_state(mpfr_csc(ptr_return, ptr_arg1, rnd));
@@ -2014,10 +2119,11 @@ static VALUE r_mpfr_math_cot(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_arg1, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   r_mpfr_set_special_func_state(mpfr_cot(ptr_return, ptr_arg1, rnd));
@@ -2029,10 +2135,11 @@ static VALUE r_mpfr_math_sin_cos(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_arg1, *ptr_return1, *ptr_return2;
   VALUE val_ret1, val_ret2;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret1, ptr_return1, prec);
   r_mpfr_make_struct_init2(val_ret2, ptr_return2, prec);
@@ -2045,10 +2152,11 @@ static VALUE r_mpfr_math_acos(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_arg1, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   r_mpfr_set_special_func_state(mpfr_acos(ptr_return, ptr_arg1, rnd));
@@ -2060,10 +2168,11 @@ static VALUE r_mpfr_math_asin(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_arg1, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   r_mpfr_set_special_func_state(mpfr_asin(ptr_return, ptr_arg1, rnd));
@@ -2075,10 +2184,11 @@ static VALUE r_mpfr_math_atan(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_arg1, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   r_mpfr_set_special_func_state(mpfr_atan(ptr_return, ptr_arg1, rnd));
@@ -2090,12 +2200,13 @@ static VALUE r_mpfr_math_atan2(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 2, 4, argc, argv);
   MPFR *ptr_arg0, *ptr_arg1, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0, tmp_argv1;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 2, 4, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg0, tmp_argv0);
-  volatile VALUE tmp_argv1 = r_mpfr_new_fr_obj(argv[1]);
+  tmp_argv1 = r_mpfr_new_fr_obj(argv[1]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv1);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   r_mpfr_set_special_func_state(mpfr_atan2(ptr_return, ptr_arg0, ptr_arg1, rnd));
@@ -2107,10 +2218,11 @@ static VALUE r_mpfr_math_cosh(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_arg1, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   r_mpfr_set_special_func_state(mpfr_cosh(ptr_return, ptr_arg1, rnd));
@@ -2122,10 +2234,11 @@ static VALUE r_mpfr_math_sinh(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_arg1, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   r_mpfr_set_special_func_state(mpfr_sinh(ptr_return, ptr_arg1, rnd));
@@ -2137,10 +2250,11 @@ static VALUE r_mpfr_math_tanh(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_arg1, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   r_mpfr_set_special_func_state(mpfr_tanh(ptr_return, ptr_arg1, rnd));
@@ -2152,10 +2266,11 @@ static VALUE r_mpfr_math_sinh_cosh(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_arg1, *ptr_return1, *ptr_return2;
   VALUE val_ret1, val_ret2;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret1, ptr_return1, prec);
   r_mpfr_make_struct_init2(val_ret2, ptr_return2, prec);
@@ -2168,10 +2283,11 @@ static VALUE r_mpfr_math_sech(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_arg1, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   r_mpfr_set_special_func_state(mpfr_sech(ptr_return, ptr_arg1, rnd));
@@ -2183,10 +2299,11 @@ static VALUE r_mpfr_math_csch(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_arg1, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   r_mpfr_set_special_func_state(mpfr_csch(ptr_return, ptr_arg1, rnd));
@@ -2198,10 +2315,11 @@ static VALUE r_mpfr_math_coth(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_arg1, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   r_mpfr_set_special_func_state(mpfr_coth(ptr_return, ptr_arg1, rnd));
@@ -2213,10 +2331,11 @@ static VALUE r_mpfr_math_acosh(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_arg1, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   r_mpfr_set_special_func_state(mpfr_acosh(ptr_return, ptr_arg1, rnd));
@@ -2228,10 +2347,11 @@ static VALUE r_mpfr_math_asinh(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_arg1, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   r_mpfr_set_special_func_state(mpfr_asinh(ptr_return, ptr_arg1, rnd));
@@ -2243,10 +2363,11 @@ static VALUE r_mpfr_math_atanh(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_arg1, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   r_mpfr_set_special_func_state(mpfr_atanh(ptr_return, ptr_arg1, rnd));
@@ -2258,11 +2379,12 @@ static VALUE r_mpfr_math_fac_ui(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_return;
   VALUE val_ret;
+  int num;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
-  int num = NUM2INT(argv[0]);
+  num = NUM2INT(argv[0]);
   if(num >= 0){
     r_mpfr_set_special_func_state(mpfr_fac_ui(ptr_return, num, rnd));  
   }else{
@@ -2276,10 +2398,11 @@ static VALUE r_mpfr_math_log1p(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_arg1, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
+  tmp_argv0= r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   r_mpfr_set_special_func_state(mpfr_log1p(ptr_return, ptr_arg1, rnd));
@@ -2291,10 +2414,11 @@ static VALUE r_mpfr_math_expm1(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_arg1, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
+  tmp_argv0= r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   r_mpfr_set_special_func_state(mpfr_expm1(ptr_return, ptr_arg1, rnd));
@@ -2306,10 +2430,11 @@ static VALUE r_mpfr_math_eint(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_arg1, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   r_mpfr_set_special_func_state(mpfr_eint(ptr_return, ptr_arg1, rnd));
@@ -2321,10 +2446,11 @@ static VALUE r_mpfr_math_li2(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_arg1, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   r_mpfr_set_special_func_state(mpfr_li2(ptr_return, ptr_arg1, rnd));
@@ -2336,10 +2462,11 @@ static VALUE r_mpfr_math_gamma(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_arg1, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   r_mpfr_set_special_func_state(mpfr_gamma(ptr_return, ptr_arg1, rnd));
@@ -2351,10 +2478,11 @@ static VALUE r_mpfr_math_lngamma(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_arg1, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   r_mpfr_set_special_func_state(mpfr_lngamma(ptr_return, ptr_arg1, rnd));
@@ -2366,11 +2494,12 @@ static VALUE r_mpfr_math_lgamma(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_arg1, *ptr_return;
   VALUE val_ret;
   int singp;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   r_mpfr_set_special_func_state(mpfr_lgamma(ptr_return, &singp, ptr_arg1, rnd));
@@ -2382,10 +2511,11 @@ static VALUE r_mpfr_math_digamma(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_arg1, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   r_mpfr_set_special_func_state(mpfr_digamma(ptr_return, ptr_arg1, rnd));
@@ -2397,9 +2527,9 @@ static VALUE r_mpfr_math_zeta(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_arg1, *ptr_return;
   VALUE val_ret;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   if(TYPE(argv[0]) == T_FIXNUM){
     int num = FIX2LONG(argv[0]);
@@ -2420,10 +2550,11 @@ static VALUE r_mpfr_math_erf(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_arg1, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   r_mpfr_set_special_func_state(mpfr_erf(ptr_return, ptr_arg1, rnd));
@@ -2435,10 +2566,11 @@ static VALUE r_mpfr_math_erfc(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_arg1, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   r_mpfr_set_special_func_state(mpfr_erfc(ptr_return, ptr_arg1, rnd));
@@ -2450,10 +2582,11 @@ static VALUE r_mpfr_math_j0(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_arg1, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   r_mpfr_set_special_func_state(mpfr_j0(ptr_return, ptr_arg1, rnd));
@@ -2465,10 +2598,11 @@ static VALUE r_mpfr_math_j1(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_arg1, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   r_mpfr_set_special_func_state(mpfr_j1(ptr_return, ptr_arg1, rnd));
@@ -2480,13 +2614,15 @@ static VALUE r_mpfr_math_jn(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 2, 4, argc, argv);
   MPFR *ptr_arg1, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  int n;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 2, 4, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
-  int n = NUM2INT(argv[1]);
+  n = NUM2INT(argv[1]);
   r_mpfr_set_special_func_state(mpfr_jn(ptr_return, n, ptr_arg1, rnd));
   return val_ret;
 }
@@ -2496,10 +2632,11 @@ static VALUE r_mpfr_math_y0(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_arg1, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   r_mpfr_set_special_func_state(mpfr_y0(ptr_return, ptr_arg1, rnd));
@@ -2511,10 +2648,11 @@ static VALUE r_mpfr_math_y1(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_arg1, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   r_mpfr_set_special_func_state(mpfr_y1(ptr_return, ptr_arg1, rnd));
@@ -2526,13 +2664,15 @@ static VALUE r_mpfr_math_yn(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 2, 4, argc, argv);
   MPFR *ptr_arg1, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  int n;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 2, 4, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
-  int n = NUM2INT(argv[1]);
+  n = NUM2INT(argv[1]);
   r_mpfr_set_special_func_state(mpfr_yn(ptr_return, n, ptr_arg1, rnd));
   return val_ret;
 }
@@ -2542,14 +2682,15 @@ static VALUE r_mpfr_math_fma(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 3, 5, argc, argv);
   MPFR *ptr_arg1, *ptr_arg2, *ptr_arg3, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0, tmp_argv1, tmp_argv2;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 3, 5, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
-  volatile VALUE tmp_argv1 = r_mpfr_new_fr_obj(argv[1]);
+  tmp_argv1 = r_mpfr_new_fr_obj(argv[1]);
   r_mpfr_get_struct(ptr_arg2, tmp_argv1);
-  volatile VALUE tmp_argv2 = r_mpfr_new_fr_obj(argv[2]);
+  tmp_argv2 = r_mpfr_new_fr_obj(argv[2]);
   r_mpfr_get_struct(ptr_arg3, tmp_argv2);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   r_mpfr_set_special_func_state(mpfr_fma(ptr_return, ptr_arg1, ptr_arg2, ptr_arg3, rnd));
@@ -2561,14 +2702,15 @@ static VALUE r_mpfr_math_fms(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 3, 5, argc, argv);
   MPFR *ptr_arg1, *ptr_arg2, *ptr_arg3, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0, tmp_argv1, tmp_argv2;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 3, 5, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
-  volatile VALUE tmp_argv1 = r_mpfr_new_fr_obj(argv[1]);
+  tmp_argv1 = r_mpfr_new_fr_obj(argv[1]);
   r_mpfr_get_struct(ptr_arg2, tmp_argv1);
-  volatile VALUE tmp_argv2 = r_mpfr_new_fr_obj(argv[2]);
+  tmp_argv2 = r_mpfr_new_fr_obj(argv[2]);
   r_mpfr_get_struct(ptr_arg3, tmp_argv2);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   r_mpfr_set_special_func_state(mpfr_fms(ptr_return, ptr_arg1, ptr_arg2, ptr_arg3, rnd));
@@ -2580,12 +2722,13 @@ static VALUE r_mpfr_math_agm(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 2, 4, argc, argv);
   MPFR *ptr_arg1, *ptr_arg2, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0, tmp_argv1;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 2, 4, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
-  volatile VALUE tmp_argv1 = r_mpfr_new_fr_obj(argv[1]);
+  tmp_argv1 = r_mpfr_new_fr_obj(argv[1]);
   r_mpfr_get_struct(ptr_arg2, tmp_argv1);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   r_mpfr_set_special_func_state(mpfr_agm(ptr_return, ptr_arg1, ptr_arg2, rnd));
@@ -2597,12 +2740,13 @@ static VALUE r_mpfr_math_hypot(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 2, 4, argc, argv);
   MPFR *ptr_arg1, *ptr_arg2, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0, tmp_argv1;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 2, 4, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
-  volatile VALUE tmp_argv1 = r_mpfr_new_fr_obj(argv[1]);
+  tmp_argv1 = r_mpfr_new_fr_obj(argv[1]);
   r_mpfr_get_struct(ptr_arg2, tmp_argv1);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   r_mpfr_set_special_func_state(mpfr_hypot(ptr_return, ptr_arg1, ptr_arg2, rnd));
@@ -2614,10 +2758,11 @@ static VALUE r_mpfr_math_ai(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
   MPFR *ptr_arg1, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 1, 3, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   r_mpfr_set_special_func_state(mpfr_ai(ptr_return, ptr_arg1, rnd));
@@ -2629,9 +2774,9 @@ static VALUE r_mpfr_math_const_log2(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 0, 2, argc, argv);
   MPFR *ptr_return;
   VALUE val_ret;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 0, 2, argc, argv);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   r_mpfr_set_special_func_state(mpfr_const_log2(ptr_return, rnd));
   return val_ret;
@@ -2642,9 +2787,9 @@ static VALUE r_mpfr_math_const_pi(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 0, 2, argc, argv);
   MPFR *ptr_return;
   VALUE val_ret;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 0, 2, argc, argv);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   r_mpfr_set_special_func_state(mpfr_const_pi(ptr_return, rnd));
   return val_ret;
@@ -2655,9 +2800,9 @@ static VALUE r_mpfr_math_const_euler(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 0, 2, argc, argv);
   MPFR *ptr_return;
   VALUE val_ret;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 0, 2, argc, argv);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   r_mpfr_set_special_func_state(mpfr_const_euler(ptr_return, rnd));
   return val_ret;
@@ -2668,9 +2813,9 @@ static VALUE r_mpfr_math_const_catalan(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 0, 2, argc, argv);
   MPFR *ptr_return;
   VALUE val_ret;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 0, 2, argc, argv);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   r_mpfr_set_special_func_state(mpfr_const_catalan(ptr_return, rnd));
   return val_ret;
@@ -2685,17 +2830,15 @@ static VALUE r_mpfr_math_free_cache(VALUE self)
 
 /* Calculate sum of MPFR objects. */
 static VALUE r_mpfr_math_sum(int argc, VALUE *argv, VALUE self){
-  int num;
+  int num, i;
+  mp_rnd_t rnd;
+  mp_prec_t prec;
+  VALUE val_ret;
   for (num = 0; num < argc; num += 1) {
     if(!MPFR_P(argv[num])){ break; }
   }
-  
-  mp_rnd_t rnd;
-  mp_prec_t prec;
   r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, num, num + 2, argc, argv);
   MPFR *ptr_return, *ptr_args[num];
-  VALUE val_ret;
-  int i;
   for(i = 0; i < num; i++){
     volatile VALUE tmp_argvi = r_mpfr_new_fr_obj(argv[i]);
     r_mpfr_get_struct(ptr_args[i], tmp_argvi);
@@ -2714,12 +2857,13 @@ static VALUE r_mpfr_math_min(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 2, 4, argc, argv);
   MPFR *ptr_arg1, *ptr_arg2, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0, tmp_argv1;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 2, 4, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
-  volatile VALUE tmp_argv1 = r_mpfr_new_fr_obj(argv[1]);
+  tmp_argv1 = r_mpfr_new_fr_obj(argv[1]);
   r_mpfr_get_struct(ptr_arg2, tmp_argv1);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   mpfr_min(ptr_return, ptr_arg1, ptr_arg2, rnd);
@@ -2731,12 +2875,13 @@ static VALUE r_mpfr_math_max(int argc, VALUE *argv, VALUE self)
 {
   mp_rnd_t rnd;
   mp_prec_t prec;
-  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 2, 4, argc, argv);
   MPFR *ptr_arg1, *ptr_arg2, *ptr_return;
   VALUE val_ret;
-  volatile VALUE tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
+  volatile VALUE tmp_argv0, tmp_argv1;
+  r_mpfr_get_rnd_prec_from_optional_arguments(&rnd, &prec, 2, 4, argc, argv);
+  tmp_argv0 = r_mpfr_new_fr_obj(argv[0]);
   r_mpfr_get_struct(ptr_arg1, tmp_argv0);
-  volatile VALUE tmp_argv1 = r_mpfr_new_fr_obj(argv[1]);
+  tmp_argv1 = r_mpfr_new_fr_obj(argv[1]);
   r_mpfr_get_struct(ptr_arg2, tmp_argv1);
   r_mpfr_make_struct_init2(val_ret, ptr_return, prec);
   mpfr_max(ptr_return, ptr_arg1, ptr_arg2, rnd);
@@ -2804,9 +2949,11 @@ char *r_mpfr_dump_to_string(MPFR *ptr_s)
 static VALUE r_mpfr_marshal_dump(VALUE self)
 {
   MPFR *ptr_s;
+  char *ret_str;
+  VALUE ret_val;
   r_mpfr_get_struct(ptr_s, self);
-  char *ret_str = r_mpfr_dump_to_string(ptr_s);
-  VALUE ret_val = rb_str_new2(ret_str);
+  ret_str = r_mpfr_dump_to_string(ptr_s);
+  ret_val = rb_str_new2(ret_str);
   mpfr_free_str(ret_str);
   return ret_val;
 }
@@ -2820,9 +2967,9 @@ void r_mpfr_load_string(MPFR *ptr_s, const char *dump)
   if (type == MPFR_DUMP_NUMBER) {
     mpz_t m;
     long int e;
+    int i;
     mpz_init(m);
     sscanf(dump, "%ld\t%ld\t", &prec, &e);
-    int i;
     i = 0;
     while (i < 2) {
       if (dump[0] == '\t') {
@@ -2980,6 +3127,8 @@ void Init_mpfr()
   r_mpfr_class = rb_define_class("MPFR", rb_cNumeric);
   rb_include_module(r_mpfr_class, rb_mComparable);
 
+  __mpfr_domain_error__ = rb_define_class("MPFRDomainError", rb_eRangeError);
+
   /* ------------------------------ Class MPFR End ------------------------------ */
 
   /* ------------------------------ Constants Start ------------------------------ */
@@ -3111,7 +3260,6 @@ void Init_mpfr()
 
   rb_define_method(r_mpfr_class, "get_d", r_mpfr_get_d, -1);
   rb_define_method(r_mpfr_class, "get_d_2exp", r_mpfr_get_d_2exp, -1);
-  rb_define_method(r_mpfr_class, "get_si", r_mpfr_get_si, -1);
   rb_define_method(r_mpfr_class, "get_str", r_mpfr_get_str, 0);
   
   rb_define_method(r_mpfr_class, "round", r_mpfr_round_to_i, 0);
@@ -3161,8 +3309,8 @@ void Init_mpfr()
   rb_define_alias(r_mpfr_class, "nan?", "nan_p");
   rb_define_alias(r_mpfr_class, "finite?", "number_p");
   rb_define_alias(r_mpfr_class, "zero?", "zero_p");
-  rb_define_method(r_mpfr_class, "nonzero?", r_mpfr_nonzero_p, 1);
-  rb_define_method(r_mpfr_class, "regular?", r_mpfr_regular_p, 1);
+  rb_define_method(r_mpfr_class, "nonzero?", r_mpfr_nonzero_p, 0);
+  rb_define_method(r_mpfr_class, "regular?", r_mpfr_regular_p, 0);
 
   /* ------------------------------ Comparison Functions Start ------------------------------ */