Changeset 638


Ignore:
Timestamp:
Nov 25, 2015 7:05:36 AM (6 years ago)
Author:
kulshres
Message:

Merge branch 'master' of 'gitclone' into 'svn'

The following commits were merged:

commit dd665e6cf8a03b18c4ff44aa5cf7bced713af86a
Author: franke <mirko.franke@…>
Date: Wed Nov 11 11:15:25 2015 +0100

free memory in lie_gradientcv and lie_covector

commit 122d7f6eaba1127af9ba79f08a7e9cdeee6a486e
Author: Kshitij Kulshreshtha <kshitij@…>
Date: Tue Oct 20 12:53:40 2015 +0200

skip_tapefile_cleanup() is a C function not C++

commit 516f5daf18d4e2825c2c927be92e9982debfcb68
Author: Kshitij Kulshreshtha <kshitij@…>
Date: Fri Sep 18 15:10:11 2015 +0200

correct pointer free'ing in fortran interfaces and drivers

it seems no one uses this, otherwise people would have seen
segmentation faults all over the place

Signed-off-by: Kshitij Kulshreshtha <kshitij@…>

Location:
trunk/ADOL-C
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • trunk/ADOL-C/include/adolc/taping.h

    r608 r638  
    4747    ADOLC_REMOVE_COMPLETELY
    4848};
     49
     50ADOLC_DLL_EXPORT void skip_tracefile_cleanup(short tnum);
    4951
    5052/* Returns statistics on the tape "tag". Use enumeration StatEntries for
     
    105107ADOLC_DLL_EXPORT bool isTaping();
    106108
    107 ADOLC_DLL_EXPORT void skip_tracefile_cleanup(short tnum);
    108 
    109109ADOLC_DLL_EXPORT void set_nested_ctx(short tag, char nested);
    110110
  • trunk/ADOL-C/src/drivers/driversf.c

    r106 r638  
    4242    rc= function(tag,m,n,argument,result);
    4343    pack1(m,result,fresult);
    44     free((char*)argument);
    45     free((char*)result);
     44    myfree1(argument);
     45    myfree1(result);
    4646    return rc;
    4747}
     
    6262    rc= gradient(tag,n,argument,result);
    6363    pack1(n,result,fresult);
    64     free((char*)result);
    65     free((char*)argument);
     64    myfree1(result);
     65    myfree1(argument);
    6666    return rc;
    6767}
     
    8787    rc= vec_jac(tag,m,n,repeat,argument,lagrange, row);
    8888    pack1(n,row,frow);
    89     free((char*)argument);
    90     free((char*)lagrange);
    91     free((char*)row);
     89    myfree1(argument);
     90    myfree1(lagrange);
     91    myfree1(row);
    9292    return rc;
    9393}
     
    109109    rc= jacobian(tag,depen,indep,argument,Jac);
    110110    pack2(depen,indep,Jac,fjac);
    111     free((char*)*Jac);
    112     free((char*)Jac);
    113     free((char*)argument);
     111    myfree2(Jac);
     112    myfree1(argument);
    114113    return rc;
    115114}
     
    134133    rc= jac_vec(tag,m,n,argument,tangent,column);
    135134    pack1(m,column,fcolumn);
    136     free((char*)argument);
    137     free((char*)tangent);
    138     free((char*)column);
     135    myfree1(argument);
     136    myfree1(tangent);
     137    myfree1(column);
    139138    return rc;
    140139}
     
    158157    rc= hess_vec(tag,n,argument,tangent,result);
    159158    pack1(n,result,fresult);
    160     free((char*)argument);
    161     free((char*)tangent);
    162     free((char*)result);
     159    myfree1(argument);
     160    myfree1(tangent);
     161    myfree1(result);
    163162    return rc;
    164163}
     
    181180    rc= hessian(tag,n,x,H);
    182181    pack2(n,n,H,fh);
    183     free((char*)*H);
    184     free((char*)H);
    185     free((char*)x);
     182    myfree2(H);
     183    myfree1(x);
    186184    return rc;
    187185}
     
    209207    rc= lagra_hess_vec(tag,m,n,argument,tangent,lagrange,result);
    210208    pack1(n,result,fresult);
    211     free((char*)argument);
    212     free((char*)tangent);
    213     free((char*)lagrange);
    214     free((char*)result);
     209    myfree1(argument);
     210    myfree1(tangent);
     211    myfree1(lagrange);
     212    myfree1(result);
    215213    return rc;
    216214}
  • trunk/ADOL-C/src/interfacesf.c

    r106 r638  
    4242    pack2(m,d,Y,fy);
    4343    pack1(m,value,fvalue);
    44     free((char*)*X);
    45     free((char*)X);
    46     free((char*)*Y);
    47     free((char*)Y);
    48     free((char*)base);
    49     free((char*)value);
     44    myfree2(X);
     45    myfree2(Y);
     46    myfree1(base);
     47    myfree1(value);
    5048    return rc;
    5149}
     
    6563    rc=zos_forward(tag,m,n,k,base,value);
    6664    pack1(m,value,fvalue);
    67     free((char*)base);
    68     free((char*)value);
     65    myfree1(base);
     66    myfree1(value);
    6967    return rc;
    7068}
     
    9189    pack3(m,p,d,Y,fy);
    9290    pack1(m,value,fvalue);
    93     free((char*)**X);
    94     free((char*)*X);
    95     free((char*)X);
    96     free((char*)**Y);
    97     free((char*)*Y);
    98     free((char*)Y);
    99     free((char*)base);
    100     free((char*)value);
     91    myfree3(X);
     92    myfree3(Y);
     93    myfree1(base);
     94    myfree1(value);
    10195    return rc;
    10296}
     
    122116    pack2(m,p,Y,fy);
    123117    pack1(m,value,fvalue);
    124     free((char*)*X);
    125     free((char*)X);
    126     free((char*)*Y);
    127     free((char*)Y);
    128     free((char*)base);
    129     free((char*)value);
     118    myfree2(X);
     119    myfree2(Y);
     120    myfree1(base);
     121    myfree1(value);
    130122    return rc;
    131123}
     
    146138    rc=hos_reverse(tag,m,n,d,u,Z);
    147139    pack2(n,d+1,Z,fz);
    148     free((char*)*Z);
    149     free((char*)Z);
    150     free((char*)u);
     140    myfree2(Z);
     141    myfree1(u);
    151142    return rc;
    152143}
     
    167158    rc=hos_ti_reverse(tag,m,n,d,U,Z);
    168159    pack2(n,d+1,Z,fz);
    169     free((char*)*Z);
    170     free((char*)Z);
    171     free((char*)*U);
    172     free((char*)U);
     160    myfree2(Z);
     161    myfree2(U);
    173162    return rc;
    174163}
     
    187176    rc=fos_reverse(tag,m,n,u,Z);
    188177    pack1(n,Z,fz);
    189     free((char*)Z);
    190     free((char*)u);
     178    myfree1(Z);
     179    myfree1(u);
    191180    return rc;
    192181}
     
    208197    rc=hov_reverse(tag,m,n,d,q,U,Z,nop);
    209198    pack3(q,n,d+1,Z,fz);
    210     free((char*)**Z);
    211     free((char*)*Z);
    212     free((char*)Z);
    213     free((char*)*U);
    214     free((char*)U);
     199    myfree3(Z);
     200    myfree2(U);
    215201    return rc;
    216202}
     
    233219    rc=hov_ti_reverse(tag,m,n,d,q,U,Z,nop);
    234220    pack3(q,n,d+1,Z,fz);
    235     free((char*)**Z);
    236     free((char*)*Z);
    237     free((char*)Z);
    238     free((char*)**U);
    239     free((char*)*U);
    240     free((char*)U);
     221    myfree3(Z);
     222    myfree3(U);
    241223    return rc;
    242224}
     
    256238    rc=fov_reverse(tag,m,n,q,U,Z);
    257239    pack2(q,n,Z,fz);
    258     free((char*)*Z);
    259     free((char*)Z);
    260     free((char*)*U);
    261     free((char*)U);
     240    myfree2(Z);
     241    myfree2(U);
    262242    return rc;
    263243}
  • trunk/ADOL-C/src/lie/adolc_lie_c.c

    r609 r638  
    437437        myfree3(D);
    438438
     439        myfree1(x);
     440        myfree1(y);
     441        myfree1(xp);
     442        myfree1(yp);
     443
    439444        return rc;
    440445}
     
    552557        acccov(n, d, B, Y, result); 
    553558
     559        myfree2(X);
     560        myfree2(Y);
     561        myfree3(A);
     562        myfree3(B);
     563
     564        myfree1(x);
     565        myfree1(y);
     566        myfree1(xp);
     567        myfree1(yp);
     568
    554569        return -1;
    555570}
Note: See TracChangeset for help on using the changeset viewer.