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

* some warning about uninitialized vars fixed by using out instead of var

Browse Source 
git-svn-id: trunk@141 -
This commit is contained in:
florian 2005-05-29 15:18:30 +00:00
parent 21038de78d
commit 9c717f2a35
2 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/cutils.pas
View File

@ -87,7 +87,7 @@ interface
{# Returns true if value is a power of 2, the actual {# Returns true if value is a power of 2, the actual
exponent value is returned in power. exponent value is returned in power.
} }
function ispowerof2(value : int64;var power : longint) : boolean; function ispowerof2(value : int64;out power : longint) : boolean;
function backspace_quote(const s:string;const qchars:Tcharset):string; function backspace_quote(const s:string;const qchars:Tcharset):string;
function octal_quote(const s:string;const qchars:Tcharset):string; function octal_quote(const s:string;const qchars:Tcharset):string;
function maybequoted(const s:string):string; function maybequoted(const s:string):string;
@ -629,7 +629,7 @@ uses
end; end;
function ispowerof2(value : int64;var power : longint) : boolean; function ispowerof2(value : int64;out power : longint) : boolean;
{ {
return if value is a power of 2. And if correct return the power return if value is a power of 2. And if correct return the power
} }

10
compiler/widestr.pas
View File

@ -23,6 +23,8 @@
} }
unit widestr; unit widestr;
{$i fpcdefs.inc}
interface interface
uses uses
@ -41,8 +43,8 @@ unit widestr;
maxlen,len : SizeInt; maxlen,len : SizeInt;
end; end;
procedure initwidestring(var r : pcompilerwidestring); procedure initwidestring(out r : pcompilerwidestring);
procedure donewidestring(var r : pcompilerwidestring); procedure donewidestring(out r : pcompilerwidestring);
procedure setlengthwidestring(r : pcompilerwidestring;l : SizeInt); procedure setlengthwidestring(r : pcompilerwidestring;l : SizeInt);
function getlengthwidestring(r : pcompilerwidestring) : SizeInt; function getlengthwidestring(r : pcompilerwidestring) : SizeInt;
procedure concatwidestringchar(r : pcompilerwidestring;c : tcompilerwidechar); procedure concatwidestringchar(r : pcompilerwidestring;c : tcompilerwidechar);
@ -63,7 +65,7 @@ unit widestr;
globals; globals;
procedure initwidestring(var r : pcompilerwidestring); procedure initwidestring(out r : pcompilerwidestring);
begin begin
new(r); new(r);
@ -72,7 +74,7 @@ unit widestr;
r^.maxlen:=0; r^.maxlen:=0;
end; end;
procedure donewidestring(var r : pcompilerwidestring); procedure donewidestring(out r : pcompilerwidestring);
begin begin
if assigned(r^.data) then if assigned(r^.data) then