URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [trunk/] [rtems-20020807/] [cpukit/] [score/] [src/] [heapgetinfo.c] - Blame information for rev 1780

Go to most recent revision | Details | Compare with Previous | View Log


/*
 *  Heap Handler
 *
 *  COPYRIGHT (c) 1989-2000.
 *  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.
 *
 */
 
 
#include <rtems/system.h>
#include <rtems/score/sysstate.h>
#include <rtems/score/heap.h>
 
/*PAGE
 *
 *  _Heap_Get_information
 *
 *  This kernel routine walks the heap and tots up the free and allocated
 *  sizes.  Derived from _Heap_Walk.
 *
 *  Input parameters:
 *    the_heap  - pointer to heap header
 *
 *  Output parameters:
 *    free_sz   - Pointer for free amount return
 *    used_sz   - Pointer for used amount return
 *    return 0=success, otherwise heap is corrupt.
 */
 
 
Heap_Get_information_status _Heap_Get_information(
  Heap_Control            *the_heap,
  Heap_Information_block  *the_info
)
{
  Heap_Block *the_block  = 0;  /* avoid warnings */
  Heap_Block *next_block = 0;  /* avoid warnings */
  int         notdone = 1;
 
 
  the_info->free_blocks = 0;
  the_info->free_size   = 0;
  the_info->used_blocks = 0;
  the_info->used_size   = 0;
 
  /*
   * We don't want to allow walking the heap until we have
   * transferred control to the user task so we watch the
   * system state.
   */
 
  if ( !_System_state_Is_up( _System_state_Get() ) )
    return HEAP_GET_INFORMATION_SYSTEM_STATE_ERROR;
 
  the_block = the_heap->start;
 
  /*
   * Handle the 1st block
   */
 
  if ( the_block->back_flag != HEAP_DUMMY_FLAG ) {
    return HEAP_GET_INFORMATION_BLOCK_ERROR;
  }
 
  while (notdone) {
 
      /*
       * Accumulate size
       */
 
      if ( _Heap_Is_block_free(the_block) ) {
        the_info->free_blocks++;
        the_info->free_size += _Heap_Block_size(the_block);
      } else {
        the_info->used_blocks++;
        the_info->used_size += _Heap_Block_size(the_block);
      }
 
      /*
       * Handle the last block
       */
 
      if ( the_block->front_flag != HEAP_DUMMY_FLAG ) {
        next_block = _Heap_Next_block(the_block);
        if ( the_block->front_flag != next_block->back_flag ) {
          return HEAP_GET_INFORMATION_BLOCK_ERROR;
        }
      }
 
      if ( the_block->front_flag == HEAP_DUMMY_FLAG )
        notdone = 0;
      else
        the_block = next_block;
  }  /* while(notdone) */
 
  return HEAP_GET_INFORMATION_SUCCESSFUL;
}

Line No.	Rev	Author	Line
1	1026	ivang	`/*`
2			`* Heap Handler`
3			`*`
4			`* COPYRIGHT (c) 1989-2000.`
5			`* On-Line Applications Research Corporation (OAR).`
6			`*`
7			`* The license and distribution terms for this file may be`
8			`* found in the file LICENSE in this distribution or at`
9			`* http://www.OARcorp.com/rtems/license.html.`
10			`*`
11			`*/`
12
13
14			`#include <rtems/system.h>`
15			`#include <rtems/score/sysstate.h>`
16			`#include <rtems/score/heap.h>`
17
18			`/*PAGE`
19			`*`
20			`* _Heap_Get_information`
21			`*`
22			`* This kernel routine walks the heap and tots up the free and allocated`
23			`* sizes. Derived from _Heap_Walk.`
24			`*`
25			`* Input parameters:`
26			`* the_heap - pointer to heap header`
27			`*`
28			`* Output parameters:`
29			`* free_sz - Pointer for free amount return`
30			`* used_sz - Pointer for used amount return`
31			`* return 0=success, otherwise heap is corrupt.`
32			`*/`
33
34
35			`Heap_Get_information_status _Heap_Get_information(`
36			`Heap_Control *the_heap,`
37			`Heap_Information_block *the_info`
38			`)`
39			`{`
40			`Heap_Block the_block = 0; / avoid warnings */`
41			`Heap_Block next_block = 0; / avoid warnings */`
42			`int notdone = 1;`
43
44
45			`the_info->free_blocks = 0;`
46			`the_info->free_size = 0;`
47			`the_info->used_blocks = 0;`
48			`the_info->used_size = 0;`
49
50			`/*`
51			`* We don't want to allow walking the heap until we have`
52			`* transferred control to the user task so we watch the`
53			`* system state.`
54			`*/`
55
56			`if ( !_System_state_Is_up( _System_state_Get() ) )`
57			`return HEAP_GET_INFORMATION_SYSTEM_STATE_ERROR;`
58
59			`the_block = the_heap->start;`
60
61			`/*`
62			`* Handle the 1st block`
63			`*/`
64
65			`if ( the_block->back_flag != HEAP_DUMMY_FLAG ) {`
66			`return HEAP_GET_INFORMATION_BLOCK_ERROR;`
67			`}`
68
69			`while (notdone) {`
70
71			`/*`
72			`* Accumulate size`
73			`*/`
74
75			`if ( _Heap_Is_block_free(the_block) ) {`
76			`the_info->free_blocks++;`
77			`the_info->free_size += _Heap_Block_size(the_block);`
78			`} else {`
79			`the_info->used_blocks++;`
80			`the_info->used_size += _Heap_Block_size(the_block);`
81			`}`
82
83			`/*`
84			`* Handle the last block`
85			`*/`
86
87			`if ( the_block->front_flag != HEAP_DUMMY_FLAG ) {`
88			`next_block = _Heap_Next_block(the_block);`
89			`if ( the_block->front_flag != next_block->back_flag ) {`
90			`return HEAP_GET_INFORMATION_BLOCK_ERROR;`
91			`}`
92			`}`
93
94			`if ( the_block->front_flag == HEAP_DUMMY_FLAG )`
95			`notdone = 0;`
96			`else`
97			`the_block = next_block;`
98			`} /* while(notdone) */`
99
100			`return HEAP_GET_INFORMATION_SUCCESSFUL;`
101			`}`

Browse

Tools

Subversion Repositories or1k

[/] [or1k/] [trunk/] [rtems-20020807/] [cpukit/] [score/] [src/] [heapgetinfo.c] - Blame information for rev 1780