OpenCores
URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [rtos/] [rtems/] [c/] [src/] [exec/] [rtems/] [src/] [regionextend.c] - Blame information for rev 173

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 30 unneback
/*
2
 *  Region Manager
3
 *
4
 *
5
 *  COPYRIGHT (c) 1989-1999.
6
 *  On-Line Applications Research Corporation (OAR).
7
 *
8
 *  The license and distribution terms for this file may be
9
 *  found in the file LICENSE in this distribution or at
10
 *  http://www.OARcorp.com/rtems/license.html.
11
 *
12
 *  $Id: regionextend.c,v 1.2 2001-09-27 11:59:19 chris Exp $
13
 */
14
 
15
#include <rtems/system.h>
16
#include <rtems/rtems/status.h>
17
#include <rtems/rtems/support.h>
18
#include <rtems/score/object.h>
19
#include <rtems/rtems/options.h>
20
#include <rtems/rtems/region.h>
21
#include <rtems/score/states.h>
22
#include <rtems/score/thread.h>
23
 
24
/*PAGE
25
 *
26
 *  rtems_region_extend
27
 *
28
 *  This directive attempts to grow a region of physical contiguous memory area
29
 *  from which variable sized segments can be allocated.
30
 *
31
 *  Input parameters:
32
 *    id         - id of region to grow
33
 *    start      - starting address of memory area for extension
34
 *    length     - physical length in bytes to grow the region
35
 *
36
 *  Output parameters:
37
 *    RTEMS_SUCCESSFUL - if successful
38
 *    error code       - if unsuccessful
39
 */
40
 
41
rtems_status_code rtems_region_extend(
42
  Objects_Id          id,
43
  void               *starting_address,
44
  unsigned32          length
45
)
46
{
47
  Region_Control     *the_region;
48
  Objects_Locations   location;
49
  unsigned32          amount_extended;
50
  Heap_Extend_status  heap_status;
51
  rtems_status_code   status;
52
 
53
  status = RTEMS_SUCCESSFUL;
54
 
55
  the_region = _Region_Get( id, &location );
56
  switch ( location ) {
57
    case OBJECTS_REMOTE:        /* this error cannot be returned */
58
      return RTEMS_INTERNAL_ERROR;
59
 
60
    case OBJECTS_ERROR:
61
      return RTEMS_INVALID_ID;
62
 
63
    case OBJECTS_LOCAL:
64
 
65
      heap_status = _Heap_Extend(
66
        &the_region->Memory,
67
        starting_address,
68
        length,
69
        &amount_extended
70
      );
71
 
72
      switch ( heap_status ) {
73
        case HEAP_EXTEND_SUCCESSFUL:
74
          the_region->length                += amount_extended;
75
          the_region->maximum_segment_size  += amount_extended;
76
          break;
77
        case HEAP_EXTEND_ERROR:
78
          status = RTEMS_INVALID_ADDRESS;
79
          break;
80
        case HEAP_EXTEND_NOT_IMPLEMENTED:
81
          status = RTEMS_NOT_IMPLEMENTED;
82
          break;
83
      }
84
      _Thread_Enable_dispatch();
85
      return( status );
86
  }
87
 
88
  return RTEMS_INTERNAL_ERROR;   /* unreached - only to remove warnings */
89
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.