diff options
Diffstat (limited to 'fftw_l.pas')
| -rw-r--r-- | fftw_l.pas | 40 |
1 files changed, 20 insertions, 20 deletions
@@ -69,43 +69,43 @@ function fftw_plan_dft(rank:cardinal;n:Pcardinal;i,o:Pcomplex_extended; external fftwlib name 'fftwl_plan_dft'; {Real to complex transformations.} -function fftw_plan_dft_1d(n:cardinal;i:Pextended;o:Pcomplex_extended; +function fftw_plan_dft_1d(n:cardinal;i:pExtended;o:Pcomplex_extended; flags:fftw_flagset):fftw_plan_extended; external fftwlib name 'fftwl_plan_dft_r2c_1d'; -function fftw_plan_dft_2d(nx,ny:cardinal;i:Pextended;o:Pcomplex_extended; +function fftw_plan_dft_2d(nx,ny:cardinal;i:pExtended;o:Pcomplex_extended; flags:fftw_flagset):fftw_plan_extended; external fftwlib name 'fftwl_plan_dft_r2c_2d'; -function fftw_plan_dft_3d(nx,ny,nz:cardinal;i:Pextended;o:Pcomplex_extended; +function fftw_plan_dft_3d(nx,ny,nz:cardinal;i:pExtended;o:Pcomplex_extended; flags:fftw_flagset):fftw_plan_extended; external fftwlib name 'fftwl_plan_dft_r2c_3d'; -function fftw_plan_dft(rank:cardinal;n:Pcardinal;i:Pextended;o:Pcomplex_extended; +function fftw_plan_dft(rank:cardinal;n:Pcardinal;i:pExtended;o:Pcomplex_extended; flags:fftw_flagset):fftw_plan_extended; external fftwlib name 'fftwl_plan_dft_r2c'; function fftw_plan_many_dft_r2c(rank:cardinal;n:Pcardinal;howmany:cardinal; - i:Pextended;inembed:Pcardinal;istride:cardinal; + i:pExtended;inembed:Pcardinal;istride:cardinal; idist:cardinal;o:Pcomplex_extended;onembed:Pcardinal; ostride:cardinal;odist:cardinal; flags:fftw_flagset):fftw_plan_extended; external fftwlib name 'fftwl_plan_many_dft_r2c'; function fftw_plan_many_dft_c2r(rank:cardinal;n:Pcardinal;howmany:cardinal; i:Pcomplex_extended;inembed:Pcardinal;istride:cardinal; - idist:cardinal;o:Pextended;onembed:Pcardinal; + idist:cardinal;o:pExtended;onembed:Pcardinal; ostride:cardinal;odist:cardinal; flags:fftw_flagset):fftw_plan_extended; external fftwlib name 'fftwl_plan_many_dft_c2r'; {Complex to real transformations.} -function fftw_plan_dft_1d(n:cardinal;i:Pcomplex_extended;o:Pextended; +function fftw_plan_dft_1d(n:cardinal;i:Pcomplex_extended;o:pExtended; flags:fftw_flagset):fftw_plan_extended; external fftwlib name 'fftwl_plan_dft_c2r_1d'; -function fftw_plan_dft_2d(nx,ny:cardinal;i:Pcomplex_extended;o:Pextended; +function fftw_plan_dft_2d(nx,ny:cardinal;i:Pcomplex_extended;o:pExtended; flags:fftw_flagset):fftw_plan_extended; external fftwlib name 'fftwl_plan_dft_c2r_2d'; -function fftw_plan_dft_3d(nx,ny,nz:cardinal;i:Pcomplex_extended;o:Pextended; +function fftw_plan_dft_3d(nx,ny,nz:cardinal;i:Pcomplex_extended;o:pExtended; flags:fftw_flagset):fftw_plan_extended; external fftwlib name 'fftwl_plan_dft_c2r_3d'; -function fftw_plan_dft(rank:cardinal;n:Pcardinal;i:Pcomplex_extended;o:Pextended; +function fftw_plan_dft(rank:cardinal;n:Pcardinal;i:Pcomplex_extended;o:pExtended; flags:fftw_flagset):fftw_plan_extended; external fftwlib name 'fftwl_plan_dft_c2r'; @@ -116,7 +116,7 @@ procedure fftw_execute(plan:fftw_plan_extended); external fftwlib name 'fftwl_execute'; {$calling register} {Back to normal!} -procedure fftw_getmem(var p:pointer;size:sizeint); +procedure fftw_getmem(var p:pointer;size:sizeInt); procedure fftw_freemem(p:pointer);inline; {*****************************************************************************} @@ -138,22 +138,22 @@ procedure fftw_freemem(p:pointer);inline; {$DEFINE align:=16} {$ENDIF} -procedure fftw_getmem(var p:pointer;size:sizeint); +procedure fftw_getmem(var p:pointer;size:sizeInt); {$IFDEF align} var originalptr:pointer; begin { We allocate additional "align-1" bytes to be able to align. - And we allocate additional "SizeOf(Pointer)" to always have space to store + And we allocate additional "sizeOf(pointer)" to always have space to store the value of the original pointer. } - getmem(originalptr,size + align-1 + SizeOf(Pointer)); - ptruint(p):=(ptruint(originalptr) + SizeOf(Pointer)); - ptruint(p):=(ptruint(p)+align-1) and not (align-1); - PPointer(ptruint(p) - SizeOf(Pointer))^:=originalptr; + freeMem(originalptr,size + align-1 + sizeOf(pointer)); + ptrUInt(p):=(ptrUInt(originalptr) + sizeOf(pointer)); + ptrUInt(p):=(ptrUInt(p)+align-1) and not (align-1); + pPointer(ptrUInt(p) - sizeOf(pointer))^:=originalptr; {$ELSE} begin - getmem(p,size); + freeMem(p,size); {$ENDIF} end; @@ -161,9 +161,9 @@ procedure fftw_freemem(p:pointer);inline; begin {$IFDEF align} - freemem(PPointer(ptruint(p) - SizeOf(Pointer))^); + freeMem(pPointer(ptrUInt(p) - sizeOf(pointer))^); {$ELSE} - freemem(p); + freeMem(p); {$ENDIF} end; |