hedgewars/uFloat.pas
changeset 3599 715a43602da8
parent 3591 c447d5218f6f
child 3929 9a4bbc1f67a2
--- a/hedgewars/uFloat.pas	Wed Jun 30 22:42:55 2010 +0200
+++ b/hedgewars/uFloat.pas	Wed Jun 30 23:27:18 2010 +0200
@@ -22,6 +22,7 @@
 interface
 
 {$IFDEF FPC}
+{$INLINE ON}
 {$IFDEF ENDIAN_LITTLE}
 type hwFloat = record
                isNegative: boolean;
@@ -38,14 +39,14 @@
                end;
 {$ENDIF}
 
-function int2hwFloat (const i: LongInt) : hwFloat;
+function int2hwFloat (const i: LongInt) : hwFloat; inline;
 
-operator + (const z1, z2: hwFloat) z : hwFloat;
-operator - (const z1, z2: hwFloat) z : hwFloat;
+operator + (const z1, z2: hwFloat) z : hwFloat; inline;
+operator - (const z1, z2: hwFloat) z : hwFloat; inline;
 operator - (const z1: hwFloat) z : hwFloat;
 
 operator * (const z1, z2: hwFloat) z : hwFloat;
-operator * (const z1: hwFloat; const z2: LongInt) z : hwFloat;
+operator * (const z1: hwFloat; const z2: LongInt) z : hwFloat; inline;
 operator / (const z1: hwFloat; z2: hwFloat) z : hwFloat;
 operator / (const z1: hwFloat; const z2: LongInt) z : hwFloat;
 
@@ -55,8 +56,8 @@
 function cstr(const z: hwFloat): shortstring;
 function hwRound(const t: hwFloat): LongInt;
 function hwAbs(const t: hwFloat): hwFloat;
-function hwSqr(const t: hwFloat): hwFloat;
-function hwSqrt(const t: hwFloat): hwFloat;
+function hwSqr(const t: hwFloat): hwFloat; inline;
+function hwSqrt(const t: hwFloat): hwFloat; inline;
 function Distance(const dx, dy: hwFloat): hwFloat;
 function DistanceI(const dx, dy: LongInt): hwFloat;
 function AngleSin(const Angle: Longword): hwFloat;
@@ -149,6 +150,7 @@
 implementation
 uses uMisc;
 
+
 {$IFDEF FPC}
 
 function int2hwFloat (const i: LongInt) : hwFloat;