paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-10 03:07:11 +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 } { StrPas converts a PChar to a pascal string }
function StrPas(Str: PChar): string; function StrPas(Str: PChar): string;
var
l: Integer;
begin begin
l := StrLen(Str); Result:=Str;
SetLength(result, l);
if l > 0 then
Move(Str^, result[1], l);
end ; end ;
{ StrAlloc allocates a buffer of Size + 4 { StrAlloc allocates a buffer of Size + 4
@ -122,7 +117,10 @@ end ;
{ {
$Log$ $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 * 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 bytes to move is greater than 0. This prevents RTE201's when compiled
with range checks enabled. with range checks enabled.