summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorErich Eckner <git@eckner.net>2017-08-01 11:04:05 +0200
committerErich Eckner <git@eckner.net>2017-08-01 11:04:05 +0200
commitde3e51becaddd350dc550d7ca828e125c3361e5d (patch)
treeea813417ad66775aa1fb70ad612a6f259d7fb280
parent48875c55a80d826ae7e36f085ccff2e2c4989dfe (diff)
downloadunits-de3e51becaddd350dc550d7ca828e125c3361e5d.tar.xz
fftunit.pas: add assertion about buggy data order
-rw-r--r--fftunit.pas4
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);