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

* fix for StrPas() by Sergey Korshunoff <seyko@comail.ru> (merged)

Browse Source
This commit is contained in:
Jonas Maebe 2002-08-01 16:53:14 +00:00
parent ad728f0267
commit af5f1fbcb6
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/objpas/syspch.inc
View File

@ -36,13 +36,8 @@ type
{ StrPas converts a PChar to a pascal string }
function StrPas(Str: PChar): string;
var
l: Integer;
begin
l := StrLen(Str);
SetLength(result, l);
if l > 0 then
Move(Str^, result[1], l);
Result:=Str;
end ;
{ StrAlloc allocates a buffer of Size + 4
@ -122,7 +117,10 @@ end ;
{
$Log$
Revision 1.4 2001-07-30 10:21:09 sg
Revision 1.5 2002-08-01 16:53:14 jonas
* fix for StrPas() by Sergey Korshunoff <seyko@comail.ru> (merged)
Revision 1.4 2001/07/30 10:21:09 sg
* Two moves with a string as target are now only exectuted if the number of
bytes to move is greater than 0. This prevents RTE201's when compiled
with range checks enabled.