Changeset 3a4834b3


Ignore:
Timestamp:
Sep 2, 2020, 5:56:59 PM (4 years ago)
Author:
Peter A. Buhr <pabuhr@…>
Branches:
ADT, arm-eh, ast-experimental, enum, forall-pointer-decay, jacob/cs343-translation, master, new-ast-unique-expr, pthread-emulation, qualifiedEnum
Children:
406970b1
Parents:
f8acfc0 (diff), f76ff0b (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 into master

Files:
1 added
4 edited

Legend:

Unmodified
Added
Removed
  • libcfa/src/heap.cfa

    rf8acfc0 r3a4834b3  
    12391239        size_t odsize = dataStorage( bsize, oaddr, header ); // data storage available in bucket
    12401240
    1241         if ( oalign <= nalign && (uintptr_t)oaddr % nalign == 0 ) { // <= alignment and new alignment happens to match
    1242                 if ( oalign > libAlign() ) {                                    // fake header ?
    1243                         headerAddr( oaddr )->kind.fake.alignment = nalign | 1; // update alignment (could be the same)
    1244                 } // if
     1241        if ( oalign == nalign && size <= odsize && odsize <= size * 2 ) { // <= alignment and new alignment are same, allow 50% wasted storage for smaller size
     1242                header->kind.real.blockSize &= -2;                      // turn off 0 fill
     1243                header->kind.real.size = size;                          // reset allocation size
     1244                return oaddr;
     1245        } // if
     1246        if ( oalign < nalign && (uintptr_t)oaddr % nalign == 0 && oalign > libAlign() ) { // <= alignment and new alignment happens to match, and oaddr has a fake header
     1247                headerAddr( oaddr )->kind.fake.alignment = nalign | 1; // update alignment (could be the same)
    12451248                if ( size <= odsize && odsize <= size * 2 ) {   // allow 50% wasted storage for smaller size
    12461249                        header->kind.real.blockSize &= -2;                      // turn off 0 fill
     
    12821285        headers( "realloc", oaddr, header, freeElem, bsize, oalign );
    12831286
    1284         if ( oalign <= nalign && (uintptr_t)oaddr % nalign == 0 ) { // <= alignment and new alignment happens to match
    1285                 if ( oalign > libAlign() ) {                                    // fake header ?
    1286                         headerAddr( oaddr )->kind.fake.alignment = nalign | 1; // update alignment (could be the same)
    1287                 } // if
     1287        if ( oalign == nalign ) { // <= alignment and new alignment are same
     1288                return realloc( oaddr, size );
     1289        } // if
     1290        if ( oalign < nalign && (uintptr_t)oaddr % nalign == 0 && oalign > libAlign() ) { // <= alignment and new alignment happens to match, and oaddr has a fake header
     1291                headerAddr( oaddr )->kind.fake.alignment = nalign | 1; // update alignment (could be the same)
    12881292                return realloc( oaddr, size );
    12891293        } // if
  • libcfa/src/stdlib.hfa

    rf8acfc0 r3a4834b3  
    179179
    180180                if ( Resize ) {
    181 //printf("1. $alloc_internal got: %p %p %lu %lu\n", Resize, Realloc, Align, Dim); // these prints are temporary
    182181                        ptr = (T*) (void *) resize( (void *)Resize, Align, Dim * size );
    183182                } else if ( Realloc ) {
    184183                        if (Fill.tag != '0') copy_end = min(malloc_size( Realloc ), Dim * size);
    185 //printf("2. $alloc_internal got: %p %p %lu %lu\n", Resize, Realloc, Align, Dim);
    186184                        ptr = (T*) (void *) realloc( (void *)Realloc, Align, Dim * size );
    187185                } else {
    188 //printf("3. $alloc_internal got: %p %p %lu %lu\n", Resize, Realloc, Align, Dim);
    189186                        ptr = (T*) (void *) memalign( Align, Dim * size );
    190187                }
  • tests/alloc2.cfa

    rf8acfc0 r3a4834b3  
    1 /*
    2         some tests are commented-out because of resize/realloc bug from 0p. They should be uncommented after that bug is resolved.
    3 */
    4 
    51#include <malloc.h>                                                                             // malloc_usable_size
    62#include <stdint.h>                                                                             // uintptr_t
     
    2016        if (!passed) {
    2117                printf("failed test %3d: %4lu %4lu but got %4lu ( %3lu ) %4lu\n", tests_total, size, align, malloc_size(ip), malloc_usable_size(ip), malloc_alignment(ip));
    22 //              if (last_failed != tests_total) {
    23                         tests_failed += 1;
    24 //                      last_failed = tests_total;
    25 //              }
     18                tests_failed += 1;
    2619        }
    2720}
     
    3427        if (!passed) {
    3528                printf("failed test %3d: fill C\n", tests_total);
    36 //              if (last_failed != tests_total) {
    37                         tests_failed += 1;
    38 //                      last_failed = tests_total;
    39 //              }
     29                tests_failed += 1;
    4030        }
    4131}
     
    4838        if (!passed) {
    4939                printf("failed test %3d: fill int\n", tests_total);
    50 //              if (last_failed != tests_total) {
    51                         tests_failed += 1;
    52 //                      last_failed = tests_total;
    53 //              }
     40                tests_failed += 1;
    5441        }
    5542}
     
    6047        if (!passed) {
    6148                printf("failed test %3d: fill int A\n", tests_total);
    62 //              if (last_failed != tests_total) {
    63                         tests_failed += 1;
    64 //                      last_failed = tests_total;
    65 //              }
     49                tests_failed += 1;
    6650        }
    6751}
     
    7458        if (!passed) {
    7559                printf("failed test %3d: fill T1\n", tests_total);
    76 //              if (last_failed != tests_total) {
    77                         tests_failed += 1;
    78 //                      last_failed = tests_total;
    79 //              }
     60                tests_failed += 1;
    8061        }
    8162}
     
    8667        if (!passed) {
    8768                printf("failed test %3d: fill T1 A\n", tests_total);
    88 //              if (last_failed != tests_total) {
    89                         tests_failed += 1;
    90 //                      last_failed = tests_total;
    91 //              }
     69                tests_failed += 1;
    9270        }
    9371}
     
    10078        if (!passed) {
    10179                printf("failed test %3d: use int\n", tests_total);
    102 //              if (last_failed != tests_total) {
    103                         tests_failed += 1;
    104 //                      last_failed = tests_total;
    105 //              }
     80                tests_failed += 1;
    10681        }
    10782}
     
    11489        if (!passed) {
    11590                printf("failed test %3d: use T1\n", tests_total);
    116 //              if (last_failed != tests_total) {
    117                         tests_failed += 1;
    118 //                      last_failed = tests_total;
    119 //              }
     91                tests_failed += 1;
    12092        }
    12193}
     
    331303        free(ip);
    332304
    333 //      ip = alloc( 0, ((int*)0p)`realloc, FillT`fill );
    334 //      est_base(ip, 0, libAlign);
    335 //      free(ip);
     305        ip = alloc( 0, ((int*)0p)`realloc, FillT`fill );
     306        test_base(ip, 0, libAlign);
     307        free(ip);
    336308
    337309        ip = alloc( align`align );
     
    356328        free(ip);
    357329
    358 //      ip = alloc( ((int*)0p)`realloc, align`align );
    359 //      est_base(ip, elemSize, align);
    360 //      est_use(ip, elemSize / elemSize);
    361 //      free(ip);
     330        ip = alloc( ((int*)0p)`realloc, align`align );
     331        test_base(ip, elemSize, align);
     332        test_use(ip, elemSize / elemSize);
     333        free(ip);
    362334
    363335        dp = alloc( dim );
     
    367339        free(ip);
    368340
    369 //      ip = alloc( ((double*)0p)`resize, align`align );
    370 //      est_base(ip, elemSize, align);
    371 //      est_use(ip, elemSize / elemSize);
    372 //      free(ip);
     341        ip = alloc( ((double*)0p)`resize, align`align );
     342        test_base(ip, elemSize, align);
     343        test_use(ip, elemSize / elemSize);
     344        free(ip);
    373345
    374346        op = alloc( dim, ((int)0xdeadbeef)`fill);
     
    384356        free(ip);
    385357
    386 //      ip = alloc( dim, ((int*)0p)`realloc, align`align );
    387 //      est_base(ip, size, align);
    388 //      est_use(ip, size / elemSize);
    389 //      free(ip);
    390 
    391 //      ip = alloc( 0, ((int*)0p)`realloc, align`align );
    392 //      est_base(ip, 0, align);
    393 //      free(ip);
     358        ip = alloc( dim, ((int*)0p)`realloc, align`align );
     359        test_base(ip, size, align);
     360        test_use(ip, size / elemSize);
     361        free(ip);
     362
     363        ip = alloc( 0, ((int*)0p)`realloc, align`align );
     364        test_base(ip, 0, libAlign);
     365        free(ip);
    394366
    395367        ip = alloc( align`align, FillC`fill );
     
    462434        free(ip);
    463435
    464 //      ip = alloc( dim, ((int*)0p)`realloc, align`align, FillC`fill );
    465 //      est_base(ip, size, align);
    466 //      est_fill(ip, 0, size, FillC);
    467 //      est_use(ip, size / elemSize);
    468 //      free(ip);
    469 
    470 //      ip = alloc( 0, ((int*)0p)`realloc, align`align, FillC`fill );
    471 //      est_base(ip, 0, align);
    472 //      free(ip);
     436        ip = alloc( dim, ((int*)0p)`realloc, align`align, FillC`fill );
     437        test_base(ip, size, align);
     438        test_fill(ip, 0, size, FillC);
     439        test_use(ip, size / elemSize);
     440        free(ip);
     441
     442        ip = alloc( 0, ((int*)0p)`realloc, align`align, FillC`fill );
     443        test_base(ip, 0, libAlign);
     444        free(ip);
    473445
    474446        op = alloc( dim, ((int)0xdeadbeef)`fill );
     
    499471        free(ip);
    500472
    501 //      ip = alloc( dim, ((int*)0p)`realloc, align`align, FillT`fill );
    502 //      est_base(ip, size, align);
    503 //      est_fill(ip, 0, dim, FillT);
    504 //      est_use(ip, size / elemSize);
    505 //      free(ip);
    506 
    507 //      ip = alloc( 0, ((int*)0p)`realloc, align`align, FillT`fill );
    508 //      est_base(ip, 0, align);
    509 //      free(ip);
     473        ip = alloc( dim, ((int*)0p)`realloc, align`align, FillT`fill );
     474        test_base(ip, size, align);
     475        test_fill(ip, 0, dim, FillT);
     476        test_use(ip, size / elemSize);
     477        free(ip);
     478
     479        ip = alloc( 0, ((int*)0p)`realloc, align`align, FillT`fill );
     480        test_base(ip, 0, libAlign);
     481        free(ip);
    510482
    511483        if (tests_failed == 0) printf("PASSED alloc tests\n\n");
     
    704676        free(t1p);
    705677
    706 //      t1p = alloc( (T1*)0p, 0, FillT1 );
    707 //      est_base(t1p, 0, tAlign);
    708 //      free(t1p);
     678        t1p = alloc( 0, ((T1*)0p)`realloc, FillT1`fill );
     679        test_base(t1p, 0, libAlign);
     680        free(t1p);
    709681
    710682        t1p = alloc( align`align );
     
    729701        free(t1p);
    730702
    731 //      t1p = alloc( ((T1*)0p)`realloc, align`align );
    732 //      est_base(t1p, elemSize, align);
    733 //      est_use(t1p, elemSize / elemSize);
    734 //      free(t1p);
     703        t1p = alloc( ((T1*)0p)`realloc, align`align );
     704        test_base(t1p, elemSize, align);
     705        test_use(t1p, elemSize / elemSize);
     706        free(t1p);
    735707
    736708        dp = alloc( dim );
     
    740712        free(t1p);
    741713
    742 //      t1p = alloc( ((double*)0p)`resize, align`align );
    743 //      est_base(t1p, elemSize, align);
    744 //      est_use(t1p, elemSize / elemSize);
    745 //      free(t1p);
     714        t1p = alloc( ((double*)0p)`resize, align`align );
     715        test_base(t1p, elemSize, align);
     716        test_use(t1p, elemSize / elemSize);
     717        free(t1p);
    746718
    747719        t1op = alloc( dim, ((T1){0xdeadbeef})`fill );
     
    757729        free(t1p);
    758730
    759 //      t1p = alloc( dim, ((T1*)0p)`realloc, align`align );
    760 //      est_base(t1p, size, align);
    761 //      est_use(t1p, size / elemSize);
    762 //      free(t1p);
    763 
    764 //      t1p = alloc( 0, ((T1*)0p)`realloc, align`align );
    765 //      est_base(t1p, 0, align);
    766 //      free(t1p);
     731        t1p = alloc( dim, ((T1*)0p)`realloc, align`align );
     732        test_base(t1p, size, align);
     733        test_use(t1p, size / elemSize);
     734        free(t1p);
     735
     736        t1p = alloc( 0, ((T1*)0p)`realloc, align`align );
     737        test_base(t1p, 0, libAlign);
     738        free(t1p);
    767739
    768740        t1p = alloc( align`align, FillC`fill );
     
    835807        free(t1p);
    836808
    837 //      t1p = alloc( dim, ((T1*)0p)`realloc, align`align, FillC`fill );
    838 //      est_base(t1p, size, align);
    839 //      est_fill(t1p, 0, size, FillC);
    840 //      est_use(t1p, size / elemSize);
    841 //      free(t1p);
    842 
    843 //      t1p = alloc( 0, ((T1*)0p)`realloc, align`align, FillC`fill );
    844 //      est_base(t1p, 0, align);
    845 //      free(t1p);
     809        t1p = alloc( dim, ((T1*)0p)`realloc, align`align, FillC`fill );
     810        test_base(t1p, size, align);
     811        test_fill(t1p, 0, size, FillC);
     812        test_use(t1p, size / elemSize);
     813        free(t1p);
     814
     815        t1p = alloc( 0, ((T1*)0p)`realloc, align`align, FillC`fill );
     816        test_base(t1p, 0, libAlign);
     817        free(t1p);
    846818
    847819        t1op = alloc( dim, ((T1){0xdeadbeef})`fill);
     
    872844        free(t1p);
    873845
    874 //      t1p = alloc( dim, ((T1*)0p)`realloc, align`aling, FillT1`fill );
    875 //      est_base(t1p, size, align);
    876 //      est_fill(t1p, 0, dim, FillT1);
    877 //      est_use(t1p, size / elemSize);
    878 //      free(t1p);
    879 
    880 //      t1p = alloc( 0, ((T1*)0p)`realloc, align`align, FillT1`fill );
    881 //      est_base(t1p, 0, align);
    882 //      free(t1p);
     846        t1p = alloc( dim, ((T1*)0p)`realloc, align`align, FillT1`fill );
     847        test_base(t1p, size, align);
     848        test_fill(t1p, 0, dim, FillT1);
     849        test_use(t1p, size / elemSize);
     850        free(t1p);
     851
     852        t1p = alloc( 0, ((T1*)0p)`realloc, align`align, FillT1`fill );
     853        test_base(t1p, 0, libAlign);
     854        free(t1p);
    883855
    884856        if (tests_failed == 0) printf("PASSED alloc tests (aligned struct)\n\n");
  • tests/malloc.cfa

    rf8acfc0 r3a4834b3  
    252252
    253253        ip = (int *) (void *) malloc( size );
     254        ip = (int *) (void *) resize( (void *) ip, libAlign, size / 2 );
     255        test_base(ip, size / 2, libAlign);
     256        test_use(ip);
     257        free(ip);
     258
     259        ip = (int *) (void *) aligned_alloc( align, size );
     260        ip = (int *) (void *) resize( (void *) ip, align, size / 2 );
     261        test_base(ip, size / 2, align);
     262        test_use(ip);
     263        free(ip);
     264
     265        ip = (int *) (void *) malloc( size );
    254266        ip = (int *) (void *) resize( (void *) ip, align, size / 4 );
    255267        test_base(ip, size / 4, align);
     
    270282        ip = (int *) (void *) resize( 0p, align, size );
    271283        test_base(ip, size, align);
     284        test_use(ip);
     285        free(ip);
     286
     287        ip = (int *) (void *) calloc( dim, elemSize );
     288        ip = (int *) (void *) realloc( (void *) ip, libAlign, size / 2 );
     289        test_base(ip, size / 2, libAlign);
     290        test_fill(ip, 0, size / 2, '\0');
     291        test_use(ip);
     292        free(ip);
     293
     294        ip = (int *) (void *) cmemalign( align, dim, elemSize );
     295        ip = (int *) (void *) realloc( (void *) ip, align, size / 2 );
     296        test_base(ip, size / 2, align);
     297        test_fill(ip, 0, size / 2, '\0');
    272298        test_use(ip);
    273299        free(ip);
     
    437463        else printf("failed CFA malloc tests : %d/%d\n\n", tests_failed, tests_total);
    438464
    439         // testing CFA malloc
     465        // testing CFA malloc with aligned struct
    440466
    441467        elemSize = sizeof(T1);
Note: See TracChangeset for help on using the changeset viewer.