Ignore:
Timestamp:
Dec 17, 2020, 4:18:23 PM (10 months ago)
Author:
Thierry Delisle <tdelisle@…>
Branches:
arm-eh, jacob/cs343-translation, master, new-ast-unique-expr
Children:
089b1a9, f4f79dd
Parents:
c5a98f3 (diff), 68a867ee (diff)
Note: this is a merge changeset, the changes displayed below correspond to the merge itself.
Use the (diff) links above to see all the changes relative to each parent.
Message:

Merge branch 'master' of plg.uwaterloo.ca:software/cfa/cfa-cc

File:
1 edited

Legend:

Unmodified
Added
Removed
  • libcfa/src/heap.cfa

    rc5a98f3 r41cde266  
    1010// Created On       : Tue Dec 19 21:58:35 2017
    1111// Last Modified By : Peter A. Buhr
    12 // Last Modified On : Sun Dec 13 22:04:10 2020
    13 // Update Count     : 984
     12// Last Modified On : Wed Dec 16 12:28:25 2020
     13// Update Count     : 1023
    1414//
    1515
    1616#include <unistd.h>                                                                             // sbrk, sysconf
     17#include <stdlib.h>                                                                             // EXIT_FAILURE
    1718#include <stdbool.h>                                                                    // true, false
    1819#include <stdio.h>                                                                              // snprintf, fileno
     
    7172        // Define the default extension heap amount in units of bytes. When the uC++ supplied heap reaches the brk address,
    7273        // the brk address is extended by the extension amount.
    73         __CFA_DEFAULT_HEAP_EXPANSION__ = (1 * 1024 * 1024),
     74        __CFA_DEFAULT_HEAP_EXPANSION__ = (10 * 1024 * 1024),
    7475
    7576        // Define the mmap crossover point during allocation. Allocations less than this amount are allocated from buckets;
     
    115116
    116117// statically allocated variables => zero filled.
    117 static size_t pageSize;                                                                 // architecture pagesize
     118size_t __page_size;                                                                             // architecture pagesize
     119int __map_prot;                                                                                 // common mmap/mprotect protection
    118120static size_t heapExpand;                                                               // sbrk advance
    119121static size_t mmapStart;                                                                // cross over point for mmap
     
    249251#endif // FASTLOOKUP
    250252
    251 static int mmapFd = -1;                                                                 // fake or actual fd for anonymous file
     253static const off_t mmapFd = -1;                                                 // fake or actual fd for anonymous file
    252254#ifdef __CFA_DEBUG__
    253255static bool heapBoot = 0;                                                               // detect recursion during boot
     
    374376
    375377static inline bool setMmapStart( size_t value ) {               // true => mmapped, false => sbrk
    376   if ( value < pageSize || bucketSizes[NoBucketSizes - 1] < value ) return false;
     378  if ( value < __page_size || bucketSizes[NoBucketSizes - 1] < value ) return false;
    377379        mmapStart = value;                                                                      // set global
    378380
     
    436438        header = headerAddr( addr );
    437439
    438   if ( unlikely( heapEnd < addr ) ) {                                   // mmapped ?
     440  if ( unlikely( addr < heapBegin || heapEnd < addr ) ) { // mmapped ?
    439441                fakeHeader( header, alignment );
    440442                size = header->kind.real.blockSize & -3;                // mmap size
     
    443445
    444446        #ifdef __CFA_DEBUG__
    445         checkHeader( addr < heapBegin, name, addr );            // bad low address ?
     447        checkHeader( header < (HeapManager.Storage.Header *)heapBegin, name, addr ); // bad low address ?
    446448        #endif // __CFA_DEBUG__
    447449
     
    482484#endif // __CFA_DEBUG__
    483485
     486
    484487#define NO_MEMORY_MSG "insufficient heap memory available for allocating %zd new bytes."
    485488
     
    490493                // If the size requested is bigger than the current remaining storage, increase the size of the heap.
    491494
    492                 size_t increase = ceiling2( size > heapExpand ? size : heapExpand, pageSize );
     495                size_t increase = ceiling2( size > heapExpand ? size : heapExpand, __page_size );
     496                // Do not call abort or strerror( errno ) as they may call malloc.
    493497                if ( sbrk( increase ) == (void *)-1 ) {                 // failed, no memory ?
    494498                        unlock( extlock );
    495                         abort( NO_MEMORY_MSG, size );                           // give up
    496                 } // if
    497                 if ( mprotect( (char *)heapEnd + heapRemaining, increase, PROT_READ | PROT_WRITE | PROT_EXEC ) ) {
    498                         enum { BufferSize = 128 };
    499                         char helpText[BufferSize];
    500                         // Do not call strerror( errno ) as it may call malloc.
    501                         int len = snprintf( helpText, BufferSize, "internal error, extend(), mprotect failure, heapEnd:%p size:%zd, errno:%d.", heapEnd, increase, errno );
    502                         __cfaabi_bits_write( STDERR_FILENO, helpText, len );
     499                        __cfaabi_bits_print_nolock( STDERR_FILENO, NO_MEMORY_MSG, size );
     500                        _exit( EXIT_FAILURE );
     501                } // if
     502                if ( mprotect( (char *)heapEnd + heapRemaining, increase, __map_prot ) ) {
     503                        unlock( extlock );
     504                        __cfaabi_bits_print_nolock( STDERR_FILENO, "extend() : internal error, mprotect failure, heapEnd:%p size:%zd, errno:%d.\n", heapEnd, increase, errno );
     505                        _exit( EXIT_FAILURE );
    503506                } // if
    504507                #ifdef __STATISTICS__
     
    508511                #ifdef __CFA_DEBUG__
    509512                // Set new memory to garbage so subsequent uninitialized usages might fail.
    510                 //memset( (char *)heapEnd + heapRemaining, '\377', increase );
    511                 Memset( (char *)heapEnd + heapRemaining, increase );
     513                memset( (char *)heapEnd + heapRemaining, '\xde', increase );
     514                //Memset( (char *)heapEnd + heapRemaining, increase );
    512515                #endif // __CFA_DEBUG__
    513516                rem = heapRemaining + increase - size;
     
    568571                block->header.kind.real.home = freeElem;                // pointer back to free list of apropriate size
    569572        } else {                                                                                        // large size => mmap
    570   if ( unlikely( size > ULONG_MAX - pageSize ) ) return 0p;
    571                 tsize = ceiling2( tsize, pageSize );                    // must be multiple of page size
     573  if ( unlikely( size > ULONG_MAX - __page_size ) ) return 0p;
     574                tsize = ceiling2( tsize, __page_size );                 // must be multiple of page size
    572575                #ifdef __STATISTICS__
    573576                __atomic_add_fetch( &mmap_calls, 1, __ATOMIC_SEQ_CST );
     
    575578                #endif // __STATISTICS__
    576579
    577                 block = (HeapManager.Storage *)mmap( 0, tsize, PROT_READ | PROT_WRITE | PROT_EXEC, MAP_PRIVATE | MAP_ANONYMOUS, mmapFd, 0 );
     580                block = (HeapManager.Storage *)mmap( 0, tsize, __map_prot, MAP_PRIVATE | MAP_ANONYMOUS, mmapFd, 0 );
    578581                if ( block == (HeapManager.Storage *)MAP_FAILED ) { // failed ?
    579582                        if ( errno == ENOMEM ) abort( NO_MEMORY_MSG, tsize ); // no memory
     
    583586                #ifdef __CFA_DEBUG__
    584587                // Set new memory to garbage so subsequent uninitialized usages might fail.
    585                 //memset( block, '\377', tsize );
    586                 Memset( block, tsize );
     588                memset( block, '\xde', tsize );
     589                //Memset( block, tsize );
    587590                #endif // __CFA_DEBUG__
    588591                block->header.kind.real.blockSize = tsize;              // storage size for munmap
     
    624627                #endif // __STATISTICS__
    625628                if ( munmap( header, size ) == -1 ) {
    626                         #ifdef __CFA_DEBUG__
    627629                        abort( "Attempt to deallocate storage %p not allocated or with corrupt header.\n"
    628630                                   "Possible cause is invalid pointer.",
    629631                                   addr );
    630                         #endif // __CFA_DEBUG__
    631632                } // if
    632633        } else {
    633634                #ifdef __CFA_DEBUG__
    634635                // Set free memory to garbage so subsequent usages might fail.
    635                 //memset( ((HeapManager.Storage *)header)->data, '\377', freeElem->blockSize - sizeof( HeapManager.Storage ) );
    636                 Memset( ((HeapManager.Storage *)header)->data, freeElem->blockSize - sizeof( HeapManager.Storage ) );
     636                memset( ((HeapManager.Storage *)header)->data, '\xde', freeElem->blockSize - sizeof( HeapManager.Storage ) );
     637                //Memset( ((HeapManager.Storage *)header)->data, freeElem->blockSize - sizeof( HeapManager.Storage ) );
    637638                #endif // __CFA_DEBUG__
    638639
     
    703704
    704705static void ?{}( HeapManager & manager ) with( manager ) {
    705         pageSize = sysconf( _SC_PAGESIZE );
     706        __page_size = sysconf( _SC_PAGESIZE );
     707        __map_prot = PROT_READ | PROT_WRITE | PROT_EXEC;
    706708
    707709        for ( unsigned int i = 0; i < NoBucketSizes; i += 1 ) { // initialize the free lists
     
    723725
    724726        char * end = (char *)sbrk( 0 );
    725         heapBegin = heapEnd = sbrk( (char *)ceiling2( (long unsigned int)end, pageSize ) - end ); // move start of heap to multiple of alignment
     727        heapBegin = heapEnd = sbrk( (char *)ceiling2( (long unsigned int)end, __page_size ) - end ); // move start of heap to multiple of alignment
    726728} // HeapManager
    727729
     
    741743        #ifdef __CFA_DEBUG__
    742744        if ( heapBoot ) {                                                                       // check for recursion during system boot
    743                 // DO NOT USE STREAMS AS THEY MAY BE UNAVAILABLE AT THIS POINT.
    744745                abort( "boot() : internal error, recursively invoked during system boot." );
    745746        } // if
     
    10281029        } // cmemalign
    10291030
     1031
    10301032        // Same as memalign(), but ISO/IEC 2011 C11 Section 7.22.2 states: the value of size shall be an integral multiple
    10311033    // of alignment. This requirement is universally ignored.
     
    10451047        } // posix_memalign
    10461048
     1049
    10471050        // Allocates size bytes and returns a pointer to the allocated memory. The memory address shall be a multiple of the
    10481051        // page size.  It is equivalent to memalign(sysconf(_SC_PAGESIZE),size).
    10491052        void * valloc( size_t size ) {
    1050                 return memalign( pageSize, size );
     1053                return memalign( __page_size, size );
    10511054        } // valloc
    10521055
     
    10541057        // Same as valloc but rounds size to multiple of page size.
    10551058        void * pvalloc( size_t size ) {
    1056                 return memalign( pageSize, ceiling2( size, pageSize ) );
     1059                return memalign( __page_size, ceiling2( size, __page_size ) );
    10571060        } // pvalloc
    10581061
     
    11931196                choose( option ) {
    11941197                  case M_TOP_PAD:
    1195                         heapExpand = ceiling2( value, pageSize ); return 1;
     1198                        heapExpand = ceiling2( value, __page_size ); return 1;
    11961199                  case M_MMAP_THRESHOLD:
    11971200                        if ( setMmapStart( value ) ) return 1;
Note: See TracChangeset for help on using the changeset viewer.