equal
deleted
inserted
replaced
37 {$IFDEF USE_TOUCH_INTERFACE}, uTouch {$ENDIF} |
37 {$IFDEF USE_TOUCH_INTERFACE}, uTouch {$ENDIF} |
38 {$IFDEF ANDROID}, GLUnit{$ENDIF} |
38 {$IFDEF ANDROID}, GLUnit{$ENDIF} |
39 ; |
39 ; |
40 |
40 |
41 {$IFDEF HWLIBRARY} |
41 {$IFDEF HWLIBRARY} |
42 procedure RunEngine(argc: LongInt; argv: PPChar); cdecl; export; |
42 function RunEngine(argc: LongInt; argv: PPChar): LongInt; cdecl; export; |
43 |
43 |
44 procedure preInitEverything(); |
44 procedure preInitEverything(); |
45 procedure initEverything(complete:boolean); |
45 procedure initEverything(complete:boolean); |
46 procedure freeEverything(complete:boolean); |
46 procedure freeEverything(complete:boolean); |
47 |
47 |
574 |
574 |
575 freeEverything(false); |
575 freeEverything(false); |
576 end; |
576 end; |
577 |
577 |
578 {$IFDEF HWLIBRARY} |
578 {$IFDEF HWLIBRARY} |
579 procedure RunEngine(argc: LongInt; argv: PPChar); cdecl; export; |
579 function RunEngine(argc: LongInt; argv: PPChar): LongInt; cdecl; export; |
580 begin |
580 begin |
581 operatingsystem_parameter_argc:= argc; |
581 operatingsystem_parameter_argc:= argc; |
582 operatingsystem_parameter_argv:= argv; |
582 operatingsystem_parameter_argv:= argv; |
583 {$ELSE} |
583 {$ELSE} |
584 begin |
584 begin |
620 |
620 |
621 {$IFDEF PAS2C} |
621 {$IFDEF PAS2C} |
622 exit(HaltNoError); |
622 exit(HaltNoError); |
623 {$ELSE} |
623 {$ELSE} |
624 {$IFDEF IPHONEOS} |
624 {$IFDEF IPHONEOS} |
625 exit; |
625 exit(HaltNoError); |
626 {$ELSE} |
626 {$ELSE} |
627 halt(HaltNoError); |
627 halt(HaltNoError); |
628 {$ENDIF} |
628 {$ENDIF} |
629 {$ENDIF} |
629 {$ENDIF} |
630 {$IFDEF HWLIBRARY} |
630 {$IFDEF HWLIBRARY} |