URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [rtos/] [rtems/] [c/] [src/] [exec/] [score/] [src/] [wkspace.c] - Rev 227
Go to most recent revision | Compare with Previous | Blame | View Log
/* * Workspace Handler * * XXX * * NOTE: * * COPYRIGHT (c) 1989-1999. * On-Line Applications Research Corporation (OAR). * * The license and distribution terms for this file may be * found in the file LICENSE in this distribution or at * http://www.OARcorp.com/rtems/license.html. * * $Id: wkspace.c,v 1.2 2001-09-27 11:59:34 chris Exp $ */ #include <rtems/system.h> #include <rtems/score/wkspace.h> #include <rtems/score/interr.h> /*PAGE * * _Workspace_Handler_initialization */ void _Workspace_Handler_initialization( void *starting_address, unsigned32 size ) { unsigned32 *zero_out_array; unsigned32 index; unsigned32 memory_available; if ( !starting_address || !_Addresses_Is_aligned( starting_address ) ) _Internal_error_Occurred( INTERNAL_ERROR_CORE, TRUE, INTERNAL_ERROR_INVALID_WORKSPACE_ADDRESS ); if ( _CPU_Table.do_zero_of_workspace ) { for( zero_out_array = (unsigned32 *) starting_address, index = 0 ; index < size / sizeof( unsigned32 ) ; index++ ) zero_out_array[ index ] = 0; } memory_available = _Heap_Initialize( &_Workspace_Area, starting_address, size, CPU_HEAP_ALIGNMENT ); if ( memory_available == 0 ) _Internal_error_Occurred( INTERNAL_ERROR_CORE, TRUE, INTERNAL_ERROR_TOO_LITTLE_WORKSPACE ); } /*PAGE * * _Workspace_Allocate_or_fatal_error * */ void *_Workspace_Allocate_or_fatal_error( unsigned32 size ) { void *memory; memory = _Workspace_Allocate( size ); if ( memory == NULL ) _Internal_error_Occurred( INTERNAL_ERROR_CORE, TRUE, INTERNAL_ERROR_WORKSPACE_ALLOCATION ); return memory; }
Go to most recent revision | Compare with Previous | Blame | View Log