/*
* CDDL HEADER START
*
* The contents of this file are subject to the terms of the
* Common Development and Distribution License, Version 1.0 only
* (the "License"). You may not use this file except in compliance
* with the License.
*
* You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
* or http://www.opensolaris.org/os/licensing.
* See the License for the specific language governing permissions
* and limitations under the License.
*
* When distributing Covered Code, include this CDDL HEADER in each
* file and include the License file at usr/src/OPENSOLARIS.LICENSE.
* If applicable, add the following below this CDDL HEADER, with the
* fields enclosed by brackets "[]" replaced with your own identifying
* information: Portions Copyright [yyyy] [name of copyright owner]
*
* CDDL HEADER END
*/
/*
* Copyright (c) 1991-1994, by Sun Microsystems, Inc.
* All rights reserved.
*/
#pragma ident "%Z%%M% %I% %E% SMI"
#include <sys/promif.h>
#include <sys/promimpl.h>
/*
* This allocator has SMCC-OBP-like semantics associated with it.
* Specifically, the alignment value specifies both a physical
* and virtual alignment. If virthint is zero, a suitable virt
* is chosen. In either case, align is not ignored.
*
* This routine returns NULL on failure.
* This routine is suitable for (the given semantics) machines with
* a 2-cell physical address.
*
* Memory allocated with prom_alloc can be freed with prom_free.
*
* The generic allocator is prom_malloc.
*
*/
caddr_t
prom_alloc(caddr_t virthint, size_t size, u_int align)
{
caddr_t virt = virthint;
unsigned long long physaddr;
if (align == 0)
align = (u_int)1;
/*
* First, allocate or claim the virtual address space.
* In either case, after this code, "virt" is the chosen address.
*/
if (virthint == 0) {
virt = prom_allocate_virt(align, size);
if (virt == (caddr_t)-1)
return ((caddr_t)0);
} else {
if (prom_claim_virt(size, virthint) == (caddr_t)-1)
return ((caddr_t)0);
}
/*
* Next, allocate the physical address space, at the specified
* physical alignment (or 1 byte alignment, if none specified)
*/
if (prom_allocate_phys(size, align, &physaddr) == -1) {
/*
* Request failed, free virtual address space and return.
*/
prom_free_virt(size, virt);
return ((caddr_t)0);
}
/*
* Next, create a mapping from the physical to virtual address,
* using a default "mode".
*/
if (prom_map_phys(-1, size, virt, physaddr) == -1) {
/*
* The call failed; release the physical and virtual
* addresses allocated or claimed, and return.
*/
prom_free_virt(size, virt);
prom_free_phys(size, physaddr);
return ((caddr_t)0);
}
return (virt);
}
/*
* This is the generic client interface to "claim" memory.
* These two routines belong in the common directory.
*/
caddr_t
prom_malloc(caddr_t virt, size_t size, u_int align)
{
cell_t ci[7];
int rv;
ci[0] = p1275_ptr2cell("claim"); /* Service name */
ci[1] = (cell_t)3; /* #argument cells */
ci[2] = (cell_t)1; /* #result cells */
ci[3] = p1275_ptr2cell(virt); /* Arg1: virt */
ci[4] = p1275_size2cell(size); /* Arg2: size */
ci[5] = p1275_uint2cell(align); /* Arg3: align */
promif_preprom();
rv = p1275_cif_handler(&ci);
promif_postprom();
if (rv == 0)
return ((caddr_t)p1275_cell2ptr(ci[6])); /* Res1: base */
return ((caddr_t)-1);
}
void
prom_free(caddr_t virt, size_t size)
{
cell_t ci[5];
ci[0] = p1275_ptr2cell("release"); /* Service name */
ci[1] = (cell_t)2; /* #argument cells */
ci[2] = (cell_t)0; /* #result cells */
ci[3] = p1275_ptr2cell(virt); /* Arg1: virt */
ci[4] = p1275_size2cell(size); /* Arg2: size */
promif_preprom();
(void) p1275_cif_handler(&ci);
promif_postprom();
}