annotate vmalloc.c @ 67:2377967a2732

Fixed sequential coreLoop, where switchVPs was broken
author Me
date Tue, 16 Nov 2010 16:00:32 +0100
parents 7b799a46cc87
children bf08108405cc 9c3107044f86
rev   line source
Me@50 1 /*
Me@50 2 * Copyright 2009 OpenSourceCodeStewardshipFoundation.org
Me@50 3 * Licensed under GNU General Public License version 2
Me@50 4 *
Me@50 5 * Author: seanhalle@yahoo.com
Me@50 6 *
Me@50 7 * Created on November 14, 2009, 9:07 PM
Me@50 8 */
Me@50 9
Me@50 10 #include <malloc.h>
Me@53 11 #include <stdlib.h>
Me@50 12
Me@50 13 #include "VMS.h"
Me@50 14
Me@50 15 /*Helper function
Me@50 16 *Insert a newly generated free chunk into the first spot on the free list.
Me@50 17 * The chunk is cast as a MallocProlog, so the various pointers in it are
Me@50 18 * accessed with C's help -- and the size of the prolog is easily added to
Me@50 19 * the pointer when a chunk is returned to the app -- so C handles changes
Me@50 20 * in pointer sizes among machines.
Me@50 21 *
Me@50 22 *The list head is a normal MallocProlog struct -- identified by its
Me@50 23 * prevChunkInFreeList being NULL -- the only one.
Me@50 24 *
Me@50 25 *The end of the list is identified by next chunk being NULL, as usual.
Me@50 26 */
Me@50 27 void inline
Me@50 28 add_chunk_to_free_list( MallocProlog *chunk, MallocProlog *listHead )
Me@50 29 {
Me@50 30 chunk->nextChunkInFreeList = listHead->nextChunkInFreeList;
Me@50 31 if( chunk->nextChunkInFreeList != NULL ) //if not last in free list
Me@50 32 chunk->nextChunkInFreeList->prevChunkInFreeList = chunk;
Me@50 33 chunk->prevChunkInFreeList = listHead;
Me@50 34 listHead->nextChunkInFreeList = chunk;
Me@50 35 }
Me@50 36
Me@50 37
Me@50 38 /*This is sequential code, meant to only be called from the Master, not from
Me@50 39 * any slave VPs.
Me@50 40 *Search down list, checking size by the nextHigherInMem pointer, to find
Me@50 41 * first chunk bigger than size needed.
Me@50 42 *Shave off the extra and make it into a new free-list element, hook it in
Me@50 43 * then return the address of the found element plus size of prolog.
Me@50 44 *
Me@50 45 *Will find a
Me@50 46 */
Me@50 47 void *
Me@50 48 VMS__malloc( int32 sizeRequested )
Me@50 49 { MallocProlog *foundElem = NULL, *currElem, *newElem;
Me@50 50 int32 amountExtra, foundElemIsTopOfHeap, sizeConsumed,sizeOfFound;
Me@50 51
Me@65 52 //============================= MEASUREMENT STUFF ========================
Me@65 53 #ifdef MEAS__TIME_MALLOC
Me@65 54 int32 startStamp, endStamp;
Me@65 55 saveLowTimeStampCountInto( startStamp );
Me@65 56 #endif
Me@65 57 //========================================================================
Me@65 58
Me@50 59 //step up the size to be aligned at 16-byte boundary, prob better ways
Me@50 60 sizeRequested = ((sizeRequested + 16) >> 4) << 4;
Me@50 61 currElem = (_VMSMasterEnv->freeListHead)->nextChunkInFreeList;
Me@50 62
Me@50 63 while( currElem != NULL )
Me@50 64 { //check if size of currElem is big enough
Me@50 65 sizeOfFound=(int32)((char*)currElem->nextHigherInMem -(char*)currElem);
Me@50 66 amountExtra = sizeOfFound - sizeRequested - sizeof(MallocProlog);
Me@50 67 if( amountExtra > 0 )
Me@50 68 { //found it, get out of loop
Me@50 69 foundElem = currElem;
Me@50 70 currElem = NULL;
Me@50 71 }
Me@50 72 else
Me@50 73 currElem = currElem->nextChunkInFreeList;
Me@50 74 }
Me@50 75
Me@50 76 if( foundElem == NULL )
Me@55 77 { ERROR("\nmalloc failed\n")
Me@60 78 return (void *)NULL; //indicates malloc failed
Me@50 79 }
Me@50 80 //Using a kludge to identify the element that is the top chunk in the
Me@50 81 // heap -- saving top-of-heap addr in head's nextHigherInMem -- and
Me@50 82 // save addr of start of heap in head's nextLowerInMem
Me@50 83 //Will handle top of Heap specially
Me@50 84 foundElemIsTopOfHeap = foundElem->nextHigherInMem ==
Me@50 85 _VMSMasterEnv->freeListHead->nextHigherInMem;
Me@50 86
Me@50 87 //before shave off and try to insert new elem, remove found elem
Me@50 88 //note, foundElem will never be the head, so always has valid prevChunk
Me@50 89 foundElem->prevChunkInFreeList->nextChunkInFreeList =
Me@50 90 foundElem->nextChunkInFreeList;
Me@50 91 if( foundElem->nextChunkInFreeList != NULL )
Me@50 92 { foundElem->nextChunkInFreeList->prevChunkInFreeList =
Me@50 93 foundElem->prevChunkInFreeList;
Me@50 94 }
Me@50 95 foundElem->prevChunkInFreeList = NULL;//indicates elem currently allocated
Me@50 96
Me@50 97 //if enough, turn extra into new elem & insert it
Me@50 98 if( amountExtra > 64 )
Me@50 99 { //make new elem by adding to addr of curr elem then casting
Me@50 100 sizeConsumed = sizeof(MallocProlog) + sizeRequested;
Me@50 101 newElem = (MallocProlog *)( (char *)foundElem + sizeConsumed );
Me@50 102 newElem->nextHigherInMem = foundElem->nextHigherInMem;
Me@50 103 newElem->nextLowerInMem = foundElem;
Me@50 104 foundElem->nextHigherInMem = newElem;
Me@50 105
Me@50 106 if( ! foundElemIsTopOfHeap )
Me@50 107 { //there is no next higher for top of heap, so can't write to it
Me@50 108 newElem->nextHigherInMem->nextLowerInMem = newElem;
Me@50 109 }
Me@50 110 add_chunk_to_free_list( newElem, _VMSMasterEnv->freeListHead );
Me@50 111 }
Me@50 112 else
Me@50 113 {
Me@50 114 sizeConsumed = sizeOfFound;
Me@50 115 }
Me@50 116 _VMSMasterEnv->amtOfOutstandingMem += sizeConsumed;
Me@50 117
Me@65 118 //============================= MEASUREMENT STUFF ========================
Me@65 119 #ifdef MEAS__TIME_MALLOC
Me@65 120 saveLowTimeStampCountInto( endStamp );
Me@65 121 addIntervalToHist( startStamp, endStamp, _VMSMasterEnv->mallocTimeHist );
Me@65 122 #endif
Me@65 123 //========================================================================
Me@65 124
Me@50 125 //skip over the prolog by adding its size to the pointer return
Me@50 126 return (void *)((char *)foundElem + sizeof(MallocProlog));
Me@50 127 }
Me@50 128
Me@50 129
Me@50 130 /*This is sequential code -- only to be called from the Master
Me@50 131 * When free, subtract the size of prolog from pointer, then cast it to a
Me@50 132 * MallocProlog. Then check the nextLower and nextHigher chunks to see if
Me@50 133 * one or both are also free, and coalesce if so, and if neither free, then
Me@50 134 * add this one to free-list.
Me@50 135 */
Me@50 136 void
Me@50 137 VMS__free( void *ptrToFree )
Me@50 138 { MallocProlog *elemToFree, *nextLowerElem, *nextHigherElem;
Me@50 139 int32 lowerExistsAndIsFree, higherExistsAndIsFree, sizeOfElem;
Me@50 140
Me@65 141 //============================= MEASUREMENT STUFF ========================
Me@65 142 #ifdef MEAS__TIME_MALLOC
Me@65 143 int32 startStamp, endStamp;
Me@65 144 saveLowTimeStampCountInto( startStamp );
Me@65 145 #endif
Me@65 146 //========================================================================
Me@65 147
Me@53 148 if( ptrToFree < (void*)_VMSMasterEnv->freeListHead->nextLowerInMem ||
Me@53 149 ptrToFree > (void*)_VMSMasterEnv->freeListHead->nextHigherInMem )
Me@50 150 { //outside the range of data owned by VMS's malloc, so do nothing
Me@50 151 return;
Me@50 152 }
Me@50 153 //subtract size of prolog to get pointer to prolog, then cast
Me@50 154 elemToFree = (MallocProlog *)((char *)ptrToFree - sizeof(MallocProlog));
Me@50 155 sizeOfElem =(int32)((char*)elemToFree->nextHigherInMem-(char*)elemToFree);
Me@53 156
Me@53 157 if( elemToFree->prevChunkInFreeList != NULL )
Me@53 158 { printf( "error: freeing same element twice!" ); exit(1);
Me@53 159 }
Me@53 160
Me@50 161 _VMSMasterEnv->amtOfOutstandingMem -= sizeOfElem;
Me@50 162
Me@50 163 nextLowerElem = elemToFree->nextLowerInMem;
Me@50 164 nextHigherElem = elemToFree->nextHigherInMem;
Me@50 165
Me@50 166 if( nextHigherElem == NULL )
Me@50 167 higherExistsAndIsFree = FALSE;
Me@50 168 else //okay exists, now check if in the free-list by checking back ptr
Me@50 169 higherExistsAndIsFree = (nextHigherElem->prevChunkInFreeList != NULL);
Me@50 170
Me@50 171 if( nextLowerElem == NULL )
Me@50 172 lowerExistsAndIsFree = FALSE;
Me@50 173 else //okay, it exists, now check if it's free
Me@50 174 lowerExistsAndIsFree = (nextLowerElem->prevChunkInFreeList != NULL);
Me@50 175
Me@50 176
Me@50 177 //now, know what exists and what's free
Me@50 178 if( lowerExistsAndIsFree )
Me@50 179 { if( higherExistsAndIsFree )
Me@50 180 { //both exist and are free, so coalesce all three
Me@50 181 //First, remove higher from free-list
Me@50 182 nextHigherElem->prevChunkInFreeList->nextChunkInFreeList =
Me@50 183 nextHigherElem->nextChunkInFreeList;
Me@50 184 if( nextHigherElem->nextChunkInFreeList != NULL ) //end-of-list?
Me@50 185 nextHigherElem->nextChunkInFreeList->prevChunkInFreeList =
Me@50 186 nextHigherElem->prevChunkInFreeList;
Me@50 187 //Now, fix-up sequence-in-mem list -- by side-effect, this also
Me@50 188 // changes size of the lower elem, which is still in free-list
Me@50 189 nextLowerElem->nextHigherInMem = nextHigherElem->nextHigherInMem;
Me@50 190 if( nextHigherElem->nextHigherInMem !=
Me@50 191 _VMSMasterEnv->freeListHead->nextHigherInMem )
Me@50 192 nextHigherElem->nextHigherInMem->nextLowerInMem = nextLowerElem;
Me@50 193 //notice didn't do anything to elemToFree -- it simply is no
Me@50 194 // longer reachable from any of the lists. Wonder if could be a
Me@50 195 // security leak because left valid addresses in it,
Me@50 196 // but don't care for now.
Me@50 197 }
Me@50 198 else
Me@50 199 { //lower is the only of the two that exists and is free,
Me@50 200 //In this case, no adjustment to free-list, just change mem-list.
Me@50 201 // By side-effect, changes size of the lower elem
Me@50 202 nextLowerElem->nextHigherInMem = elemToFree->nextHigherInMem;
Me@50 203 if( elemToFree->nextHigherInMem !=
Me@50 204 _VMSMasterEnv->freeListHead->nextHigherInMem )
Me@50 205 elemToFree->nextHigherInMem->nextLowerInMem = nextLowerElem;
Me@50 206 }
Me@50 207 }
Me@50 208 else
Me@50 209 { //lower either doesn't exist or isn't free, so check higher
Me@50 210 if( higherExistsAndIsFree )
Me@50 211 { //higher exists and is the only of the two free
Me@50 212 //First, in free-list, replace higher elem with the one to free
Me@50 213 elemToFree->nextChunkInFreeList=nextHigherElem->nextChunkInFreeList;
Me@50 214 elemToFree->prevChunkInFreeList=nextHigherElem->prevChunkInFreeList;
Me@50 215 elemToFree->prevChunkInFreeList->nextChunkInFreeList = elemToFree;
Me@50 216 if( elemToFree->nextChunkInFreeList != NULL ) // end-of-list?
Me@50 217 elemToFree->nextChunkInFreeList->prevChunkInFreeList =elemToFree;
Me@50 218 //Now chg mem-list. By side-effect, changes size of elemToFree
Me@50 219 elemToFree->nextHigherInMem = nextHigherElem->nextHigherInMem;
Me@50 220 if( elemToFree->nextHigherInMem !=
Me@50 221 _VMSMasterEnv->freeListHead->nextHigherInMem )
Me@50 222 elemToFree->nextHigherInMem->nextLowerInMem = elemToFree;
Me@50 223 }
Me@50 224 else
Me@50 225 { //neither lower nor higher is availabe to coalesce so add to list
Me@50 226 // this makes prev chunk ptr non-null, which indicates it's free
Me@50 227 elemToFree->nextChunkInFreeList =
Me@50 228 _VMSMasterEnv->freeListHead->nextChunkInFreeList;
Me@50 229 _VMSMasterEnv->freeListHead->nextChunkInFreeList = elemToFree;
Me@50 230 if( elemToFree->nextChunkInFreeList != NULL ) // end-of-list?
Me@50 231 elemToFree->nextChunkInFreeList->prevChunkInFreeList =elemToFree;
Me@50 232 elemToFree->prevChunkInFreeList = _VMSMasterEnv->freeListHead;
Me@50 233 }
Me@50 234 }
Me@65 235 //============================= MEASUREMENT STUFF ========================
Me@65 236 #ifdef MEAS__TIME_MALLOC
Me@65 237 saveLowTimeStampCountInto( endStamp );
Me@65 238 addIntervalToHist( startStamp, endStamp, _VMSMasterEnv->freeTimeHist );
Me@65 239 #endif
Me@65 240 //========================================================================
Me@50 241
Me@50 242 }
Me@50 243
Me@50 244
Me@53 245 /*Allocates memory from the external system -- higher overhead
Me@53 246 *
Me@53 247 *Because of Linux's malloc throwing bizarre random faults when malloc is
Me@53 248 * used inside a VMS virtual processor, have to pass this as a request and
Me@53 249 * have the core loop do it when it gets around to it -- will look for these
Me@53 250 * chores leftover from the previous animation of masterVP the next time it
Me@53 251 * goes to animate the masterVP -- so it takes two separate masterVP
Me@53 252 * animations, separated by work, to complete an external malloc or
Me@53 253 * external free request.
Me@53 254 *
Me@53 255 *Thinking core loop accepts signals -- just looks if signal-location is
Me@53 256 * empty or not --
Me@53 257 */
Me@53 258 void *
Me@53 259 VMS__malloc_in_ext( int32 sizeRequested )
Me@53 260 {
Me@53 261 /*
Me@53 262 //This is running in the master, so no chance for multiple cores to be
Me@53 263 // competing for the core's flag.
Me@53 264 if( *(_VMSMasterEnv->coreLoopSignalAddr[ 0 ]) != 0 )
Me@53 265 { //something has already signalled to core loop, so save the signal
Me@53 266 // and look, next time master animated, to see if can send it.
Me@53 267 //Note, the addr to put a signal is in the coreloop's frame, so just
Me@53 268 // checks it each time through -- make it volatile to avoid GCC
Me@53 269 // optimizations -- it's a coreloop local var that only changes
Me@53 270 // after jumping away. The signal includes the addr to send the
Me@53 271 //return to -- even if just empty return completion-signal
Me@53 272 //
Me@53 273 //save the signal in some queue that the master looks at each time
Me@53 274 // it starts up -- one loc says if empty for fast common case --
Me@53 275 //something like that -- want to hide this inside this call -- but
Me@53 276 // think this has to come as a request -- req handler gives procr
Me@53 277 // back to master loop, which gives it back to req handler at point
Me@53 278 // it sees that core loop has sent return signal. Something like
Me@53 279 // that.
Me@53 280 saveTheSignal
Me@53 281
Me@53 282 }
Me@53 283 coreSigData->type = malloc;
Me@53 284 coreSigData->sizeToMalloc = sizeRequested;
Me@53 285 coreSigData->locToSignalCompletion = &figureOut;
Me@53 286 _VMSMasterEnv->coreLoopSignals[ 0 ] = coreSigData;
Me@53 287 */
Me@53 288 //just risk system-stack faults until get this figured out
Me@53 289 return malloc( sizeRequested );
Me@53 290 }
Me@53 291
Me@53 292
Me@53 293 /*Frees memory that was allocated in the external system -- higher overhead
Me@53 294 *
Me@53 295 *As noted in external malloc comment, this is clunky 'cause the free has
Me@53 296 * to be called in the core loop.
Me@53 297 */
Me@53 298 void
Me@53 299 VMS__free_in_ext( void *ptrToFree )
Me@53 300 {
Me@53 301 //just risk system-stack faults until get this figured out
Me@53 302 free( ptrToFree );
Me@53 303
Me@53 304 //TODO: fix this -- so
Me@53 305 }
Me@53 306
Me@53 307
Me@50 308 /*Designed to be called from the main thread outside of VMS, during init
Me@50 309 */
Me@50 310 MallocProlog *
Me@53 311 VMS_ext__create_free_list()
Me@50 312 { MallocProlog *freeListHead, *firstChunk;
Me@50 313
Me@50 314 //Note, this is running in the main thread -- all increases in malloc
Me@50 315 // mem and all frees of it must be done in this thread, with the
Me@50 316 // thread's original stack available
Me@50 317 freeListHead = malloc( sizeof(MallocProlog) );
Me@50 318 firstChunk = malloc( MALLOC_ADDITIONAL_MEM_FROM_OS_SIZE );
Me@50 319 if( firstChunk == NULL ) {printf("malloc error\n"); exit(1);}
Me@50 320
Me@50 321 freeListHead->prevChunkInFreeList = NULL;
Me@50 322 //Use this addr to free the heap when cleanup
Me@50 323 freeListHead->nextLowerInMem = firstChunk;
Me@50 324 //to identify top-of-heap elem, compare this addr to elem's next higher
Me@53 325 freeListHead->nextHigherInMem = (void*)( (char*)firstChunk +
Me@53 326 MALLOC_ADDITIONAL_MEM_FROM_OS_SIZE);
Me@50 327 freeListHead->nextChunkInFreeList = firstChunk;
Me@50 328
Me@50 329 firstChunk->nextChunkInFreeList = NULL;
Me@50 330 firstChunk->prevChunkInFreeList = freeListHead;
Me@50 331 //next Higher has to be set to top of chunk, so can calc size in malloc
Me@53 332 firstChunk->nextHigherInMem = (void*)( (char*)firstChunk +
Me@53 333 MALLOC_ADDITIONAL_MEM_FROM_OS_SIZE);
Me@50 334 firstChunk->nextLowerInMem = NULL; //identifies as bott of heap
Me@53 335
Me@53 336 _VMSMasterEnv->amtOfOutstandingMem = 0; //none allocated yet
Me@50 337
Me@50 338 return freeListHead;
Me@50 339 }
Me@50 340
Me@50 341
Me@50 342 /*Designed to be called from the main thread outside of VMS, during cleanup
Me@50 343 */
Me@50 344 void
Me@50 345 VMS_ext__free_free_list( MallocProlog *freeListHead )
Me@50 346 {
Me@50 347 //stashed a ptr to the one and only bug chunk malloc'd from OS in the
Me@50 348 // free list head's next lower in mem pointer
Me@50 349 free( freeListHead->nextLowerInMem );
Me@50 350
Me@50 351 //don't free the head -- it'll be in an array eventually -- free whole
Me@50 352 // array when all the free lists linked from it have already been freed
Me@50 353 }
Me@50 354