From 19f968c03561e7fe1a7abbcf2fd57cdfdad5f907 Mon Sep 17 00:00:00 2001
From: Sun Serega <sunserega2@gmail.com>
Date: Mon, 4 Dec 2023 21:57:53 +0200
Subject: [PATCH] revert RealRange.Size

---
 TestSuite/RangeT count.pas | 2 +-
 bin/Lib/PABCSystem.pas     | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/TestSuite/RangeT count.pas b/TestSuite/RangeT count.pas
index 79280ce8d..a21a634e7 100644
--- a/TestSuite/RangeT count.pas	
+++ b/TestSuite/RangeT count.pas	
@@ -7,4 +7,4 @@ Assert( ('b'..'c').Count = 2 );
 Assert( ('c'..'b').Count = 0 );
 
 Assert( (2.0..3).Size = 1 );
-Assert( (3.0..2).Size = 0 );
\ No newline at end of file
+Assert( (3.0..2).Size = -1 );
\ No newline at end of file
diff --git a/bin/Lib/PABCSystem.pas b/bin/Lib/PABCSystem.pas
index 429ceadf7..1d094b308 100644
--- a/bin/Lib/PABCSystem.pas
+++ b/bin/Lib/PABCSystem.pas
@@ -769,7 +769,7 @@ type
     
     property Low: real read l;
     property High: real read h;
-    property Size: real read System.Math.Max(0, h-l);
+    property Size: real read h-l;
     
     static function operator in(x: real; r: RealRange): boolean := (x >= r.l) and (x <= r.h);