paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-01 16:44:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

* let StrBufSize return a cardinal rather than a sizeuint, and also change

Browse Source 
its internal pointer arithmetic to use cardinal, because that's also what
    stralloc uses to initialize that value

git-svn-id: branches/cpstrrtl@24996 -
This commit is contained in:
Jonas Maebe 2013-06-27 21:37:58 +00:00
parent 8f1e85d9ae
commit c49ae76837
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/objpas/sysutils/syspch.inc
View File

@ -103,10 +103,10 @@ end;
{ StrBufSize returns the amount of memory allocated for pchar Str allocated with StrAlloc }
function StrBufSize(Str: PChar): SizeUInt;
function StrBufSize(Str: PChar): Cardinal;
begin
if Str <> Nil then
result := SizeUInt(pointer(Str - SizeOf(SizeUInt))^)-sizeof(SizeUInt)
result := cardinal(pointer(Str - SizeOf(cardinal))^)-sizeof(cardinal)
else
result := 0;
end ;

2
rtl/objpas/sysutils/syspchh.inc
View File

@ -39,6 +39,6 @@ function StrPas(Str: PChar): string;overload;
function StrPCopy(Dest: PChar; Source: string): PChar;overload;
function StrPLCopy(Dest: PChar; Source: string; MaxLen: SizeUInt): PChar;overload;
function StrAlloc(Size: cardinal): PChar;
function StrBufSize(Str: PChar): SizeUInt;
function StrBufSize(Str: PChar): Cardinal;
procedure StrDispose(Str: PChar);