sdl-ios-xcode: src/timer/os2/SDL

annotate src/timer/os2/SDL_systimer.c @ 3798:c8b3d3d13ed1 SDL-ryan-multiple-audio-device

Audio bootstraps can now specify that a driver is only to be used if explicitly requested (for things like the "disk" driver that is always available but you would never want to default to using). Trimmed out code that can be handled by stubs in the core. The "dummy" driver is pretty damned small now. :)

author	Ryan C. Gordon <icculus@icculus.org>
date	Wed, 04 Oct 2006 21:27:53 +0000
parents	c121d94672cb
children	5f6550e5184f

rev	line source
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1 /*
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2 SDL - Simple DirectMedia Layer
1312 c9b51268668f Updated copyright information and removed rcs id lines (problematic in branch merges) Sam Lantinga <slouken@libsdl.org> parents: 1190 diff changeset	3 Copyright (C) 1997-2006 Sam Lantinga
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	4
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	5 This library is free software; you can redistribute it and/or
1312 c9b51268668f Updated copyright information and removed rcs id lines (problematic in branch merges) Sam Lantinga <slouken@libsdl.org> parents: 1190 diff changeset	6 modify it under the terms of the GNU Lesser General Public
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	7 License as published by the Free Software Foundation; either
1312 c9b51268668f Updated copyright information and removed rcs id lines (problematic in branch merges) Sam Lantinga <slouken@libsdl.org> parents: 1190 diff changeset	8 version 2.1 of the License, or (at your option) any later version.
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	9
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	10 This library is distributed in the hope that it will be useful,
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	11 but WITHOUT ANY WARRANTY; without even the implied warranty of
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
1312 c9b51268668f Updated copyright information and removed rcs id lines (problematic in branch merges) Sam Lantinga <slouken@libsdl.org> parents: 1190 diff changeset	13 Lesser General Public License for more details.
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	14
1312 c9b51268668f Updated copyright information and removed rcs id lines (problematic in branch merges) Sam Lantinga <slouken@libsdl.org> parents: 1190 diff changeset	15 You should have received a copy of the GNU Lesser General Public
c9b51268668f Updated copyright information and removed rcs id lines (problematic in branch merges) Sam Lantinga <slouken@libsdl.org> parents: 1190 diff changeset	16 License along with this library; if not, write to the Free Software
c9b51268668f Updated copyright information and removed rcs id lines (problematic in branch merges) Sam Lantinga <slouken@libsdl.org> parents: 1190 diff changeset	17 Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	18
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	19 Sam Lantinga
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	20 slouken@libsdl.org
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	21 */
1402 d910939febfa Use consistent identifiers for the various platforms we support. Sam Lantinga <slouken@libsdl.org> parents: 1361 diff changeset	22 #include "SDL_config.h"
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	23
1635 92947e3a18db Make sure code is only compiled if the appropriate subsystem is enabled Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	24 #ifdef SDL_TIMER_OS2
92947e3a18db Make sure code is only compiled if the appropriate subsystem is enabled Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	25
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	26 #define INCL_DOSMISC
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	27 #define INCL_DOSERRORS
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	28 #define INCL_DOSSEMAPHORES
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	29 #define INCL_DOSDATETIME
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	30 #define INCL_DOSPROCESS
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	31 #define INCL_DOSPROFILE
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	32 #define INCL_DOSEXCEPTIONS
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	33 #include <os2.h>
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	34
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	35 #include "SDL_thread.h"
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	36 #include "SDL_timer.h"
1361 19418e4422cb New configure-based build system. Still work in progress, but much improved Sam Lantinga <slouken@libsdl.org> parents: 1358 diff changeset	37 #include "../SDL_timer_c.h"
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	38
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	39
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	40 #define TIME_WRAP_VALUE (~(DWORD)0)
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	41
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	42 /* The first high-resolution ticks value of the application */
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	43 static long long hires_start_ticks;
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	44 /* The number of ticks per second of the high-resolution performance counter */
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	45 static ULONG hires_ticks_per_second;
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	46
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	47 void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	48 SDL_StartTicks(void)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	49 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	50 DosTmrQueryFreq(&hires_ticks_per_second);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	51 DosTmrQueryTime((PQWORD) & hires_start_ticks);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	52 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	53
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	54 DECLSPEC Uint32 SDLCALL
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	55 SDL_GetTicks(void)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	56 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	57 long long hires_now;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	58 ULONG ticks = ticks;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	59
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	60 DosTmrQueryTime((PQWORD) & hires_now);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	61 /*
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	62 hires_now -= hires_start_ticks;
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	63 hires_now *= 1000;
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	64 hires_now /= hires_ticks_per_second;
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	65 */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	66 /* inline asm to avoid runtime inclusion */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	67 _asm {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	68 push edx
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	69 push eax
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	70 mov eax, dword ptr hires_now
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	71 mov edx, dword ptr hires_now + 4
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	72 sub eax, dword ptr hires_start_ticks
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	73 sbb edx, dword ptr hires_start_ticks + 4
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	74 mov ebx, 1000
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	75 mov ecx, edx
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	76 mul ebx
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	77 push eax
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	78 push edx
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	79 mov eax, ecx
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	80 mul ebx
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	81 pop eax
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	82 add edx, eax
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	83 pop eax
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	84 mov ebx, dword ptr hires_ticks_per_second
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	85 div ebx mov dword ptr ticks, eax pop edx pop eax}
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	86
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	87 return ticks;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	88
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	89 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	90
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	91 /* High resolution sleep, originally made by Ilya Zakharevich */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	92 DECLSPEC void SDLCALL
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	93 SDL_Delay(Uint32 ms)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	94 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	95 /* This is similar to DosSleep(), but has 8ms granularity in time-critical
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	96 threads even on Warp3. */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	97 HEV hevEvent1 = 0; /* Event semaphore handle */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	98 HTIMER htimerEvent1 = 0; /* Timer handle */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	99 APIRET rc = NO_ERROR; /* Return code */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	100 int ret = 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	101 ULONG priority = 0, nesting; /* Shut down the warnings */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	102 PPIB pib;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	103 PTIB tib;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	104 char *e = NULL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	105 APIRET badrc;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	106 int switch_priority = 50;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	107
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	108 DosCreateEventSem(NULL, /* Unnamed */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	109 &hevEvent1, /* Handle of semaphore returned */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	110 DC_SEM_SHARED, /* Shared needed for DosAsyncTimer */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	111 FALSE); /* Semaphore is in RESET state */
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	112
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	113 if (ms >= switch_priority)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	114 switch_priority = 0;
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	115 if (switch_priority) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	116 if (DosGetInfoBlocks(&tib, &pib) != NO_ERROR)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	117 switch_priority = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	118 else {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	119 /* In Warp3, to switch scheduling to 8ms step, one needs to do
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	120 DosAsyncTimer() in time-critical thread. On laters versions,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	121 more and more cases of wait-for-something are covered.
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	122
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	123 It turns out that on Warp3fp42 it is the priority at the time
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	124 of DosAsyncTimer() which matters. Let's hope that this works
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	125 with later versions too... XXXX
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	126 */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	127 priority = (tib->tib_ptib2->tib2_ulpri);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	128 if ((priority & 0xFF00) == 0x0300) /* already time-critical */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	129 switch_priority = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	130 /* Make us time-critical. Just modifying TIB is not enough... */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	131 /* tib->tib_ptib2->tib2_ulpri = 0x0300; */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	132 /* We do not want to run at high priority if a signal causes us
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	133 to longjmp() out of this section... */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	134 if (DosEnterMustComplete(&nesting))
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	135 switch_priority = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	136 else
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	137 DosSetPriority(PRTYS_THREAD, PRTYC_TIMECRITICAL, 0, 0);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	138 }
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	139 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	140
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	141 if ((badrc = DosAsyncTimer(ms, (HSEM) hevEvent1, /* Semaphore to post */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	142 &htimerEvent1))) /* Timer handler (returned) */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	143 e = "DosAsyncTimer";
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	144
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	145 if (switch_priority && tib->tib_ptib2->tib2_ulpri == 0x0300) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	146 /* Nobody switched priority while we slept... Ignore errors... */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	147 /* tib->tib_ptib2->tib2_ulpri = priority; // Get back... */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	148 if (!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	149 (rc = DosSetPriority(PRTYS_THREAD, (priority >> 8) & 0xFF, 0, 0)))
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	150 rc = DosSetPriority(PRTYS_THREAD, 0, priority & 0xFF, 0);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	151 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	152 if (switch_priority)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	153 rc = DosExitMustComplete(&nesting); /* Ignore errors */
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	154
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	155 /* The actual blocking call is made with "normal" priority. This way we
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	156 should not bother with DosSleep(0) etc. to compensate for us interrupting
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	157 higher-priority threads. The goal is to prohibit the system spending too
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	158 much time halt()ing, not to run us "no matter what". */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	159 if (!e) /* Wait for AsyncTimer event */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	160 badrc = DosWaitEventSem(hevEvent1, SEM_INDEFINITE_WAIT);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	161
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	162 if (e); /* Do nothing */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	163 else if (badrc == ERROR_INTERRUPT)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	164 ret = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	165 else if (badrc)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	166 e = "DosWaitEventSem";
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	167 if ((rc = DosCloseEventSem(hevEvent1)) && !e) { /* Get rid of semaphore */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	168 e = "DosCloseEventSem";
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	169 badrc = rc;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	170 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	171 if (e) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	172 SDL_SetError("[SDL_Delay] : Had error in %s(), rc is 0x%x\n", e,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	173 badrc);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	174 }
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	175 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	176
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	177 /* Data to handle a single periodic alarm */
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	178 static int timer_alive = 0;
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	179 static SDL_Thread *timer = NULL;
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	180
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	181 static int
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	182 RunTimer(void *unused)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	183 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	184 DosSetPriority(PRTYS_THREAD, PRTYC_TIMECRITICAL, 0, 0);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	185 while (timer_alive) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	186 if (SDL_timer_running) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	187 SDL_ThreadedTimerCheck();
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	188 }
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	189 SDL_Delay(10);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	190 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	191 return (0);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	192 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	193
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	194 /* This is only called if the event thread is not running */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	195 int
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	196 SDL_SYS_TimerInit(void)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	197 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	198 timer_alive = 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	199 timer = SDL_CreateThread(RunTimer, NULL);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	200 if (timer == NULL)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	201 return (-1);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	202 return (SDL_SetTimerThreaded(1));
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	203 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	204
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	205 void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	206 SDL_SYS_TimerQuit(void)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	207 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	208 timer_alive = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	209 if (timer) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	210 SDL_WaitThread(timer, NULL);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	211 timer = NULL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	212 }
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	213 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	214
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	215 int
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	216 SDL_SYS_StartTimer(void)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	217 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	218 SDL_SetError("Internal logic error: OS/2 uses threaded timer");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	219 return (-1);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	220 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	221
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	222 void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	223 SDL_SYS_StopTimer(void)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	224 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	225 return;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	226 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	227
1635 92947e3a18db Make sure code is only compiled if the appropriate subsystem is enabled Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	228 #endif /* SDL_TIMER_OS2 */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1850 diff changeset	229 /* vi: set ts=4 sw=4 expandtab: */

Mercurial > sdl-ios-xcode

annotate src/timer/os2/SDL_systimer.c @ 3798:c8b3d3d13ed1 SDL-ryan-multiple-audio-device