OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [boehm-gc/] [MacOS.c] - Blame information for rev 724

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

Line No. Rev Author Line
1 721 jeremybenn
/*
2
        MacOS.c
3
 
4
        Some routines for the Macintosh OS port of the Hans-J. Boehm, Alan J. Demers
5
        garbage collector.
6
 
7
        <Revision History>
8
 
9
        11/22/94  pcb  StripAddress the temporary memory handle for 24-bit mode.
10
        11/30/94  pcb  Tracking all memory usage so we can deallocate it all at once.
11
        02/10/96  pcb  Added routine to perform a final collection when
12
unloading shared library.
13
 
14
        by Patrick C. Beard.
15
 */
16
/* Boehm, February 15, 1996 2:55 pm PST */
17
 
18
#include <Resources.h>
19
#include <Memory.h>
20
#include <LowMem.h>
21
#include <stdio.h>
22
#include <stdlib.h>
23
#include <string.h>
24
 
25
#include "gc.h"
26
#include "gc_priv.h"
27
 
28
// use 'CODE' resource 0 to get exact location of the beginning of global space.
29
 
30
typedef struct {
31
        unsigned long aboveA5;
32
        unsigned long belowA5;
33
        unsigned long JTSize;
34
        unsigned long JTOffset;
35
} *CodeZeroPtr, **CodeZeroHandle;
36
 
37
void* GC_MacGetDataStart()
38
{
39
        CodeZeroHandle code0 = (CodeZeroHandle)GetResource('CODE', 0);
40
        if (code0) {
41
                long belowA5Size = (**code0).belowA5;
42
                ReleaseResource((Handle)code0);
43
                return (LMGetCurrentA5() - belowA5Size);
44
        }
45
        fprintf(stderr, "Couldn't load the jump table.");
46
        exit(-1);
47
        return 0;
48
}
49
 
50
/* track the use of temporary memory so it can be freed all at once. */
51
 
52
typedef struct TemporaryMemoryBlock TemporaryMemoryBlock, **TemporaryMemoryHandle;
53
 
54
struct TemporaryMemoryBlock {
55
        TemporaryMemoryHandle nextBlock;
56
        char data[];
57
};
58
 
59
static TemporaryMemoryHandle theTemporaryMemory = NULL;
60
static Boolean firstTime = true;
61
 
62
void GC_MacFreeTemporaryMemory(void);
63
 
64
Ptr GC_MacTemporaryNewPtr(size_t size, Boolean clearMemory)
65
{
66
        static Boolean firstTime = true;
67
        OSErr result;
68
        TemporaryMemoryHandle tempMemBlock;
69
        Ptr tempPtr = nil;
70
 
71
        tempMemBlock = (TemporaryMemoryHandle)TempNewHandle(size + sizeof(TemporaryMemoryBlock), &result);
72
        if (tempMemBlock && result == noErr) {
73
                HLockHi((Handle)tempMemBlock);
74
                tempPtr = (**tempMemBlock).data;
75
                if (clearMemory) memset(tempPtr, 0, size);
76
                tempPtr = StripAddress(tempPtr);
77
 
78
                // keep track of the allocated blocks.
79
                (**tempMemBlock).nextBlock = theTemporaryMemory;
80
                theTemporaryMemory = tempMemBlock;
81
        }
82
 
83
#     if !defined(SHARED_LIBRARY_BUILD)
84
        // install an exit routine to clean up the memory used at the end.
85
        if (firstTime) {
86
                atexit(&GC_MacFreeTemporaryMemory);
87
                firstTime = false;
88
        }
89
#     endif
90
 
91
        return tempPtr;
92
}
93
 
94
extern word GC_fo_entries;
95
 
96
static void perform_final_collection()
97
{
98
  unsigned i;
99
  word last_fo_entries = 0;
100
 
101
  /* adjust the stack bottom, because CFM calls us from another stack
102
     location. */
103
     GC_stackbottom = (ptr_t)&i;
104
 
105
  /* try to collect and finalize everything in sight */
106
    for (i = 0; i < 2 || GC_fo_entries < last_fo_entries; i++) {
107
        last_fo_entries = GC_fo_entries;
108
        GC_gcollect();
109
    }
110
}
111
 
112
 
113
void GC_MacFreeTemporaryMemory()
114
{
115
# if defined(SHARED_LIBRARY_BUILD)
116
    /* if possible, collect all memory, and invoke all finalizers. */
117
      perform_final_collection();
118
# endif
119
 
120
    if (theTemporaryMemory != NULL) {
121
        long totalMemoryUsed = 0;
122
        TemporaryMemoryHandle tempMemBlock = theTemporaryMemory;
123
        while (tempMemBlock != NULL) {
124
                TemporaryMemoryHandle nextBlock = (**tempMemBlock).nextBlock;
125
                totalMemoryUsed += GetHandleSize((Handle)tempMemBlock);
126
                DisposeHandle((Handle)tempMemBlock);
127
                tempMemBlock = nextBlock;
128
        }
129
        theTemporaryMemory = NULL;
130
 
131
#       if !defined(SILENT) && !defined(SHARED_LIBRARY_BUILD)
132
          fprintf(stdout, "[total memory used:  %ld bytes.]\n",
133
                  totalMemoryUsed);
134
          fprintf(stdout, "[total collections:  %ld.]\n", GC_gc_no);
135
#       endif
136
    }
137
}
138
 
139
#if __option(far_data)
140
 
141
  void* GC_MacGetDataEnd()
142
  {
143
        CodeZeroHandle code0 = (CodeZeroHandle)GetResource('CODE', 0);
144
        if (code0) {
145
                long aboveA5Size = (**code0).aboveA5;
146
                ReleaseResource((Handle)code0);
147
                return (LMGetCurrentA5() + aboveA5Size);
148
        }
149
        fprintf(stderr, "Couldn't load the jump table.");
150
        exit(-1);
151
        return 0;
152
  }
153
 
154
#endif /* __option(far_data) */

powered by: WebSVN 2.1.0

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