Don't cleanup commodities if Ledger was built in release mode.

amount.cc

@@ -9,6 +9,8 @@
 
 namespace ledger {
 
+bool do_cleanup = true;
+
 #define BIGINT_BULK_ALLOC 0x0001
 
 class amount_t::bigint_t {
@@ -29,10 +31,7 @@ class amount_t::bigint_t {
     : prec(other.prec), flags(0), ref(1), index(0) {
     mpz_init_set(val, other.val);
   }
-  ~bigint_t() {
-    assert(ref == 0);
-    mpz_clear(val);
-  }
+  ~bigint_t();
 };
 
 unsigned int sizeof_bigint_t() {
@@ -41,10 +40,16 @@ unsigned int sizeof_bigint_t() {
 
 #define MPZ(x) ((x)->val)
 
-static mpz_t		  temp;
-static mpz_t		  divisor;
+static mpz_t temp;
+static mpz_t divisor;
+
 static amount_t::bigint_t true_value;
 
+inline amount_t::bigint_t::~bigint_t() {
+  assert(ref == 0 || (! do_cleanup && this == &true_value));
+  mpz_clear(val);
+}
+
 commodity_t::updater_t *  commodity_t::updater = NULL;
 commodities_map		  commodity_t::commodities;
 commodity_t *             commodity_t::null_commodity;
@@ -83,6 +88,9 @@ static struct _init_amounts {
   }
 
   ~_init_amounts() {
+    if (! do_cleanup)
+      return;
+
     mpz_clear(temp);
     mpz_clear(divisor);
 

amount.h

@@ -12,6 +12,8 @@
 
 namespace ledger {
 
+extern bool do_cleanup;
+
 class commodity_t;
 
 class amount_t

main.cc

@@ -350,6 +350,9 @@ int parse_and_report(int argc, char * argv[], char * envp[])
 int main(int argc, char * argv[], char * envp[])
 {
   try {
+#if DEBUG_LEVEL < BETA
+    ledger::do_cleanup = false;
+#endif
     return parse_and_report(argc, argv, envp);
   }
   catch (const std::exception& err) {