From 9ae497516fab07d2f905de2b5ad56357d7c2d0a0 Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Wed, 24 Mar 2021 09:59:02 +0100
Subject: romunit.pas: more verbose errors on too short pulses

---
 romunit.pas | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'romunit.pas')

diff --git a/romunit.pas b/romunit.pas
index a3289c5..613124a 100644
--- a/romunit.pas
+++ b/romunit.pas
@@ -300,6 +300,10 @@ begin
   for i:=0 to length(outPuls)-2 do
     if outPuls[i+1]['x']<=outPuls[i]['x'] then
       writeln('Der Outpuls ist nicht sortiert!');
+  if length(inPuls)<2 then
+    writeln('Der Inpuls hat nur '+intToStr(length(inPuls))+' Datenpunkte!');
+  if length(outPuls)<2 then
+    writeln('Der Outpuls hat nur '+intToStr(length(outPuls))+' Datenpunkte!');
 
   // Extrema identifizieren
   exList[0]:=findeExtrema(inPuls,false);
-- 
cgit v1.2.3-54-g00ecf