From 3eb9c758fb5afc221d381d761580ff1e2723a287 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Mon, 5 Mar 2001 17:10:40 +0000
Subject: [PATCH]   * changed typecast in FPC_STR_TO_CHARARRAY so that no temp
 ansistring is     generated anymore (merged)

---
 rtl/inc/generic.inc | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/rtl/inc/generic.inc b/rtl/inc/generic.inc
index 4c6f19a885..d66fa72ab6 100644
--- a/rtl/inc/generic.inc
+++ b/rtl/inc/generic.inc
@@ -615,7 +615,7 @@ begin
         inc(src);
       end;
     { ansistring}
-    1: len := length(ansistring(src));
+    1: len := length(ansistring(pointer(src)));
     { longstring }
     2:;
     { widestring }
@@ -777,7 +777,11 @@ end;
 
 {
   $Log$
-  Revision 1.6  2001-03-03 12:41:22  jonas
+  Revision 1.7  2001-03-05 17:10:40  jonas
+    * changed typecast in FPC_STR_TO_CHARARRAY so that no temp ansistring is
+      generated anymore (merged)
+
+  Revision 1.6  2001/03/03 12:41:22  jonas
     * simplified and optimized range checking code, FPC_BOUNDCHECK is no longer necessary
 
   Revision 1.5  2000/10/01 13:17:35  michael