paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 09:39:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Added temporary work-around for bug , partly fixes bug

Browse Source 
git-svn-id: trunk@12744 -
This commit is contained in:
joost 2009-02-15 18:08:34 +00:00
parent 65b46d5821
commit 19c25f22d2
1 changed files with 1 additions and 1 deletions

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);
external 'fftw3f' name 'fftwf_destroy_plan';
procedure fftw_execute(plan:fftw_plan_single);
procedure fftw_execute(plan:fftw_plan_single); cdecl; // Added 'cdecl' as a temporary workaround for bug 12985
external 'fftw3f' name 'fftwf_execute';
{$calling register} {Back to normal!}