paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 04:29:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Two moves with a string as target are now only exectuted if the number of

Browse Source 
bytes to move is greater than 0. This prevents RTE201's when compiled
  with range checks enabled.
This commit is contained in:
sg 2001-07-30 10:21:09 +00:00
parent 6b648f5dde
commit b07bf6104d
1 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
rtl/objpas/syspch.inc
View File

@ -36,11 +36,14 @@ type
{ StrPas converts a PChar to a pascal string }
function StrPas(Str: PChar): string;
var
l: Integer;
begin
SetLength(result, StrLen(Str));
if Length(Result) > 0 then
Move(Str^, result[1], Length(result));
end;
l := StrLen(Str);
SetLength(result, l);
if l > 0 then
Move(Str^, result[1], l);
end ;
{ StrAlloc allocates a buffer of Size + 4
the size of the allocated buffer is stored at result - 4
@ -119,7 +122,12 @@ end ;
{
$Log$
Revision 1.3 2000-11-23 11:04:26 sg
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.
Revision 1.3 2000/11/23 11:04:26 sg
* Protected some Move()'s by 'if' clauses so that the Move won't be
executed when the length would be 0. Otherwise, the corresponding
routines might get an RTE when compiled with $R+.