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

* fixed result type of StrBufSize(PWideChar) for 64 bit targets

Browse Source 
git-svn-id: branches/cpstrrtl@25002 -
This commit is contained in:
Jonas Maebe 2013-06-28 08:41:46 +00:00
parent 8a4b092ab9
commit bae3c0296e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -428,7 +428,7 @@ function WideStrAlloc(Size: cardinal): PWideChar;
inc(result,sizeof(cardinal)); inc(result,sizeof(cardinal));
end; end;
function StrBufSize(str: pwidechar): SizeUInt; function StrBufSize(str: pwidechar): cardinal;
begin begin
if assigned(str) then if assigned(str) then
result:=cardinal(pointer(str-sizeof(cardinal))^)-sizeof(cardinal) result:=cardinal(pointer(str-sizeof(cardinal))^)-sizeof(cardinal)