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

* donewidestring has var instead of out parameter

Browse Source 
git-svn-id: trunk@2535 -
This commit is contained in:
Jonas Maebe 2006-02-12 15:02:46 +00:00
parent f7d5dd13bf
commit 9b4ce0a501
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/widestr.pas
View File

@ -44,7 +44,7 @@ unit widestr;
end;
procedure initwidestring(out r : pcompilerwidestring);
procedure donewidestring(out r : pcompilerwidestring);
procedure donewidestring(var r : pcompilerwidestring);
procedure setlengthwidestring(r : pcompilerwidestring;l : SizeInt);
function getlengthwidestring(r : pcompilerwidestring) : SizeInt;
procedure concatwidestringchar(r : pcompilerwidestring;c : tcompilerwidechar);
@ -74,7 +74,7 @@ unit widestr;
r^.maxlen:=0;
end;
procedure donewidestring(out r : pcompilerwidestring);
procedure donewidestring(var r : pcompilerwidestring);
begin
if assigned(r^.data) then