paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 07:09:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed buffer overrun in SysPCharToNtStr

Browse Source 
git-svn-id: branches/cpstrrtl@25135 -
This commit is contained in:
Jonas Maebe 2013-07-19 16:29:32 +00:00
parent 953e088c14
commit a00828e3e2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/nativent/sysos.inc
View File

@ -368,7 +368,7 @@ begin
aNtStr.Length := aLen * SizeOf(WideChar); aNtStr.Length := aLen * SizeOf(WideChar);
aNtStr.MaximumLength := aNtStr.Length; aNtStr.MaximumLength := aNtStr.Length;
aNtStr.Buffer := GetMem(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]; aNtStr.Buffer[i] := aText[i];
end; end;