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

* changed typecast in FPC_STR_TO_CHARARRAY so that no temp ansistring is

Browse Source 
generated anymore (merged)
This commit is contained in:
Jonas Maebe 2001-03-05 17:10:40 +00:00
parent ab2ea0a472
commit 3eb9c758fb
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/inc/generic.inc
View File

@ -615,7 +615,7 @@ begin
inc(src);
end;
{ ansistring}
1: len := length(ansistring(src));
1: len := length(ansistring(pointer(src)));
{ longstring }
2:;
{ widestring }
@ -777,7 +777,11 @@ end;
{
$Log$
Revision 1.6 2001-03-03 12:41:22 jonas
Revision 1.7 2001-03-05 17:10:40 jonas
* changed typecast in FPC_STR_TO_CHARARRAY so that no temp ansistring is
generated anymore (merged)
Revision 1.6 2001/03/03 12:41:22 jonas
* simplified and optimized range checking code, FPC_BOUNDCHECK is no longer necessary
Revision 1.5 2000/10/01 13:17:35 michael