diff options
| author | Erich Eckner <git@eckner.net> | 2017-08-01 11:04:05 +0200 |
|---|---|---|
| committer | Erich Eckner <git@eckner.net> | 2017-08-01 11:04:05 +0200 |
| commit | de3e51becaddd350dc550d7ca828e125c3361e5d (patch) | |
| tree | ea813417ad66775aa1fb70ad612a6f259d7fb280 | |
| parent | 48875c55a80d826ae7e36f085ccff2e2c4989dfe (diff) | |
| download | units-de3e51becaddd350dc550d7ca828e125c3361e5d.tar.xz | |
fftunit.pas: add assertion about buggy data order
| -rw-r--r-- | fftunit.pas | 4 |
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); |