hedgewars/uMisc.pas
changeset 2690 8e83c7e31720
parent 2671 7e0f88013fe8
child 2691 c0da3a98c01c
equal deleted inserted replaced
2689:dfda97c153a4 2690:8e83c7e31720
    25 {$IFDEF GLES11}
    25 {$IFDEF GLES11}
    26 	gles11,
    26 	gles11,
    27 {$ELSE}
    27 {$ELSE}
    28 	GL,
    28 	GL,
    29 {$ENDIF}
    29 {$ENDIF}
    30 	uFloat;
    30 	uFloat
       
    31 {$IFDEF IPHONEOS}
       
    32 	, PascalExports
       
    33 {$ENDIF}
       
    34 	;
       
    35 
    31 var
    36 var
    32 	isCursorVisible : boolean = false;
    37 	isCursorVisible : boolean = false;
    33 	isTerminated    : boolean = false;
    38 	isTerminated    : boolean = false;
    34 	isInLag         : boolean = false;
    39 	isInLag         : boolean = false;
    35 	isPaused        : boolean = false;
    40 	isPaused        : boolean = false;
   583 {$I-}
   588 {$I-}
   584 for i:= 0 to 7 do
   589 for i:= 0 to 7 do
   585 begin
   590 begin
   586 	assign(f, 
   591 	assign(f, 
   587 {$IFDEF IPHONEOS}
   592 {$IFDEF IPHONEOS}
   588 	string(get_documents_path())
   593 	string(IPH_getDocumentsPath())
   589 {$ELSE}
   594 {$ELSE}
   590 	ParamStr(1)
   595 	ParamStr(1)
   591 {$ENDIF}
   596 {$ENDIF}
   592 	+ '/debug' + inttostr(i) + '.txt');
   597 	+ '/debug' + inttostr(i) + '.txt');
   593 	rewrite(f);
   598 	rewrite(f);