Patch title: Release 85 bulk changes
Abstract:
File: /pliant/language/declare/global.c
Key:
    Removed line
    Added line
   
// Copyright  Hubert Tonneau  hubert.tonneau@pliant.cx
//
// This program is free software; you can redistribute it an
// modify it under the terms of the GNU General Public Licen
// as published by the Free Software Foundation.
// 
// This program is distributed in the hope that it will be u
// but WITHOUT ANY WARRANTY; without even the implied warran
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See
// GNU General Public License for more details.
// 
// You should have received a copy of the GNU General Public
// version 2 along with this program; if not, write to the F
// Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA


  Int memory_current_consumed;
  Int memory_current_used;
  Int memory_maximum_consumed;
/*
doc
  text "Now the internal variables of the Doug lea malloc/fr
  text "The Doug lea malloc/free algorithm based on a single
  text "Pliant is using a different approach that does not h
*/
  struct MemoryPool memory_pool;
  struct Type *type_MemoryPool;
/*
doc
  text "The C part of Pliant does not know multithreading, s
*/
  // Int memory_semaphore;
  Address (*memory_allocate_hook)(Int asked,Address with);
  Address (*memory_zallocate_hook)(Int asked,Address with);
  Void (*memory_free_hook)(Address mem);
  Address (*memory_resize_hook)(Address oldmem,Int asked,Add
  Address (*memory_zresize_hook)(Address oldmem,Int asked,Ad
  Int (*memory_size_hook)(Address mem);
  Void (*memory_checkup_hook)();
  Void (*memory_shrink_hook)(Bool clearalso);
  Void (*memory_enumerate_hook)(Void (*hook)(Address area));
// Copyright  Hubert Tonneau  hubert.tonneau@pliant.cx
//
// This program is free software; you can redistribute it an
// modify it under the terms of the GNU General Public Licen
// as published by the Free Software Foundation.
// 
// This program is distributed in the hope that it will be u
// but WITHOUT ANY WARRANTY; without even the implied warran
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See
// GNU General Public License for more details.
// 
// You should have received a copy of the GNU General Public
// version 2 along with this program; if not, write to the F
// Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA


  Int memory_current_consumed;
  Int memory_current_used;
  Int memory_maximum_consumed;
/*
doc
  text "Now the internal variables of the Doug lea malloc/fr
  text "The Doug lea malloc/free algorithm based on a single
  text "Pliant is using a different approach that does not h
*/
  struct MemoryPool memory_pool;
  struct Type *type_MemoryPool;
/*
doc
  text "The C part of Pliant does not know multithreading, s
*/
  // Int memory_semaphore;
  Address (*memory_allocate_hook)(Int asked,Address with);
  Address (*memory_zallocate_hook)(Int asked,Address with);
  Void (*memory_free_hook)(Address mem);
  Address (*memory_resize_hook)(Address oldmem,Int asked,Add
  Address (*memory_zresize_hook)(Address oldmem,Int asked,Ad
  Int (*memory_size_hook)(Address mem);
  Void (*memory_checkup_hook)();
  Void (*memory_shrink_hook)(Bool clearalso);
  Void (*memory_enumerate_hook)(Void (*hook)(Address area));
  Void (*memory_pre_extend_hook)(Int size);
  Void (*memory_post_extend_hook)();


  /* parser.c */
  struct Function *function_pending_open_bloc,*function_pend
  struct Function *function_operator_t1,*function_filter_t1;
  struct Function *function_filter_openop,*function_filter_c


  /* parser.c */
  struct Function *function_pending_open_bloc,*function_pend
  struct Function *function_operator_t1,*function_filter_t1;
  struct Function *function_filter_openop,*function_filter_c
  Void (*pre_execute_hook)(struct Expression *e);
  Void (*post_active_hook)(Arrow object, Int access, struct Expression *e);


#if defined(_LINUX_API_) || defined(_POSIX_API_)
  char **process_args;
  char **process_env;
  #if defined(_LINUX_API_) && !defined(_DLL_)
    int process_argc;
  #endif
#endif
static char **script_args = null;


#if defined(_LINUX_API_) || defined(_POSIX_API_)
  char **process_args;
  char **process_env;
  #if defined(_LINUX_API_) && !defined(_DLL_)
    int process_argc;
  #endif
#endif
static char **script_args = null;