* manually fix buffer overflow in SysPCharToNtStr as fixed in cpstrrtl

   merge in trunk (r25432)



git-svn-id: http://svn.freepascal.org/svn/fpc/branches/fixes_2_6@25919 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 1 insertions, 1 deletions

diff --git a/rtl/nativent/sysos.inc b/rtl/nativent/sysos.inc
index 8379233c76..a12b6be41c 100644
--- a/rtl/nativent/sysos.inc
+++ b/rtl/nativent/sysos.inc
@@ -368,7 +368,7 @@ begin
   aNtStr.Length := aLen * SizeOf(WideChar);
   aNtStr.MaximumLength := aNtStr.Length;
   aNtStr.Buffer := GetMem(aNtStr.Length);
-  for i := 0 to aLen do
+  for i := 0 to aLen-1 do
     aNtStr.Buffer[i] := aText[i];
 end;