source: to-imperative/trunk/runtime/rf_common.cc @ 147

//
// Copyright (C) 2000 Refal+ Development Group
//
// Refal+ is free software; you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation; either version 2 of the License, or
// (at your option) any later version.
//
// Refal+ is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with Refal+; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
//
// $Source$
// $Revision: 147 $
// $Date: 2002-09-01 00:16:12 +0000 (Sun, 01 Sep 2002) $
// Author: Andrey Slepuhin <pooh@msu.ru>

#include "rf_common.hh"
#include "pxx_heap_allocator.hh"
#include "pxx_memory_chunk.hh"

namespace rfrt
{

uintptr_t heap_size = default_heap_size ;
uintptr_t stack_size = default_stack_size ;
pxx::HeapAllocator allocator (heap_start, default_heap_size) ;

#if DEBUG
uintptr_t empty_copy = 0;
uintptr_t lt_copy = 0;
uintptr_t rt_copy = 0;
uintptr_t both_copy = 0;
#endif

class Init
{

public:

  Init ()
  {}

  ~Init ()
  {
    #if DEBUG
    printf("Concatenation statistics:\n");
    printf("- no copy:    %u\n", empty_copy);
    printf("- left copy:  %u\n", lt_copy);
    printf("- right copy: %u\n", rt_copy);
    printf("- both copy:  %u\n", both_copy);
    #if PARANOIA
    allocator.memory_dump<pxx::Memory_Chunk>();
    #endif // PARANOIA
    #endif // DEBUG
  }

};

Init init ;

}