1/* BEGIN LICENSE BLOCK 2 * Version: CMPL 1.1 3 * 4 * The contents of this file are subject to the Cisco-style Mozilla Public 5 * License Version 1.1 (the "License"); you may not use this file except 6 * in compliance with the License. You may obtain a copy of the License 7 * at www.eclipse-clp.org/license. 8 * 9 * Software distributed under the License is distributed on an "AS IS" 10 * basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See 11 * the License for the specific language governing rights and limitations 12 * under the License. 13 * 14 * The Original Code is The ECLiPSe Constraint Logic Programming System. 15 * The Initial Developer of the Original Code is Cisco Systems, Inc. 16 * Portions created by the Initial Developer are 17 * Copyright (C) 1994-2006 Cisco Systems, Inc. All Rights Reserved. 18 * 19 * Contributor(s): Kees Schuerman, ECRC 20 * 21 * END LICENSE BLOCK */ 22/********************************************************************** 23** System: Parallel Distributed System 24** File: pds.mem.c 25** Author: Kees Schuerman 26** SccsId: "@(#)pds.mem.c 1.5 24 Nov 1995" 27** Description: Memory and Interrupt System 28***********************************************************************/ 29 30#include "machine.h" /* architecture specific constant definitions */ 31 32#include "pds.types.h" 33#include "pds.mem.h" 34 35#define PDS_MEM_SIZE_MIN 0x100000 36#define PDS_MEM_SIZE_INCR (PDS_MEM_SIZE_MIN / 8) 37 38 39void 40pds_int_init(handler) 41 void (* handler) (); 42{ 43 irq_lock_init(handler); 44} 45 46 47char * 48pds_mem_init(file,address,size,descriptor,option) 49 char * file; 50 char * address; 51 pds_size_t size; 52 pds_heap_descriptor_t * descriptor; 53 unsigned option; 54{ 55 if (file && (file[0] == '\0')) 56 file = (char *) 0; 57 if (option && (size < PDS_MEM_SIZE_MIN)) 58 size = PDS_MEM_SIZE_MIN; 59 return(shared_mem_init(option,file,address,size, 60 PDS_MEM_SIZE_INCR,0,descriptor)); 61} 62 63 64