File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -1952,22 +1952,22 @@ for TI in IndexTypes
19521952 dense_b, dense_b_ptr = wrap_dense_and_ptr (b)
19531953
19541954 X_Handle = Ptr {cholmod_dense_struct} (dense_x_ptr)
1955- Y_Handle = Ptr {cholmod_dense_struct} (C_NULL )
1956- E_Handle = Ptr {cholmod_dense_struct} (C_NULL )
1955+ Y_Handle = Ref ( Ptr {cholmod_dense_struct} (C_NULL ) )
1956+ E_Handle = Ref ( Ptr {cholmod_dense_struct} (C_NULL ) )
19571957 status = GC. @preserve x dense_x b dense_b begin
19581958 $ (cholname (:solve2 , TI))(
19591959 CHOLMOD_A, L,
19601960 Ref (dense_b), C_NULL ,
19611961 Ref (X_Handle), C_NULL ,
1962- Ref ( Y_Handle) ,
1963- Ref ( E_Handle) ,
1962+ Y_Handle,
1963+ E_Handle,
19641964 getcommon ($ TI))
19651965 end
1966- if Y_Handle != C_NULL
1967- free! (Y_Handle)
1966+ if Y_Handle[] != C_NULL
1967+ free! (Y_Handle[] )
19681968 end
1969- if E_Handle != C_NULL
1970- free! (E_Handle)
1969+ if E_Handle[] != C_NULL
1970+ free! (E_Handle[] )
19711971 end
19721972 @assert ! iszero (status)
19731973
You can’t perform that action at this time.
0 commit comments