View Issue Details

IDProjectCategoryView StatusLast Update
0037566pas2jstranspilerpublic2020-08-13 15:15
Reporterhenrique Assigned ToMichael Van Canneyt  
PrioritynormalSeverityminorReproducibilityalways
Status resolvedResolutionfixed 
PlatformMakestubOSWindows 
Fixed in Versiontrunk 
Summary0037566: Range check error
DescriptionI activated the "range check error" control and was trying to write an empty string, and it was giving an error.

I attached the patch on that.
TagsNo tags attached.
Fixed in Revision46414
Attached Files

Activities

henrique

2020-08-13 15:05

reporter  

paswrite.patch (805 bytes)   
From ed60ca6bfe2984ced38317063197d993f8f4f870 Mon Sep 17 00:00:00 2001
From: Henrique Gottardi Werlang <henriquewerlang@hotmail.com>
Date: Thu, 13 Aug 2020 10:02:05 -0300
Subject: [PATCH] Range check error.

---
 packages/fcl-passrc/src/paswrite.pp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/packages/fcl-passrc/src/paswrite.pp b/packages/fcl-passrc/src/paswrite.pp
index 69661a652c..ee74f870e0 100644
--- a/packages/fcl-passrc/src/paswrite.pp
+++ b/packages/fcl-passrc/src/paswrite.pp
@@ -207,7 +207,8 @@ Var
 begin
   Add(s);
   L:=PostProcessLine(FCurrentLine);
-  Stream.Write(L[1],Length(L));
+  if not L.IsEmpty then
+    Stream.Write(L[1],Length(L));
   Stream.Write(FLineEnding[1],Length(FLineEnding));
   IsStartOfLine:=True;
   FCurrentLine:='';
-- 
2.28.0.windows.1

paswrite.patch (805 bytes)   

Michael Van Canneyt

2020-08-13 15:15

administrator   ~0124842

Fixed slightly differently. Thanks for reporting !

Issue History

Date Modified Username Field Change
2020-08-13 15:05 henrique New Issue
2020-08-13 15:05 henrique File Added: paswrite.patch
2020-08-13 15:15 Michael Van Canneyt Assigned To => Michael Van Canneyt
2020-08-13 15:15 Michael Van Canneyt Status new => resolved
2020-08-13 15:15 Michael Van Canneyt Resolution open => fixed
2020-08-13 15:15 Michael Van Canneyt Fixed in Version => trunk
2020-08-13 15:15 Michael Van Canneyt Fixed in Revision => 46414
2020-08-13 15:15 Michael Van Canneyt Note Added: 0124842