20 

    20 

    21 unit uMobile;

    21 unit uMobile;

    22 interface

    22 interface

    23 

    23 

    24 {$IFDEF IPHONEOS}

    24 {$IFDEF IPHONEOS}

    26 procedure clearView; cdecl; external;

    26 procedure clearView; cdecl; external;

    27 procedure startSpinning; cdecl; external;

    27 procedure startSpinning; cdecl; external;

    28 procedure stopSpinning; cdecl; external;

    28 procedure stopSpinning; cdecl; external;

    29 procedure replayBegan; cdecl; external;

    29 procedure replayBegan; cdecl; external;

    30 procedure replayFinished; cdecl; external;

    30 procedure replayFinished; cdecl; external;

    31 procedure updateVisualsNewTurn; cdecl; external;

    31 procedure updateVisualsNewTurn; cdecl; external;

    32 function  isApplePhone: Boolean; cdecl; external;

    32 function  isApplePhone: Boolean; cdecl; external;

    33 {$ENDIF}

    34 {$ENDIF}

    34 function  isPhone: Boolean; inline;

    35 function  isPhone: Boolean; inline;

    36 procedure perfExt_AddProgress; inline;

    37 procedure perfExt_AddProgress; inline;

    37 procedure perfExt_FinishProgress; inline;

    38 procedure perfExt_FinishProgress; inline;

    38 procedure perfExt_AmmoUpdate; // don't inline

    39 procedure perfExt_AmmoUpdate; // don't inline

    39 procedure perfExt_NewTurnBeginning; inline;

    40 procedure perfExt_NewTurnBeginning; inline;

    40 procedure perfExt_SaveBeganSynching; inline;

    41 procedure perfExt_SaveBeganSynching; inline;

    49     exit(isApplePhone());

    50     exit(isApplePhone());

    50 {$ENDIF}

    51 {$ENDIF}

    51     exit(false);

    52     exit(false);

    52 end;

    53 end;

    53 

    54 

    55 begin

    56 begin

    57 end;

    61 end;

    58 

    62 

    59 procedure perfExt_AddProgress; inline;

    63 procedure perfExt_AddProgress; inline;

    60 begin

    64 begin

    61 {$IFDEF IPHONEOS}

    65 {$IFDEF IPHONEOS}