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