homogenisiere Grosz-Klein-Schreibung

1 files changed, 22 insertions, 22 deletions

diff --git a/fftw.pas b/fftw.pas
index 845c4e1..13edc5c 100644
--- a/fftw.pas
+++ b/fftw.pas
@@ -41,7 +41,7 @@ type    complex_double=record
         fftw_iodim=record
           n,ins,ous: integer;
         end;
-        Pfftw_iodim=^fftw_iodim;
+        pFft_iodim=^fftw_iodim;
 
         fftw_plan_double=type pointer;
 
@@ -81,48 +81,48 @@ function fftw_plan_dft(rank:cardinal;n:Pcardinal;i,o:Pcomplex_double;
          external fftwlib name 'fftw_plan_dft';
 
 {Real to complex transformations.}
-function fftw_plan_dft_1d(n:cardinal;i:Pdouble;o:Pcomplex_double;
+function fftw_plan_dft_1d(n:cardinal;i:pDouble;o:Pcomplex_double;
                           flags:fftw_flagset):fftw_plan_double;
          external fftwlib name 'fftw_plan_dft_r2c_1d';
-function fftw_plan_dft_2d(nx,ny:cardinal;i:Pdouble;o:Pcomplex_double;
+function fftw_plan_dft_2d(nx,ny:cardinal;i:pDouble;o:Pcomplex_double;
                           flags:fftw_flagset):fftw_plan_double;
          external fftwlib name 'fftw_plan_dft_r2c_2d';
-function fftw_plan_dft_3d(nx,ny,nz:cardinal;i:Pdouble;o:Pcomplex_double;
+function fftw_plan_dft_3d(nx,ny,nz:cardinal;i:pDouble;o:Pcomplex_double;
                           flags:fftw_flagset):fftw_plan_double;
          external fftwlib name 'fftw_plan_dft_r2c_3d';
-function fftw_plan_dft(rank:cardinal;n:Pcardinal;i:Pdouble;o:Pcomplex_double;
+function fftw_plan_dft(rank:cardinal;n:Pcardinal;i:pDouble;o:Pcomplex_double;
                        flags:fftw_flagset):fftw_plan_double;
          external fftwlib name 'fftw_plan_dft_r2c';
 
 function fftw_plan_many_dft_r2c(rank:cardinal;n:Pcardinal;howmany:cardinal;
-                       i:Pdouble;inembed:Pcardinal;istride:cardinal;
+                       i:pDouble;inembed:Pcardinal;istride:cardinal;
                        idist:cardinal;o:Pcomplex_double;onembed:Pcardinal;
                        ostride:cardinal;odist:cardinal;
                        flags:fftw_flagset):fftw_plan_double;
 external fftwlib name 'fftw_plan_many_dft_r2c';
 function fftw_plan_many_dft_c2r(rank:cardinal;n:Pcardinal;howmany:cardinal;
                        i:Pcomplex_double;inembed:Pcardinal;istride:cardinal;
-                       idist:cardinal;o:Pdouble;onembed:Pcardinal;
+                       idist:cardinal;o:pDouble;onembed:Pcardinal;
                        ostride:cardinal;odist:cardinal;
                        flags:fftw_flagset):fftw_plan_double;
 external fftwlib name 'fftw_plan_many_dft_c2r';
 
 {Complex to real transformations.}
-function fftw_plan_dft_1d(n:cardinal;i:Pcomplex_double;o:Pdouble;
+function fftw_plan_dft_1d(n:cardinal;i:Pcomplex_double;o:pDouble;
                           flags:fftw_flagset):fftw_plan_double;
          external fftwlib name 'fftw_plan_dft_c2r_1d';
-function fftw_plan_dft_2d(nx,ny:cardinal;i:Pcomplex_double;o:Pdouble;
+function fftw_plan_dft_2d(nx,ny:cardinal;i:Pcomplex_double;o:pDouble;
                           flags:fftw_flagset):fftw_plan_double;
          external fftwlib name 'fftw_plan_dft_c2r_2d';
-function fftw_plan_dft_3d(nx,ny,nz:cardinal;i:Pcomplex_double;o:Pdouble;
+function fftw_plan_dft_3d(nx,ny,nz:cardinal;i:Pcomplex_double;o:pDouble;
                           flags:fftw_flagset):fftw_plan_double;
          external fftwlib name 'fftw_plan_dft_c2r_3d';
-function fftw_plan_dft(rank:cardinal;n:Pcardinal;i:Pcomplex_double;o:Pdouble;
+function fftw_plan_dft(rank:cardinal;n:Pcardinal;i:Pcomplex_double;o:pDouble;
                        flags:fftw_flagset):fftw_plan_double;
          external fftwlib name 'fftw_plan_dft_c2r';
 
 {Real to real transformations.}
-function fftw_plan_guru_r2r(rank:cardinal;dims:Pfftw_iodim;howmany_rank:cardinal;
+function fftw_plan_guru_r2r(rank:cardinal;dims:pFft_iodim;howmany_rank:cardinal;
                             howmany_dims:pFftw_iodim;i,o:pDouble;
                             kind:Pfftw_r2r_kind;flags:fftw_flagset): fftw_plan_double;
           external fftwlib name 'fftw_plan_guru_r2r';
@@ -140,7 +140,7 @@ function fftw_import_wisdom_from_filename(filename: pChar): cardinal;
           external fftwlib name 'fftw_import_wisdom_from_filename';
 
 {$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;
 
 {*****************************************************************************}
@@ -162,22 +162,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;
 
@@ -185,9 +185,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;