Patch title: Release 94 bulk changes
Abstract:
File: /pliant/language/memory/page.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


  FUNCTION Address memory_page_reserve(Address wished_addres
    Address address;
    check(size>0);
    check(size%memory_page_size==0);
// 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


  FUNCTION Address memory_page_reserve(Address wished_addres
    Address address;
    check(size>0);
    check(size%memory_page_size==0);
    if (G.memory_base_address!=null) {
      if(wished_address==null) {
        if(G.memory_limit_address!=null && (uInt)G.memory_li
          error_notify_fatalz(error_id_memory_starvation,"Fa
        address=G.memory_base_address;
        G.memory_base_address=address_translate(G.memory_bas
    other
      address=wished_address; }
    address=wished_address;
    if(G.memory_base_address!=null && wished_address==null) {
      if(G.memory_limit_address!=null && (uInt)G.memory_limit_address-(uInt)G.memory_base_address<(uInt)size)
        error_notify_fatalz(error_id_memory_starvation,"Failed to reserve memory pages !");
      address=G.memory_base_address;
      G.memory_base_address=address_translate(G.memory_base_address,size); }
    address=mmap(address,size,PROT_NONE,MAP_PRIVATE|MAP_ANON
    if(address==null)
      error_notify_fatalz(error_id_memory_starvation,"Failed
    return address; }



#endif
    address=mmap(address,size,PROT_NONE,MAP_PRIVATE|MAP_ANON
    if(address==null)
      error_notify_fatalz(error_id_memory_starvation,"Failed
    return address; }



#endif