1*b30d1939SAndy Fiddaman /***********************************************************************
2*b30d1939SAndy Fiddaman * *
3*b30d1939SAndy Fiddaman * This software is part of the ast package *
4*b30d1939SAndy Fiddaman * Copyright (c) 1985-2012 AT&T Intellectual Property *
5*b30d1939SAndy Fiddaman * and is licensed under the *
6*b30d1939SAndy Fiddaman * Eclipse Public License, Version 1.0 *
7*b30d1939SAndy Fiddaman * by AT&T Intellectual Property *
8*b30d1939SAndy Fiddaman * *
9*b30d1939SAndy Fiddaman * A copy of the License is available at *
10*b30d1939SAndy Fiddaman * http://www.eclipse.org/org/documents/epl-v10.html *
11*b30d1939SAndy Fiddaman * (with md5 checksum b35adb5213ca9657e911e9befb180842) *
12*b30d1939SAndy Fiddaman * *
13*b30d1939SAndy Fiddaman * Information and Software Systems Research *
14*b30d1939SAndy Fiddaman * AT&T Research *
15*b30d1939SAndy Fiddaman * Florham Park NJ *
16*b30d1939SAndy Fiddaman * *
17*b30d1939SAndy Fiddaman * Glenn Fowler <gsf@research.att.com> *
18*b30d1939SAndy Fiddaman * David Korn <dgk@research.att.com> *
19*b30d1939SAndy Fiddaman * Phong Vo <kpv@research.att.com> *
20*b30d1939SAndy Fiddaman * *
21*b30d1939SAndy Fiddaman ***********************************************************************/
22*b30d1939SAndy Fiddaman #if defined(_UWIN) && defined(_BLD_ast)
23*b30d1939SAndy Fiddaman
_STUB_vmlast()24*b30d1939SAndy Fiddaman void _STUB_vmlast(){}
25*b30d1939SAndy Fiddaman
26*b30d1939SAndy Fiddaman #else
27*b30d1939SAndy Fiddaman
28*b30d1939SAndy Fiddaman #include "vmhdr.h"
29*b30d1939SAndy Fiddaman
30*b30d1939SAndy Fiddaman /* Allocation with freeing and reallocing of last allocated block only.
31*b30d1939SAndy Fiddaman **
32*b30d1939SAndy Fiddaman ** Written by Kiem-Phong Vo, kpv@research.att.com, 01/16/94.
33*b30d1939SAndy Fiddaman */
34*b30d1939SAndy Fiddaman
35*b30d1939SAndy Fiddaman #if __STD_C
lastalloc(Vmalloc_t * vm,size_t size,int local)36*b30d1939SAndy Fiddaman static Void_t* lastalloc(Vmalloc_t* vm, size_t size, int local)
37*b30d1939SAndy Fiddaman #else
38*b30d1939SAndy Fiddaman static Void_t* lastalloc(vm, size, local)
39*b30d1939SAndy Fiddaman Vmalloc_t* vm;
40*b30d1939SAndy Fiddaman size_t size;
41*b30d1939SAndy Fiddaman int local;
42*b30d1939SAndy Fiddaman #endif
43*b30d1939SAndy Fiddaman {
44*b30d1939SAndy Fiddaman Block_t *tp, *next;
45*b30d1939SAndy Fiddaman Seg_t *seg, *last;
46*b30d1939SAndy Fiddaman size_t s;
47*b30d1939SAndy Fiddaman Vmdata_t *vd = vm->data;
48*b30d1939SAndy Fiddaman size_t orgsize = size;
49*b30d1939SAndy Fiddaman
50*b30d1939SAndy Fiddaman SETLOCK(vm, local);
51*b30d1939SAndy Fiddaman
52*b30d1939SAndy Fiddaman size = size < ALIGN ? ALIGN : ROUND(size,ALIGN);
53*b30d1939SAndy Fiddaman for(last = NIL(Seg_t*), seg = vd->seg; seg; last = seg, seg = seg->next)
54*b30d1939SAndy Fiddaman { if(!(tp = seg->free) || (SIZE(tp)+sizeof(Head_t)) < size)
55*b30d1939SAndy Fiddaman continue;
56*b30d1939SAndy Fiddaman if(last)
57*b30d1939SAndy Fiddaman { last->next = seg->next;
58*b30d1939SAndy Fiddaman seg->next = vd->seg;
59*b30d1939SAndy Fiddaman vd->seg = seg;
60*b30d1939SAndy Fiddaman }
61*b30d1939SAndy Fiddaman goto got_block;
62*b30d1939SAndy Fiddaman }
63*b30d1939SAndy Fiddaman
64*b30d1939SAndy Fiddaman /* there is no usable free space in region, try extending */
65*b30d1939SAndy Fiddaman if((tp = (*_Vmextend)(vm,size,NIL(Vmsearch_f))) )
66*b30d1939SAndy Fiddaman { seg = SEG(tp);
67*b30d1939SAndy Fiddaman goto got_block;
68*b30d1939SAndy Fiddaman }
69*b30d1939SAndy Fiddaman else goto done;
70*b30d1939SAndy Fiddaman
71*b30d1939SAndy Fiddaman got_block:
72*b30d1939SAndy Fiddaman if((s = SIZE(tp)) >= size)
73*b30d1939SAndy Fiddaman { next = (Block_t*)((Vmuchar_t*)tp+size);
74*b30d1939SAndy Fiddaman SIZE(next) = s - size;
75*b30d1939SAndy Fiddaman SEG(next) = seg;
76*b30d1939SAndy Fiddaman seg->free = next;
77*b30d1939SAndy Fiddaman }
78*b30d1939SAndy Fiddaman else seg->free = NIL(Block_t*);
79*b30d1939SAndy Fiddaman
80*b30d1939SAndy Fiddaman vd->free = seg->last = tp;
81*b30d1939SAndy Fiddaman
82*b30d1939SAndy Fiddaman if(!local && (vd->mode&VM_TRACE) && _Vmtrace)
83*b30d1939SAndy Fiddaman (*_Vmtrace)(vm, NIL(Vmuchar_t*), (Vmuchar_t*)tp, orgsize, 0);
84*b30d1939SAndy Fiddaman
85*b30d1939SAndy Fiddaman done:
86*b30d1939SAndy Fiddaman CLRLOCK(vm, local);
87*b30d1939SAndy Fiddaman
88*b30d1939SAndy Fiddaman return (Void_t*)tp;
89*b30d1939SAndy Fiddaman }
90*b30d1939SAndy Fiddaman
91*b30d1939SAndy Fiddaman #if __STD_C
lastfree(Vmalloc_t * vm,reg Void_t * data,int local)92*b30d1939SAndy Fiddaman static int lastfree(Vmalloc_t* vm, reg Void_t* data, int local )
93*b30d1939SAndy Fiddaman #else
94*b30d1939SAndy Fiddaman static int lastfree(vm, data, local)
95*b30d1939SAndy Fiddaman Vmalloc_t* vm;
96*b30d1939SAndy Fiddaman Void_t* data;
97*b30d1939SAndy Fiddaman int local;
98*b30d1939SAndy Fiddaman #endif
99*b30d1939SAndy Fiddaman {
100*b30d1939SAndy Fiddaman Seg_t *seg;
101*b30d1939SAndy Fiddaman Block_t *fp;
102*b30d1939SAndy Fiddaman size_t s;
103*b30d1939SAndy Fiddaman Vmdata_t *vd = vm->data;
104*b30d1939SAndy Fiddaman
105*b30d1939SAndy Fiddaman if(!data)
106*b30d1939SAndy Fiddaman return 0;
107*b30d1939SAndy Fiddaman
108*b30d1939SAndy Fiddaman SETLOCK(vm, local);
109*b30d1939SAndy Fiddaman
110*b30d1939SAndy Fiddaman if(data != (Void_t*)vd->free)
111*b30d1939SAndy Fiddaman data = NIL(Void_t*); /* signaling an error */
112*b30d1939SAndy Fiddaman else
113*b30d1939SAndy Fiddaman { seg = vd->seg;
114*b30d1939SAndy Fiddaman if(!local && (vd->mode&VM_TRACE) && _Vmtrace)
115*b30d1939SAndy Fiddaman { if(seg->free )
116*b30d1939SAndy Fiddaman s = (Vmuchar_t*)(seg->free) - (Vmuchar_t*)data;
117*b30d1939SAndy Fiddaman else s = (Vmuchar_t*)BLOCK(seg->baddr) - (Vmuchar_t*)data;
118*b30d1939SAndy Fiddaman (*_Vmtrace)(vm, (Vmuchar_t*)data, NIL(Vmuchar_t*), s, 0);
119*b30d1939SAndy Fiddaman }
120*b30d1939SAndy Fiddaman
121*b30d1939SAndy Fiddaman vd->free = NIL(Block_t*);
122*b30d1939SAndy Fiddaman fp = (Block_t*)data;
123*b30d1939SAndy Fiddaman SEG(fp) = seg;
124*b30d1939SAndy Fiddaman SIZE(fp) = ((Vmuchar_t*)BLOCK(seg->baddr) - (Vmuchar_t*)data) - sizeof(Head_t);
125*b30d1939SAndy Fiddaman seg->free = fp;
126*b30d1939SAndy Fiddaman seg->last = NIL(Block_t*);
127*b30d1939SAndy Fiddaman }
128*b30d1939SAndy Fiddaman
129*b30d1939SAndy Fiddaman CLRLOCK(vm, local);
130*b30d1939SAndy Fiddaman
131*b30d1939SAndy Fiddaman return data ? 0 : -1;
132*b30d1939SAndy Fiddaman }
133*b30d1939SAndy Fiddaman
134*b30d1939SAndy Fiddaman #if __STD_C
lastresize(Vmalloc_t * vm,reg Void_t * data,size_t size,int type,int local)135*b30d1939SAndy Fiddaman static Void_t* lastresize(Vmalloc_t* vm, reg Void_t* data, size_t size, int type, int local)
136*b30d1939SAndy Fiddaman #else
137*b30d1939SAndy Fiddaman static Void_t* lastresize(vm, data, size, type, local )
138*b30d1939SAndy Fiddaman Vmalloc_t* vm;
139*b30d1939SAndy Fiddaman reg Void_t* data;
140*b30d1939SAndy Fiddaman size_t size;
141*b30d1939SAndy Fiddaman int type;
142*b30d1939SAndy Fiddaman int local;
143*b30d1939SAndy Fiddaman #endif
144*b30d1939SAndy Fiddaman {
145*b30d1939SAndy Fiddaman Block_t *tp;
146*b30d1939SAndy Fiddaman Seg_t *seg;
147*b30d1939SAndy Fiddaman ssize_t s, ds;
148*b30d1939SAndy Fiddaman Void_t *addr;
149*b30d1939SAndy Fiddaman size_t oldsize = 0;
150*b30d1939SAndy Fiddaman Void_t *orgdata = data;
151*b30d1939SAndy Fiddaman size_t orgsize = size;
152*b30d1939SAndy Fiddaman Vmdata_t *vd = vm->data;
153*b30d1939SAndy Fiddaman
154*b30d1939SAndy Fiddaman if(!data)
155*b30d1939SAndy Fiddaman { data = lastalloc(vm, size, local);
156*b30d1939SAndy Fiddaman if(data && (type&VM_RSZERO) )
157*b30d1939SAndy Fiddaman memset(data, 0, size);
158*b30d1939SAndy Fiddaman return data;
159*b30d1939SAndy Fiddaman }
160*b30d1939SAndy Fiddaman if(size <= 0)
161*b30d1939SAndy Fiddaman { (void)lastfree(vm, data, local);
162*b30d1939SAndy Fiddaman return NIL(Void_t*);
163*b30d1939SAndy Fiddaman }
164*b30d1939SAndy Fiddaman
165*b30d1939SAndy Fiddaman SETLOCK(vm, local);
166*b30d1939SAndy Fiddaman
167*b30d1939SAndy Fiddaman if(data == (Void_t*)vd->free)
168*b30d1939SAndy Fiddaman seg = vd->seg;
169*b30d1939SAndy Fiddaman else
170*b30d1939SAndy Fiddaman { /* see if it was one of ours */
171*b30d1939SAndy Fiddaman for(seg = vd->seg; seg; seg = seg->next)
172*b30d1939SAndy Fiddaman if(data >= seg->addr && data < (Void_t*)seg->baddr)
173*b30d1939SAndy Fiddaman break;
174*b30d1939SAndy Fiddaman if(!seg || (VLONG(data)%ALIGN) != 0 ||
175*b30d1939SAndy Fiddaman (seg->last && (Vmuchar_t*)data > (Vmuchar_t*)seg->last) )
176*b30d1939SAndy Fiddaman { data = NIL(Void_t*);
177*b30d1939SAndy Fiddaman goto done;
178*b30d1939SAndy Fiddaman }
179*b30d1939SAndy Fiddaman }
180*b30d1939SAndy Fiddaman
181*b30d1939SAndy Fiddaman /* set 's' to be the current available space */
182*b30d1939SAndy Fiddaman if(data != seg->last)
183*b30d1939SAndy Fiddaman { if(seg->last && (Vmuchar_t*)data < (Vmuchar_t*)seg->last)
184*b30d1939SAndy Fiddaman oldsize = (Vmuchar_t*)seg->last - (Vmuchar_t*)data;
185*b30d1939SAndy Fiddaman else oldsize = (Vmuchar_t*)BLOCK(seg->baddr) - (Vmuchar_t*)data;
186*b30d1939SAndy Fiddaman s = -1;
187*b30d1939SAndy Fiddaman }
188*b30d1939SAndy Fiddaman else
189*b30d1939SAndy Fiddaman { s = (Vmuchar_t*)BLOCK(seg->baddr) - (Vmuchar_t*)data;
190*b30d1939SAndy Fiddaman if(!(tp = seg->free) )
191*b30d1939SAndy Fiddaman oldsize = s;
192*b30d1939SAndy Fiddaman else
193*b30d1939SAndy Fiddaman { oldsize = (Vmuchar_t*)tp - (Vmuchar_t*)data;
194*b30d1939SAndy Fiddaman seg->free = NIL(Block_t*);
195*b30d1939SAndy Fiddaman }
196*b30d1939SAndy Fiddaman }
197*b30d1939SAndy Fiddaman
198*b30d1939SAndy Fiddaman size = size < ALIGN ? ALIGN : ROUND(size,ALIGN);
199*b30d1939SAndy Fiddaman if(s < 0 || (ssize_t)size > s)
200*b30d1939SAndy Fiddaman { if(s >= 0) /* amount to extend */
201*b30d1939SAndy Fiddaman { ds = size-s; ds = ROUND(ds,vd->incr);
202*b30d1939SAndy Fiddaman addr = (*vm->disc->memoryf)(vm, seg->addr, seg->extent,
203*b30d1939SAndy Fiddaman seg->extent+ds, vm->disc);
204*b30d1939SAndy Fiddaman if(addr == seg->addr)
205*b30d1939SAndy Fiddaman { s += ds;
206*b30d1939SAndy Fiddaman seg->size += ds;
207*b30d1939SAndy Fiddaman seg->extent += ds;
208*b30d1939SAndy Fiddaman seg->baddr += ds;
209*b30d1939SAndy Fiddaman SIZE(BLOCK(seg->baddr)) = BUSY;
210*b30d1939SAndy Fiddaman }
211*b30d1939SAndy Fiddaman else goto do_alloc;
212*b30d1939SAndy Fiddaman }
213*b30d1939SAndy Fiddaman else
214*b30d1939SAndy Fiddaman { do_alloc:
215*b30d1939SAndy Fiddaman if(!(type&(VM_RSMOVE|VM_RSCOPY)) )
216*b30d1939SAndy Fiddaman data = NIL(Void_t*);
217*b30d1939SAndy Fiddaman else
218*b30d1939SAndy Fiddaman { tp = vd->free;
219*b30d1939SAndy Fiddaman if(!(addr = KPVALLOC(vm,size,lastalloc)) )
220*b30d1939SAndy Fiddaman { vd->free = tp;
221*b30d1939SAndy Fiddaman data = NIL(Void_t*);
222*b30d1939SAndy Fiddaman }
223*b30d1939SAndy Fiddaman else
224*b30d1939SAndy Fiddaman { if(type&VM_RSCOPY)
225*b30d1939SAndy Fiddaman { ds = oldsize < size ? oldsize : size;
226*b30d1939SAndy Fiddaman memcpy(addr, data, ds);
227*b30d1939SAndy Fiddaman }
228*b30d1939SAndy Fiddaman
229*b30d1939SAndy Fiddaman if(s >= 0 && seg != vd->seg)
230*b30d1939SAndy Fiddaman { tp = (Block_t*)data;
231*b30d1939SAndy Fiddaman SEG(tp) = seg;
232*b30d1939SAndy Fiddaman SIZE(tp) = s - sizeof(Head_t);
233*b30d1939SAndy Fiddaman seg->free = tp;
234*b30d1939SAndy Fiddaman }
235*b30d1939SAndy Fiddaman
236*b30d1939SAndy Fiddaman /* new block and size */
237*b30d1939SAndy Fiddaman data = addr;
238*b30d1939SAndy Fiddaman seg = vd->seg;
239*b30d1939SAndy Fiddaman s = (Vmuchar_t*)BLOCK(seg->baddr) -
240*b30d1939SAndy Fiddaman (Vmuchar_t*)data;
241*b30d1939SAndy Fiddaman seg->free = NIL(Block_t*);
242*b30d1939SAndy Fiddaman }
243*b30d1939SAndy Fiddaman }
244*b30d1939SAndy Fiddaman }
245*b30d1939SAndy Fiddaman }
246*b30d1939SAndy Fiddaman
247*b30d1939SAndy Fiddaman if(data)
248*b30d1939SAndy Fiddaman { if(s >= (ssize_t)(size+sizeof(Head_t)) )
249*b30d1939SAndy Fiddaman { tp = (Block_t*)((Vmuchar_t*)data + size);
250*b30d1939SAndy Fiddaman SEG(tp) = seg;
251*b30d1939SAndy Fiddaman SIZE(tp) = (s - size) - sizeof(Head_t);
252*b30d1939SAndy Fiddaman seg->free = tp;
253*b30d1939SAndy Fiddaman }
254*b30d1939SAndy Fiddaman
255*b30d1939SAndy Fiddaman vd->free = seg->last = (Block_t*)data;
256*b30d1939SAndy Fiddaman
257*b30d1939SAndy Fiddaman if(!local && (vd->mode&VM_TRACE) && _Vmtrace)
258*b30d1939SAndy Fiddaman (*_Vmtrace)(vm,(Vmuchar_t*)orgdata,(Vmuchar_t*)data,orgsize,0);
259*b30d1939SAndy Fiddaman
260*b30d1939SAndy Fiddaman if((type&VM_RSZERO) && size > oldsize)
261*b30d1939SAndy Fiddaman memset((Void_t*)((Vmuchar_t*)data + oldsize), 0, size-oldsize);
262*b30d1939SAndy Fiddaman }
263*b30d1939SAndy Fiddaman
264*b30d1939SAndy Fiddaman done: CLRLOCK(vm, local);
265*b30d1939SAndy Fiddaman
266*b30d1939SAndy Fiddaman return data;
267*b30d1939SAndy Fiddaman }
268*b30d1939SAndy Fiddaman
269*b30d1939SAndy Fiddaman
270*b30d1939SAndy Fiddaman #if __STD_C
lastaddr(Vmalloc_t * vm,Void_t * addr,int local)271*b30d1939SAndy Fiddaman static long lastaddr(Vmalloc_t* vm, Void_t* addr, int local)
272*b30d1939SAndy Fiddaman #else
273*b30d1939SAndy Fiddaman static long lastaddr(vm, addr, local)
274*b30d1939SAndy Fiddaman Vmalloc_t* vm;
275*b30d1939SAndy Fiddaman Void_t* addr;
276*b30d1939SAndy Fiddaman int local;
277*b30d1939SAndy Fiddaman #endif
278*b30d1939SAndy Fiddaman {
279*b30d1939SAndy Fiddaman long offset;
280*b30d1939SAndy Fiddaman Vmdata_t *vd = vm->data;
281*b30d1939SAndy Fiddaman
282*b30d1939SAndy Fiddaman SETLOCK(vm, local);
283*b30d1939SAndy Fiddaman
284*b30d1939SAndy Fiddaman if(!vd->free || addr < (Void_t*)vd->free || addr >= (Void_t*)vd->seg->baddr)
285*b30d1939SAndy Fiddaman offset = -1L;
286*b30d1939SAndy Fiddaman else offset = (long)((Vmuchar_t*)addr - (Vmuchar_t*)vd->free);
287*b30d1939SAndy Fiddaman
288*b30d1939SAndy Fiddaman CLRLOCK(vm, local);
289*b30d1939SAndy Fiddaman
290*b30d1939SAndy Fiddaman return offset;
291*b30d1939SAndy Fiddaman }
292*b30d1939SAndy Fiddaman
293*b30d1939SAndy Fiddaman #if __STD_C
lastsize(Vmalloc_t * vm,Void_t * addr,int local)294*b30d1939SAndy Fiddaman static long lastsize(Vmalloc_t* vm, Void_t* addr, int local)
295*b30d1939SAndy Fiddaman #else
296*b30d1939SAndy Fiddaman static long lastsize(vm, addr, local)
297*b30d1939SAndy Fiddaman Vmalloc_t* vm;
298*b30d1939SAndy Fiddaman Void_t* addr;
299*b30d1939SAndy Fiddaman int local;
300*b30d1939SAndy Fiddaman #endif
301*b30d1939SAndy Fiddaman {
302*b30d1939SAndy Fiddaman long size;
303*b30d1939SAndy Fiddaman Vmdata_t *vd = vm->data;
304*b30d1939SAndy Fiddaman
305*b30d1939SAndy Fiddaman SETLOCK(vm, local);
306*b30d1939SAndy Fiddaman
307*b30d1939SAndy Fiddaman if(!vd->free || addr != (Void_t*)vd->free )
308*b30d1939SAndy Fiddaman size = -1L;
309*b30d1939SAndy Fiddaman else if(vd->seg->free)
310*b30d1939SAndy Fiddaman size = (long)((Vmuchar_t*)vd->seg->free - (Vmuchar_t*)addr);
311*b30d1939SAndy Fiddaman else size = (long)((Vmuchar_t*)vd->seg->baddr - (Vmuchar_t*)addr - sizeof(Head_t));
312*b30d1939SAndy Fiddaman
313*b30d1939SAndy Fiddaman CLRLOCK(vm, local);
314*b30d1939SAndy Fiddaman
315*b30d1939SAndy Fiddaman return size;
316*b30d1939SAndy Fiddaman }
317*b30d1939SAndy Fiddaman
318*b30d1939SAndy Fiddaman #if __STD_C
lastcompact(Vmalloc_t * vm,int local)319*b30d1939SAndy Fiddaman static int lastcompact(Vmalloc_t* vm, int local)
320*b30d1939SAndy Fiddaman #else
321*b30d1939SAndy Fiddaman static int lastcompact(vm, local)
322*b30d1939SAndy Fiddaman Vmalloc_t* vm;
323*b30d1939SAndy Fiddaman int local;
324*b30d1939SAndy Fiddaman #endif
325*b30d1939SAndy Fiddaman {
326*b30d1939SAndy Fiddaman ssize_t s;
327*b30d1939SAndy Fiddaman Block_t *fp;
328*b30d1939SAndy Fiddaman Seg_t *seg, *next;
329*b30d1939SAndy Fiddaman Vmdata_t *vd = vm->data;
330*b30d1939SAndy Fiddaman
331*b30d1939SAndy Fiddaman SETLOCK(vm, local);
332*b30d1939SAndy Fiddaman
333*b30d1939SAndy Fiddaman for(seg = vd->seg; seg; seg = next)
334*b30d1939SAndy Fiddaman { next = seg->next;
335*b30d1939SAndy Fiddaman
336*b30d1939SAndy Fiddaman if(!(fp = seg->free))
337*b30d1939SAndy Fiddaman continue;
338*b30d1939SAndy Fiddaman
339*b30d1939SAndy Fiddaman seg->free = NIL(Block_t*);
340*b30d1939SAndy Fiddaman if(seg->size == (s = SIZE(fp)&~BITS))
341*b30d1939SAndy Fiddaman s = seg->extent;
342*b30d1939SAndy Fiddaman else s += sizeof(Head_t);
343*b30d1939SAndy Fiddaman
344*b30d1939SAndy Fiddaman if((*_Vmtruncate)(vm,seg,s,1) == s)
345*b30d1939SAndy Fiddaman seg->free = fp;
346*b30d1939SAndy Fiddaman }
347*b30d1939SAndy Fiddaman
348*b30d1939SAndy Fiddaman if((vd->mode&VM_TRACE) && _Vmtrace)
349*b30d1939SAndy Fiddaman (*_Vmtrace)(vm,(Vmuchar_t*)0,(Vmuchar_t*)0,0,0);
350*b30d1939SAndy Fiddaman
351*b30d1939SAndy Fiddaman CLRLOCK(vm, local);
352*b30d1939SAndy Fiddaman return 0;
353*b30d1939SAndy Fiddaman }
354*b30d1939SAndy Fiddaman
355*b30d1939SAndy Fiddaman #if __STD_C
lastalign(Vmalloc_t * vm,size_t size,size_t align,int local)356*b30d1939SAndy Fiddaman static Void_t* lastalign(Vmalloc_t* vm, size_t size, size_t align, int local)
357*b30d1939SAndy Fiddaman #else
358*b30d1939SAndy Fiddaman static Void_t* lastalign(vm, size, align, local)
359*b30d1939SAndy Fiddaman Vmalloc_t* vm;
360*b30d1939SAndy Fiddaman size_t size;
361*b30d1939SAndy Fiddaman size_t align;
362*b30d1939SAndy Fiddaman int local;
363*b30d1939SAndy Fiddaman #endif
364*b30d1939SAndy Fiddaman {
365*b30d1939SAndy Fiddaman Vmuchar_t *data;
366*b30d1939SAndy Fiddaman Seg_t *seg;
367*b30d1939SAndy Fiddaman Block_t *next;
368*b30d1939SAndy Fiddaman size_t s, orgsize = size, orgalign = align;
369*b30d1939SAndy Fiddaman Vmdata_t *vd = vm->data;
370*b30d1939SAndy Fiddaman
371*b30d1939SAndy Fiddaman if(size <= 0 || align <= 0)
372*b30d1939SAndy Fiddaman return NIL(Void_t*);
373*b30d1939SAndy Fiddaman
374*b30d1939SAndy Fiddaman SETLOCK(vm, local);
375*b30d1939SAndy Fiddaman
376*b30d1939SAndy Fiddaman size = size <= TINYSIZE ? TINYSIZE : ROUND(size,ALIGN);
377*b30d1939SAndy Fiddaman align = MULTIPLE(align,ALIGN);
378*b30d1939SAndy Fiddaman
379*b30d1939SAndy Fiddaman s = size + align;
380*b30d1939SAndy Fiddaman if(!(data = (Vmuchar_t*)KPVALLOC(vm,s,lastalloc)) )
381*b30d1939SAndy Fiddaman goto done;
382*b30d1939SAndy Fiddaman
383*b30d1939SAndy Fiddaman /* find the segment containing this block */
384*b30d1939SAndy Fiddaman for(seg = vd->seg; seg; seg = seg->next)
385*b30d1939SAndy Fiddaman if(seg->last == (Block_t*)data)
386*b30d1939SAndy Fiddaman break;
387*b30d1939SAndy Fiddaman /**/ASSERT(seg);
388*b30d1939SAndy Fiddaman
389*b30d1939SAndy Fiddaman /* get a suitably aligned address */
390*b30d1939SAndy Fiddaman if((s = (size_t)(VLONG(data)%align)) != 0)
391*b30d1939SAndy Fiddaman data += align-s; /**/ASSERT((VLONG(data)%align) == 0);
392*b30d1939SAndy Fiddaman
393*b30d1939SAndy Fiddaman /* free the unused tail */
394*b30d1939SAndy Fiddaman next = (Block_t*)(data+size);
395*b30d1939SAndy Fiddaman if((s = (seg->baddr - (Vmuchar_t*)next)) >= sizeof(Block_t))
396*b30d1939SAndy Fiddaman { SEG(next) = seg;
397*b30d1939SAndy Fiddaman SIZE(next) = s - sizeof(Head_t);
398*b30d1939SAndy Fiddaman seg->free = next;
399*b30d1939SAndy Fiddaman }
400*b30d1939SAndy Fiddaman
401*b30d1939SAndy Fiddaman vd->free = seg->last = (Block_t*)data;
402*b30d1939SAndy Fiddaman
403*b30d1939SAndy Fiddaman if(!local && (vd->mode&VM_TRACE) && _Vmtrace)
404*b30d1939SAndy Fiddaman (*_Vmtrace)(vm,NIL(Vmuchar_t*),data,orgsize,orgalign);
405*b30d1939SAndy Fiddaman
406*b30d1939SAndy Fiddaman done:
407*b30d1939SAndy Fiddaman CLRLOCK(vm, local);
408*b30d1939SAndy Fiddaman
409*b30d1939SAndy Fiddaman return (Void_t*)data;
410*b30d1939SAndy Fiddaman }
411*b30d1939SAndy Fiddaman
412*b30d1939SAndy Fiddaman /* Public method for free-1 allocation */
413*b30d1939SAndy Fiddaman static Vmethod_t _Vmlast =
414*b30d1939SAndy Fiddaman {
415*b30d1939SAndy Fiddaman lastalloc,
416*b30d1939SAndy Fiddaman lastresize,
417*b30d1939SAndy Fiddaman lastfree,
418*b30d1939SAndy Fiddaman lastaddr,
419*b30d1939SAndy Fiddaman lastsize,
420*b30d1939SAndy Fiddaman lastcompact,
421*b30d1939SAndy Fiddaman lastalign,
422*b30d1939SAndy Fiddaman VM_MTLAST
423*b30d1939SAndy Fiddaman };
424*b30d1939SAndy Fiddaman
425*b30d1939SAndy Fiddaman __DEFINE__(Vmethod_t*,Vmlast,&_Vmlast);
426*b30d1939SAndy Fiddaman
427*b30d1939SAndy Fiddaman #ifdef NoF
428*b30d1939SAndy Fiddaman NoF(vmlast)
429*b30d1939SAndy Fiddaman #endif
430*b30d1939SAndy Fiddaman
431*b30d1939SAndy Fiddaman #endif
432