fftunit.pas: add assertion about buggy data order

1 files changed, 4 insertions, 0 deletions

diff --git a/fftunit.pas b/fftunit.pas
index 7b5995f..fd3e9cb 100644
--- a/fftunit.pas
+++ b/fftunit.pas
@@ -167,6 +167,8 @@ begin
   inherited create;
   inO:=inputOrdnung;
   outO:=outputOrdnung;
+  if (inO=doAlleResSmi) or (outO=doAlleResSmi) then
+    raise exception.create('Die Datenordnung doAlleResSmi ist momentan noch verbugt!');
   len:=laenge;
   hLen:=laenge div 2;
   fillchar(res,sizeOf(res),#0);
@@ -180,6 +182,8 @@ begin
   inherited create;
   inO:=original.inO;
   outO:=original.outO;
+  if (inO=doAlleResSmi) or (outO=doAlleResSmi) then
+    raise exception.create('Die Datenordnung doAlleResSmi ist momentan noch verbugt!');
   len:=original.len;
   hLen:=original.hLen;
   fillchar(res,sizeOf(res),#0);