From c885f176745cd414a5f4d81fd4c834fde9b8d590 Mon Sep 17 00:00:00 2001 From: Erich Eckner Date: Mon, 5 Oct 2015 11:17:43 +0200 Subject: fftw.pas kann nun wisdom im- und exportieren --- fftw.pas | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/fftw.pas b/fftw.pas index b9dee58..6d34a49 100644 --- a/fftw.pas +++ b/fftw.pas @@ -115,6 +115,12 @@ procedure fftw_destroy_plan(plan:fftw_plan_double); procedure fftw_execute(plan:fftw_plan_double); external fftwlib name 'fftw_execute'; +function fftw_export_wisdom_to_filename(filename: pChar): cardinal; + external fftwlib name 'fftw_export_wisdom_to_filename'; + +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_freemem(p:pointer);inline; -- cgit v1.2.3-70-g09d2