Inicio Explorar Axuda
Iniciar sesión
pascal
/
freepascal.compiler
réplica de https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Ficheiros Incidencias 0 Wiki
Explorar o código

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

git-svn-id: branches/cpstrrtl@25002 -
Jonas Maebe %!s(int64=12) %!d(string=hai) anos
pai
8a4b092ab9
achega
bae3c0296e
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
Unificar vista Mostrar estatísticas de Diff
  1. 1 1
      rtl/objpas/sysutils/sysuni.inc

+ 1 - 1
rtl/objpas/sysutils/sysuni.inc
Ver ficheiro 

@@ -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)