diff options
| -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); |