added 2 inline's + fixed for loop.
--
Regards,
Alexey
Index: components/lazutils/fpcadds.pas
===================================================================
--- components/lazutils/fpcadds.pas (revision 59355)
+++ components/lazutils/fpcadds.pas (working copy)
@@ -25,24 +25,21 @@
function StrToWord(const s: string): word;
-function AlignToPtr(const p: Pointer): Pointer;
-function AlignToInt(const p: Pointer): Pointer;
+function AlignToPtr(const p: Pointer): Pointer; inline;
+function AlignToInt(const p: Pointer): Pointer; inline;
implementation
function StrToWord(const s: string): word;
var
- p: Integer;
+ i: Integer;
begin
Result:=0;
- p:=1;
- while (p<=length(s)) do begin
- Result:=Result*10+ord(s[p])-ord('0');
- inc(p);
- end;
+ for i:=1 to Length(s) do
+ Result:=Result*10+ord(s[i])-ord('0');
end;
-function AlignToPtr(const p: Pointer): Pointer;
+function AlignToPtr(const p: Pointer): Pointer; inline;
begin
{$IFDEF FPC_REQUIRES_PROPER_ALIGNMENT}
Result := Align(p, SizeOf(Pointer));
@@ -51,7 +48,7 @@
{$ENDIF}
end;
-function AlignToInt(const p: Pointer): Pointer;
+function AlignToInt(const p: Pointer): Pointer; inline;
begin
{$IFDEF FPC_REQUIRES_PROPER_ALIGNMENT}
Result := Align(p, SizeOf(integer));
--
_______________________________________________
Lazarus mailing list
[email protected]
https://lists.lazarus-ide.org/listinfo/lazarus
