paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 02:59:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Reverted work-around from r12744 now bug #12985 is fixed

Browse Source 
git-svn-id: trunk@13049 -
This commit is contained in:
joost 2009-04-26 20:17:14 +00:00
parent e75bad33e4
commit 25c5d2658c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -91,7 +91,7 @@ function fftw_plan_dft(rank:cardinal;n:Pcardinal;i:Pcomplex_single;o:Psingle;
procedure fftw_destroy_plan(plan:fftw_plan_single); procedure fftw_destroy_plan(plan:fftw_plan_single);
external 'fftw3f' name 'fftwf_destroy_plan'; external 'fftw3f' name 'fftwf_destroy_plan';
procedure fftw_execute(plan:fftw_plan_single); cdecl; // Added 'cdecl' as a temporary workaround for bug 12985 procedure fftw_execute(plan:fftw_plan_single);
external 'fftw3f' name 'fftwf_execute'; external 'fftw3f' name 'fftwf_execute';
{$calling register} {Back to normal!} {$calling register} {Back to normal!}