paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 18:29:49 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Placed fftw_getmem and fftw_freemem in interface section

Browse Source 
* Removed dependency on libraries that are not directly called 
 * Fixed compilation of example (part of bug #12881)

git-svn-id: trunk@12505 -
This commit is contained in:
joost 2009-01-04 12:41:56 +00:00
parent 047730fd5e
commit 66dfc61eaa
2 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fftw/examples/example.pas
View File

@ -1,6 +1,6 @@
program example; program example;
uses fftw; uses fftw_s;
const s=128; const s=128;
@ -28,4 +28,4 @@ begin
fftw_destroy_plan(p); fftw_destroy_plan(p);
fftw_freemem(i); fftw_freemem(i);
fftw_freemem(o); fftw_freemem(o);
end. end.

12
packages/fftw/src/fftw_s.pas
View File

@ -94,6 +94,10 @@ procedure fftw_destroy_plan(plan:fftw_plan_single);
procedure fftw_execute(plan:fftw_plan_single); procedure fftw_execute(plan:fftw_plan_single);
external 'fftw3f' name 'fftwf_execute'; external 'fftw3f' name 'fftwf_execute';
{$calling register} {Back to normal!}
procedure fftw_getmem(var p:pointer;size:sizeint);
procedure fftw_freemem(p:pointer);inline;
{*****************************************************************************} {*****************************************************************************}
implementation implementation
{*****************************************************************************} {*****************************************************************************}
@ -101,11 +105,9 @@ procedure fftw_execute(plan:fftw_plan_single);
{$LINKLIB fftw3f} {$LINKLIB fftw3f}
{Required libraries by libfftw3} {Required libraries by libfftw3}
{$LINKLIB gcc} { $LINKLIB gcc}
{$LINKLIB c} { $LINKLIB c}
{$LINKLIB m} { $LINKLIB m}
{$calling register} {Back to normal!}
{Better don't use fftw_malloc and fftw_free, but provide Pascal replacements.} {Better don't use fftw_malloc and fftw_free, but provide Pascal replacements.}