homogenisiere Grosz-Klein-Schreibung

1 files changed, 20 insertions, 20 deletions

diff --git a/fftw_s.pas b/fftw_s.pas
index 86b7175..7af8bef 100644
--- a/fftw_s.pas
+++ b/fftw_s.pas
@@ -69,43 +69,43 @@ function fftw_plan_dft(rank:cardinal;n:Pcardinal;i,o:Pcomplex_single;
          external fftwlib name 'fftwf_plan_dft';
 
 {Real to complex transformations.}
-function fftw_plan_dft_1d(n:cardinal;i:Psingle;o:Pcomplex_single;
+function fftw_plan_dft_1d(n:cardinal;i:pSingle;o:Pcomplex_single;
                           flags:fftw_flagset):fftw_plan_single;
          external fftwlib name 'fftwf_plan_dft_r2c_1d';
-function fftw_plan_dft_2d(nx,ny:cardinal;i:Psingle;o:Pcomplex_single;
+function fftw_plan_dft_2d(nx,ny:cardinal;i:pSingle;o:Pcomplex_single;
                           flags:fftw_flagset):fftw_plan_single;
          external fftwlib name 'fftwf_plan_dft_r2c_2d';
-function fftw_plan_dft_3d(nx,ny,nz:cardinal;i:Psingle;o:Pcomplex_single;
+function fftw_plan_dft_3d(nx,ny,nz:cardinal;i:pSingle;o:Pcomplex_single;
                           flags:fftw_flagset):fftw_plan_single;
          external fftwlib name 'fftwf_plan_dft_r2c_3d';
-function fftw_plan_dft(rank:cardinal;n:Pcardinal;i:Psingle;o:Pcomplex_single;
+function fftw_plan_dft(rank:cardinal;n:Pcardinal;i:pSingle;o:Pcomplex_single;
                        flags:fftw_flagset):fftw_plan_single;
          external fftwlib name 'fftwf_plan_dft_r2c';
 
 function fftw_plan_many_dft_r2c(rank:cardinal;n:Pcardinal;howmany:cardinal;
-                       i:Psingle;inembed:Pcardinal;istride:cardinal;
+                       i:pSingle;inembed:Pcardinal;istride:cardinal;
                        idist:cardinal;o:Pcomplex_single;onembed:Pcardinal;
                        ostride:cardinal;odist:cardinal;
                        flags:fftw_flagset):fftw_plan_single;
 external fftwlib name 'fftwf_plan_many_dft_r2c';
 function fftw_plan_many_dft_c2r(rank:cardinal;n:Pcardinal;howmany:cardinal;
                        i:Pcomplex_single;inembed:Pcardinal;istride:cardinal;
-                       idist:cardinal;o:Psingle;onembed:Pcardinal;
+                       idist:cardinal;o:pSingle;onembed:Pcardinal;
                        ostride:cardinal;odist:cardinal;
                        flags:fftw_flagset):fftw_plan_single;
 external fftwlib name 'fftwf_plan_many_dft_c2r';
 
 {Complex to real transformations.}
-function fftw_plan_dft_1d(n:cardinal;i:Pcomplex_single;o:Psingle;
+function fftw_plan_dft_1d(n:cardinal;i:Pcomplex_single;o:pSingle;
                           flags:fftw_flagset):fftw_plan_single;
          external fftwlib name 'fftwf_plan_dft_c2r_1d';
-function fftw_plan_dft_2d(nx,ny:cardinal;i:Pcomplex_single;o:Psingle;
+function fftw_plan_dft_2d(nx,ny:cardinal;i:Pcomplex_single;o:pSingle;
                           flags:fftw_flagset):fftw_plan_single;
          external fftwlib name 'fftwf_plan_dft_c2r_2d';
-function fftw_plan_dft_3d(nx,ny,nz:cardinal;i:Pcomplex_single;o:Psingle;
+function fftw_plan_dft_3d(nx,ny,nz:cardinal;i:Pcomplex_single;o:pSingle;
                           flags:fftw_flagset):fftw_plan_single;
          external fftwlib name 'fftwf_plan_dft_c2r_3d';
-function fftw_plan_dft(rank:cardinal;n:Pcardinal;i:Pcomplex_single;o:Psingle;
+function fftw_plan_dft(rank:cardinal;n:Pcardinal;i:Pcomplex_single;o:pSingle;
                        flags:fftw_flagset):fftw_plan_single;
          external fftwlib name 'fftwf_plan_dft_c2r';
 
@@ -116,7 +116,7 @@ procedure fftw_execute(plan:fftw_plan_single);
           external fftwlib name 'fftwf_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;
+  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;
 {$ELSE}
 begin
-  getmem(p,size);
+  getMem(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;