OKlibrary  0.2.1.6
MemoryManagement.mac
Go to the documentation of this file.
00001 /* Oliver Kullmann, 11.10.2010 (Swansea) */
00002 /* Copyright 2010, 2011 Oliver Kullmann
00003 This file is part of the OKlibrary. OKlibrary is free software; you can redistribute
00004 it and/or modify it under the terms of the GNU General Public License as published by
00005 the Free Software Foundation and included in this library; either version 3 of the
00006 License, or any later version. */
00007 
00022 if maxima_lisp_name_okl = "ecl" then
00023  oklib_include("OKlib/ComputerAlgebra/MaximaInternals/MemoryManagement.lisp")$
00024 
00025 /* Default values: */
00026 
00027 show_memory_ecl() := (
00028  print("frame_stack_ecl:", get_frame_stack_ecl()),
00029  print("binding_stack_ecl:", get_binding_stack_ecl()),
00030  print("c_stack_ecl:", get_c_stack_ecl()),
00031  print("heap_size_ecl:", get_heap_size_ecl()),
00032  print("lisp_stack_ecl:", get_lisp_stack_ecl())
00033 )$
00034 
00035 default_memory_ecl() := (
00036   set_frame_stack_ecl(frame_stack_ecl),
00037   set_binding_stack_ecl(binding_stack_ecl),
00038   set_c_stack_ecl(c_stack_ecl),
00039   set_heap_size_ecl(heap_size_ecl),
00040   set_lisp_stack_ecl(lisp_stack_ecl)
00041 )$
00042