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

Merged revisions 141 via svnmerge from

Browse Source 
/trunk

git-svn-id: branches/fixes_2_0@368 -
This commit is contained in:
peter 2005-06-10 08:02:47 +00:00
parent cb6ca4d0dc
commit 8ecb3adf40
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

@ -82,7 +82,7 @@ interface
{# Returns true if value is a power of 2, the actual
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 octal_quote(const s:string;const qchars:Tcharset):string;
function maybequoted(const s:string):string;
@ -616,7 +616,7 @@ uses
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
}

10
compiler/widestr.pas
View File

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