ViewVC Help
View File | Revision Log | Show Annotations | Revision Graph | Root Listing
root/cebix/SheepShaver/src/Windows/main_windows.cpp
Revision: 1.16
Committed: 2009-07-23T19:12:51Z (15 years, 4 months ago) by asvitkine
Branch: MAIN
Changes since 1.15: +1 -1 lines
Log Message:
support for .sheepvm bundles on macosx, containing "prefs" and "nvram" files

File Contents

# User Rev Content
1 gbeauche 1.1 /*
2     * main_windows.cpp - Emulation core, Windows implementation
3     *
4 gbeauche 1.15 * SheepShaver (C) 1997-2008 Christian Bauer and Marc Hellwig
5 gbeauche 1.1 *
6     * This program is free software; you can redistribute it and/or modify
7     * it under the terms of the GNU General Public License as published by
8     * the Free Software Foundation; either version 2 of the License, or
9     * (at your option) any later version.
10     *
11     * This program is distributed in the hope that it will be useful,
12     * but WITHOUT ANY WARRANTY; without even the implied warranty of
13     * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14     * GNU General Public License for more details.
15     *
16     * You should have received a copy of the GNU General Public License
17     * along with this program; if not, write to the Free Software
18     * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
19     */
20    
21     #include <errno.h>
22     #include <stdio.h>
23     #include <stdlib.h>
24     #include <string.h>
25    
26     #include <SDL.h>
27    
28     #include "sysdeps.h"
29     #include "main.h"
30     #include "version.h"
31     #include "prefs.h"
32     #include "prefs_editor.h"
33     #include "cpu_emulation.h"
34     #include "emul_op.h"
35     #include "xlowmem.h"
36     #include "xpram.h"
37     #include "timer.h"
38     #include "adb.h"
39     #include "video.h"
40     #include "sys.h"
41     #include "macos_util.h"
42     #include "rom_patches.h"
43     #include "user_strings.h"
44     #include "vm_alloc.h"
45     #include "sigsegv.h"
46 gbeauche 1.3 #include "util_windows.h"
47 gbeauche 1.11 #include "kernel_windows.h"
48 gbeauche 1.1
49     #define DEBUG 0
50     #include "debug.h"
51    
52     #ifdef ENABLE_MON
53     #include "mon.h"
54     #endif
55    
56    
57     // Constants
58     const char ROM_FILE_NAME[] = "ROM";
59     const char ROM_FILE_NAME2[] = "Mac OS ROM";
60    
61     const uint32 SIG_STACK_SIZE = 0x10000; // Size of signal stack
62    
63    
64     // Global variables (exported)
65     uint32 RAMBase; // Base address of Mac RAM
66     uint32 RAMSize; // Size of Mac RAM
67     uint32 KernelDataAddr; // Address of Kernel Data
68     uint32 BootGlobsAddr; // Address of BootGlobs structure at top of Mac RAM
69     uint32 DRCacheAddr; // Address of DR Cache
70     uint32 PVR; // Theoretical PVR
71     int64 CPUClockSpeed; // Processor clock speed (Hz)
72     int64 BusClockSpeed; // Bus clock speed (Hz)
73     int64 TimebaseSpeed; // Timebase clock speed (Hz)
74     uint8 *RAMBaseHost; // Base address of Mac RAM (host address space)
75     uint8 *ROMBaseHost; // Base address of Mac ROM (host address space)
76 gbeauche 1.9 DWORD win_os; // Windows OS id
77     DWORD win_os_major; // Windows OS version major
78 gbeauche 1.1
79    
80     // Global variables
81     static int kernel_area = -1; // SHM ID of Kernel Data area
82     static bool rom_area_mapped = false; // Flag: Mac ROM mmap()ped
83     static bool ram_area_mapped = false; // Flag: Mac RAM mmap()ped
84     static bool dr_cache_area_mapped = false; // Flag: Mac DR Cache mmap()ped
85     static bool dr_emulator_area_mapped = false;// Flag: Mac DR Emulator mmap()ped
86     static KernelData *kernel_data; // Pointer to Kernel Data
87     static EmulatorData *emulator_data;
88    
89     static uint8 last_xpram[XPRAM_SIZE]; // Buffer for monitoring XPRAM changes
90     static bool nvram_thread_active = false; // Flag: NVRAM watchdog installed
91     static volatile bool nvram_thread_cancel; // Flag: Cancel NVRAM thread
92 gbeauche 1.3 static HANDLE nvram_thread = NULL; // NVRAM watchdog
93 gbeauche 1.1 static bool tick_thread_active = false; // Flag: MacOS thread installed
94     static volatile bool tick_thread_cancel; // Flag: Cancel 60Hz thread
95 gbeauche 1.3 static HANDLE tick_thread = NULL; // 60Hz thread
96     static HANDLE emul_thread = NULL; // MacOS thread
97 gbeauche 1.1 static uintptr sig_stack = 0; // Stack for PowerPC interrupt routine
98    
99     uint32 SheepMem::page_size; // Size of a native page
100     uintptr SheepMem::zero_page = 0; // Address of ro page filled in with zeros
101     uintptr SheepMem::base = 0x60000000; // Address of SheepShaver data
102     uintptr SheepMem::proc; // Bottom address of SheepShave procedures
103     uintptr SheepMem::data; // Top of SheepShaver data (stack like storage)
104    
105    
106     // Prototypes
107     static bool kernel_data_init(void);
108     static void kernel_data_exit(void);
109     static void Quit(void);
110 gbeauche 1.3 static DWORD WINAPI nvram_func(void *arg);
111     static DWORD WINAPI tick_func(void *arg);
112 gbeauche 1.1
113     static void jump_to_rom(uint32 entry);
114     extern void emul_ppc(uint32 start);
115     extern void init_emul_ppc(void);
116     extern void exit_emul_ppc(void);
117 gbeauche 1.14 sigsegv_return_t sigsegv_handler(sigsegv_info_t *sip);
118 gbeauche 1.1
119    
120     /*
121     * Return signal stack base
122     */
123    
124     uintptr SignalStackBase(void)
125     {
126     return sig_stack + SIG_STACK_SIZE;
127     }
128    
129    
130     /*
131     * Memory management helpers
132     */
133    
134     static inline int vm_mac_acquire(uint32 addr, uint32 size)
135     {
136     return vm_acquire_fixed(Mac2HostAddr(addr), size);
137     }
138    
139     static inline int vm_mac_release(uint32 addr, uint32 size)
140     {
141     return vm_release(Mac2HostAddr(addr), size);
142     }
143    
144    
145     /*
146     * Main program
147     */
148    
149     static void usage(const char *prg_name)
150     {
151     printf("Usage: %s [OPTION...]\n", prg_name);
152     printf("\nUnix options:\n");
153     printf(" --display STRING\n X display to use\n");
154     PrefsPrintUsage();
155     exit(0);
156     }
157    
158     int main(int argc, char **argv)
159     {
160     char str[256];
161     int16 i16;
162     HANDLE rom_fh;
163     const char *rom_path;
164     uint32 rom_size;
165     DWORD actual;
166     uint8 *rom_tmp;
167    
168     // Initialize variables
169     RAMBase = 0;
170    
171     // Print some info
172     printf(GetString(STR_ABOUT_TEXT1), VERSION_MAJOR, VERSION_MINOR);
173     printf(" %s\n", GetString(STR_ABOUT_TEXT2));
174    
175     // Read preferences
176 asvitkine 1.16 PrefsInit(NULL, argc, argv);
177 gbeauche 1.1
178     // Parse command line arguments
179     for (int i=1; i<argc; i++) {
180     if (strcmp(argv[i], "--help") == 0) {
181     usage(argv[0]);
182     } else if (argv[i][0] == '-') {
183     fprintf(stderr, "Unrecognized option '%s'\n", argv[i]);
184     usage(argv[0]);
185     }
186     }
187    
188 gbeauche 1.9 // Check we are using a Windows NT kernel >= 4.0
189     OSVERSIONINFO osvi;
190     ZeroMemory(&osvi, sizeof(OSVERSIONINFO));
191     osvi.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
192     if (!GetVersionEx(&osvi)) {
193     ErrorAlert("Could not determine OS type");
194     QuitEmulator();
195     }
196     win_os = osvi.dwPlatformId;
197     win_os_major = osvi.dwMajorVersion;
198     if (win_os != VER_PLATFORM_WIN32_NT || win_os_major < 4) {
199     ErrorAlert(GetString(STR_NO_WIN32_NT_4));
200     QuitEmulator();
201     }
202    
203     // Check that drivers are installed
204     if (!check_drivers())
205     QuitEmulator();
206    
207 gbeauche 1.11 // Load win32 libraries
208     KernelInit();
209    
210 gbeauche 1.10 // FIXME: default to DIB driver
211     if (getenv("SDL_VIDEODRIVER") == NULL)
212     putenv("SDL_VIDEODRIVER=windib");
213    
214 gbeauche 1.1 // Initialize SDL system
215     int sdl_flags = 0;
216     #ifdef USE_SDL_VIDEO
217     sdl_flags |= SDL_INIT_VIDEO;
218     #endif
219     #ifdef USE_SDL_AUDIO
220     sdl_flags |= SDL_INIT_AUDIO;
221     #endif
222     assert(sdl_flags != 0);
223     if (SDL_Init(sdl_flags) == -1) {
224     char str[256];
225     sprintf(str, "Could not initialize SDL: %s.\n", SDL_GetError());
226     ErrorAlert(str);
227     goto quit;
228     }
229     atexit(SDL_Quit);
230    
231     #ifdef ENABLE_MON
232     // Initialize mon
233     mon_init();
234     #endif
235    
236     // Install SIGSEGV handler for CPU emulator
237     if (!sigsegv_install_handler(sigsegv_handler)) {
238     sprintf(str, GetString(STR_SIGSEGV_INSTALL_ERR), strerror(errno));
239     ErrorAlert(str);
240     goto quit;
241     }
242    
243     // Initialize VM system
244     vm_init();
245    
246     // Get system info
247     PVR = 0x00040000; // Default: 604
248     CPUClockSpeed = 100000000; // Default: 100MHz
249     BusClockSpeed = 100000000; // Default: 100MHz
250     TimebaseSpeed = 25000000; // Default: 25MHz
251     PVR = 0x000c0000; // Default: 7400 (with AltiVec)
252     D(bug("PVR: %08x (assumed)\n", PVR));
253    
254     // Init system routines
255     SysInit();
256    
257     // Show preferences editor
258     if (!PrefsFindBool("nogui"))
259     if (!PrefsEditor())
260     goto quit;
261    
262     // Create areas for Kernel Data
263     if (!kernel_data_init())
264     goto quit;
265     kernel_data = (KernelData *)Mac2HostAddr(KERNEL_DATA_BASE);
266     emulator_data = &kernel_data->ed;
267     KernelDataAddr = KERNEL_DATA_BASE;
268     D(bug("Kernel Data at %p (%08x)\n", kernel_data, KERNEL_DATA_BASE));
269     D(bug("Emulator Data at %p (%08x)\n", emulator_data, KERNEL_DATA_BASE + offsetof(KernelData, ed)));
270    
271     // Create area for DR Cache
272     if (vm_mac_acquire(DR_EMULATOR_BASE, DR_EMULATOR_SIZE) < 0) {
273     sprintf(str, GetString(STR_DR_EMULATOR_MMAP_ERR), strerror(errno));
274     ErrorAlert(str);
275     goto quit;
276     }
277     dr_emulator_area_mapped = true;
278     if (vm_mac_acquire(DR_CACHE_BASE, DR_CACHE_SIZE) < 0) {
279     sprintf(str, GetString(STR_DR_CACHE_MMAP_ERR), strerror(errno));
280     ErrorAlert(str);
281     goto quit;
282     }
283     dr_cache_area_mapped = true;
284     DRCacheAddr = (uint32)Mac2HostAddr(DR_CACHE_BASE);
285     D(bug("DR Cache at %p (%08x)\n", DRCacheAddr, DR_CACHE_BASE));
286    
287     // Create area for SheepShaver data
288     if (!SheepMem::Init()) {
289     sprintf(str, GetString(STR_SHEEP_MEM_MMAP_ERR), strerror(errno));
290     ErrorAlert(str);
291     goto quit;
292     }
293    
294     // Create area for Mac ROM
295     if (vm_mac_acquire(ROM_BASE, ROM_AREA_SIZE) < 0) {
296     sprintf(str, GetString(STR_ROM_MMAP_ERR), strerror(errno));
297     ErrorAlert(str);
298     goto quit;
299     }
300     ROMBaseHost = Mac2HostAddr(ROM_BASE);
301     rom_area_mapped = true;
302     D(bug("ROM area at %p (%08x)\n", ROMBaseHost, ROM_BASE));
303    
304     // Create area for Mac RAM
305     RAMSize = PrefsFindInt32("ramsize");
306     if (RAMSize < 8*1024*1024) {
307     WarningAlert(GetString(STR_SMALL_RAM_WARN));
308     RAMSize = 8*1024*1024;
309     }
310 gbeauche 1.13 RAMBase = 0;
311     if (vm_mac_acquire(RAMBase, RAMSize) < 0) {
312 gbeauche 1.1 sprintf(str, GetString(STR_RAM_MMAP_ERR), strerror(errno));
313     ErrorAlert(str);
314     goto quit;
315     }
316 gbeauche 1.13 RAMBaseHost = Mac2HostAddr(RAMBase);
317 gbeauche 1.1 ram_area_mapped = true;
318     D(bug("RAM area at %p (%08x)\n", RAMBaseHost, RAMBase));
319    
320     if (RAMBase > ROM_BASE) {
321     ErrorAlert(GetString(STR_RAM_HIGHER_THAN_ROM_ERR));
322     goto quit;
323     }
324    
325     // Load Mac ROM
326     rom_path = PrefsFindString("rom");
327     rom_fh = CreateFile(rom_path ? rom_path : ROM_FILE_NAME,
328     GENERIC_READ, 0, NULL, OPEN_EXISTING,
329     FILE_ATTRIBUTE_NORMAL, NULL);
330    
331     if (rom_fh == INVALID_HANDLE_VALUE) {
332     rom_fh = CreateFile(rom_path ? rom_path : ROM_FILE_NAME2,
333     GENERIC_READ, 0, NULL, OPEN_EXISTING,
334     FILE_ATTRIBUTE_NORMAL, NULL);
335    
336     if (rom_fh == INVALID_HANDLE_VALUE) {
337     ErrorAlert(GetString(STR_NO_ROM_FILE_ERR));
338     goto quit;
339     }
340     }
341     printf(GetString(STR_READING_ROM_FILE));
342     rom_size = GetFileSize(rom_fh, NULL);
343     rom_tmp = new uint8[ROM_SIZE];
344     ReadFile(rom_fh, (void *)rom_tmp, ROM_SIZE, &actual, NULL);
345     CloseHandle(rom_fh);
346    
347     // Decode Mac ROM
348     if (!DecodeROM(rom_tmp, actual)) {
349     if (rom_size != 4*1024*1024) {
350     ErrorAlert(GetString(STR_ROM_SIZE_ERR));
351     goto quit;
352     } else {
353     ErrorAlert(GetString(STR_ROM_FILE_READ_ERR));
354     goto quit;
355     }
356     }
357     delete[] rom_tmp;
358 gbeauche 1.8
359     // Initialize native timers
360     timer_init();
361 gbeauche 1.1
362 gbeauche 1.6 // Initialize everything
363     if (!InitAll())
364 gbeauche 1.1 goto quit;
365 gbeauche 1.6 D(bug("Initialization complete\n"));
366 gbeauche 1.1
367     // Write protect ROM
368 gbeauche 1.6 vm_protect(ROMBaseHost, ROM_AREA_SIZE, VM_PAGE_READ);
369 gbeauche 1.1
370     // Start 60Hz thread
371     tick_thread_cancel = false;
372 gbeauche 1.3 tick_thread_active = ((tick_thread = create_thread(tick_func)) != NULL);
373     SetThreadPriority(tick_thread, THREAD_PRIORITY_ABOVE_NORMAL);
374 gbeauche 1.1 D(bug("Tick thread installed (%ld)\n", tick_thread));
375    
376     // Start NVRAM watchdog thread
377     memcpy(last_xpram, XPRAM, XPRAM_SIZE);
378     nvram_thread_cancel = false;
379 gbeauche 1.3 nvram_thread_active = ((nvram_thread = create_thread(nvram_func, NULL)) != NULL);
380     SetThreadPriority(nvram_thread, THREAD_PRIORITY_BELOW_NORMAL);
381 gbeauche 1.1 D(bug("NVRAM thread installed (%ld)\n", nvram_thread));
382    
383 gbeauche 1.3 // Get my thread ID and jump to ROM boot routine
384     emul_thread = GetCurrentThread();
385 gbeauche 1.1 D(bug("Jumping to ROM\n"));
386     jump_to_rom(ROM_BASE + 0x310000);
387     D(bug("Returned from ROM\n"));
388    
389     quit:
390     Quit();
391     return 0;
392     }
393    
394    
395     /*
396     * Cleanup and quit
397     */
398    
399     static void Quit(void)
400     {
401     // Exit PowerPC emulation
402     exit_emul_ppc();
403    
404     // Stop 60Hz thread
405     if (tick_thread_active) {
406     tick_thread_cancel = true;
407 gbeauche 1.3 wait_thread(tick_thread);
408 gbeauche 1.1 }
409    
410     // Stop NVRAM watchdog thread
411     if (nvram_thread_active) {
412     nvram_thread_cancel = true;
413 gbeauche 1.3 wait_thread(nvram_thread);
414 gbeauche 1.1 }
415    
416 gbeauche 1.6 // Deinitialize everything
417     ExitAll();
418 gbeauche 1.1
419     // Delete SheepShaver globals
420     SheepMem::Exit();
421    
422     // Delete RAM area
423     if (ram_area_mapped)
424 gbeauche 1.13 vm_mac_release(RAMBase, RAMSize);
425 gbeauche 1.1
426     // Delete ROM area
427     if (rom_area_mapped)
428     vm_mac_release(ROM_BASE, ROM_AREA_SIZE);
429    
430     // Delete DR cache areas
431     if (dr_emulator_area_mapped)
432     vm_mac_release(DR_EMULATOR_BASE, DR_EMULATOR_SIZE);
433     if (dr_cache_area_mapped)
434     vm_mac_release(DR_CACHE_BASE, DR_CACHE_SIZE);
435    
436     // Delete Kernel Data area
437     kernel_data_exit();
438    
439     // Exit system routines
440     SysExit();
441    
442     // Exit preferences
443     PrefsExit();
444    
445 gbeauche 1.11 // Release win32 libraries
446     KernelExit();
447    
448 gbeauche 1.1 #ifdef ENABLE_MON
449     // Exit mon
450     mon_exit();
451     #endif
452    
453     exit(0);
454     }
455    
456    
457     /*
458     * Initialize Kernel Data segments
459     */
460    
461     static HANDLE kernel_handle; // Shared memory handle for Kernel Data
462     static DWORD allocation_granule; // Minimum size of allocateable are (64K)
463     static DWORD kernel_area_size; // Size of Kernel Data area
464    
465     static bool kernel_data_init(void)
466     {
467     char str[256];
468     SYSTEM_INFO si;
469     GetSystemInfo(&si);
470     allocation_granule = si.dwAllocationGranularity;
471     kernel_area_size = (KERNEL_AREA_SIZE + allocation_granule - 1) & -allocation_granule;
472    
473     char rcs[10];
474     LPVOID kernel_addr;
475     kernel_handle = CreateFileMapping(INVALID_HANDLE_VALUE, NULL, PAGE_READWRITE, 0, kernel_area_size, NULL);
476     if (kernel_handle == NULL) {
477     sprintf(rcs, "%d", GetLastError());
478     sprintf(str, GetString(STR_KD_SHMGET_ERR), rcs);
479     ErrorAlert(str);
480     return false;
481     }
482     kernel_addr = (LPVOID)Mac2HostAddr(KERNEL_DATA_BASE & -allocation_granule);
483     if (MapViewOfFileEx(kernel_handle, FILE_MAP_READ | FILE_MAP_WRITE, 0, 0, kernel_area_size, kernel_addr) != kernel_addr) {
484     sprintf(rcs, "%d", GetLastError());
485     sprintf(str, GetString(STR_KD_SHMAT_ERR), rcs);
486     ErrorAlert(str);
487     return false;
488     }
489     kernel_addr = (LPVOID)Mac2HostAddr(KERNEL_DATA2_BASE & -allocation_granule);
490     if (MapViewOfFileEx(kernel_handle, FILE_MAP_READ | FILE_MAP_WRITE, 0, 0, kernel_area_size, kernel_addr) != kernel_addr) {
491     sprintf(rcs, "%d", GetLastError());
492     sprintf(str, GetString(STR_KD2_SHMAT_ERR), rcs);
493     ErrorAlert(str);
494     return false;
495     }
496     return true;
497     }
498    
499    
500     /*
501     * Deallocate Kernel Data segments
502     */
503    
504     static void kernel_data_exit(void)
505     {
506     if (kernel_handle) {
507     UnmapViewOfFile(Mac2HostAddr(KERNEL_DATA_BASE & -allocation_granule));
508     UnmapViewOfFile(Mac2HostAddr(KERNEL_DATA2_BASE & -allocation_granule));
509     CloseHandle(kernel_handle);
510     }
511     }
512    
513    
514     /*
515     * Jump into Mac ROM, start 680x0 emulator
516     */
517    
518     void jump_to_rom(uint32 entry)
519     {
520     init_emul_ppc();
521     emul_ppc(entry);
522     }
523    
524    
525     /*
526     * Quit emulator (cause return from jump_to_rom)
527     */
528    
529     void QuitEmulator(void)
530     {
531     Quit();
532     }
533    
534    
535     /*
536     * Pause/resume emulator
537     */
538    
539     void PauseEmulator(void)
540     {
541 gbeauche 1.3 SuspendThread(emul_thread);
542 gbeauche 1.1 }
543    
544     void ResumeEmulator(void)
545     {
546 gbeauche 1.3 ResumeThread(emul_thread);
547 gbeauche 1.1 }
548    
549    
550     /*
551     * Dump 68k registers
552     */
553    
554     void Dump68kRegs(M68kRegisters *r)
555     {
556     // Display 68k registers
557     for (int i=0; i<8; i++) {
558     printf("d%d: %08x", i, r->d[i]);
559     if (i == 3 || i == 7)
560     printf("\n");
561     else
562     printf(", ");
563     }
564     for (int i=0; i<8; i++) {
565     printf("a%d: %08x", i, r->a[i]);
566     if (i == 3 || i == 7)
567     printf("\n");
568     else
569     printf(", ");
570     }
571     }
572    
573    
574     /*
575     * Make code executable
576     */
577    
578     void MakeExecutable(int dummy, uint32 start, uint32 length)
579     {
580     if ((start >= ROM_BASE) && (start < (ROM_BASE + ROM_SIZE)))
581     return;
582     FlushCodeCache(start, start + length);
583     }
584    
585    
586     /*
587     * NVRAM watchdog thread (saves NVRAM every minute)
588     */
589    
590     static void nvram_watchdog(void)
591     {
592     if (memcmp(last_xpram, XPRAM, XPRAM_SIZE)) {
593     memcpy(last_xpram, XPRAM, XPRAM_SIZE);
594     SaveXPRAM();
595     }
596     }
597    
598 gbeauche 1.3 static DWORD nvram_func(void *arg)
599 gbeauche 1.1 {
600     while (!nvram_thread_cancel) {
601     for (int i=0; i<60 && !nvram_thread_cancel; i++)
602     Delay_usec(999999); // Only wait 1 second so we quit promptly when nvram_thread_cancel becomes true
603     nvram_watchdog();
604     }
605     return 0;
606     }
607    
608    
609     /*
610     * 60Hz thread (really 60.15Hz)
611     */
612    
613 gbeauche 1.3 static DWORD tick_func(void *arg)
614 gbeauche 1.1 {
615     int tick_counter = 0;
616     uint64 start = GetTicks_usec();
617     int64 ticks = 0;
618     uint64 next = GetTicks_usec();
619    
620     while (!tick_thread_cancel) {
621    
622     // Wait
623     next += 16625;
624     int64 delay = next - GetTicks_usec();
625     if (delay > 0)
626     Delay_usec(delay);
627     else if (delay < -16625)
628     next = GetTicks_usec();
629     ticks++;
630    
631     // Pseudo Mac 1Hz interrupt, update local time
632     if (++tick_counter > 60) {
633     tick_counter = 0;
634     WriteMacInt32(0x20c, TimerDateTime());
635     }
636    
637     // Trigger 60Hz interrupt
638     if (ReadMacInt32(XLM_IRQ_NEST) == 0) {
639     SetInterruptFlag(INTFLAG_VIA);
640     TriggerInterrupt();
641     }
642     }
643    
644     uint64 end = GetTicks_usec();
645 gbeauche 1.13 D(bug("%lu ticks in %lu usec = %f ticks/sec\n", (unsigned long)ticks, (unsigned long)(end - start), ticks * 1000000.0 / (end - start)));
646 gbeauche 1.1 return 0;
647     }
648    
649    
650     /*
651     * Mutexes
652     */
653    
654     struct B2_mutex {
655 gbeauche 1.4 mutex_t m;
656 gbeauche 1.1 };
657    
658     B2_mutex *B2_create_mutex(void)
659     {
660     return new B2_mutex;
661     }
662    
663     void B2_lock_mutex(B2_mutex *mutex)
664     {
665 gbeauche 1.4 mutex->m.lock();
666 gbeauche 1.1 }
667    
668     void B2_unlock_mutex(B2_mutex *mutex)
669     {
670 gbeauche 1.4 mutex->m.unlock();
671 gbeauche 1.1 }
672    
673     void B2_delete_mutex(B2_mutex *mutex)
674     {
675     delete mutex;
676     }
677    
678    
679     /*
680     * Interrupt flags (must be handled atomically!)
681     */
682    
683     volatile uint32 InterruptFlags = 0;
684 gbeauche 1.4 static mutex_t intflags_mutex;
685 gbeauche 1.1
686     void SetInterruptFlag(uint32 flag)
687     {
688 gbeauche 1.4 intflags_mutex.lock();
689     InterruptFlags |= flag;
690     intflags_mutex.unlock();
691 gbeauche 1.1 }
692    
693     void ClearInterruptFlag(uint32 flag)
694     {
695 gbeauche 1.4 intflags_mutex.lock();
696     InterruptFlags &= ~flag;
697     intflags_mutex.unlock();
698 gbeauche 1.1 }
699    
700    
701     /*
702     * Disable interrupts
703     */
704    
705     void DisableInterrupt(void)
706     {
707     WriteMacInt32(XLM_IRQ_NEST, int32(ReadMacInt32(XLM_IRQ_NEST)) + 1);
708     }
709    
710    
711     /*
712     * Enable interrupts
713     */
714    
715     void EnableInterrupt(void)
716     {
717     WriteMacInt32(XLM_IRQ_NEST, int32(ReadMacInt32(XLM_IRQ_NEST)) - 1);
718     }
719    
720    
721     /*
722     * Helpers to share 32-bit addressable data with MacOS
723     */
724    
725     bool SheepMem::Init(void)
726     {
727     // Size of a native page
728 gbeauche 1.5 page_size = vm_get_page_size();
729 gbeauche 1.1
730     // Allocate SheepShaver globals
731     proc = base;
732     if (vm_mac_acquire(base, size) < 0)
733     return false;
734    
735     // Allocate page with all bits set to 0, right in the middle
736     // This is also used to catch undesired overlaps between proc and data areas
737     zero_page = proc + (size / 2);
738     Mac_memset(zero_page, 0, page_size);
739     if (vm_protect(Mac2HostAddr(zero_page), page_size, VM_PAGE_READ) < 0)
740     return false;
741    
742     // Allocate alternate stack for PowerPC interrupt routine
743     sig_stack = base + size;
744     if (vm_mac_acquire(sig_stack, SIG_STACK_SIZE) < 0)
745     return false;
746    
747     data = base + size;
748     return true;
749     }
750    
751     void SheepMem::Exit(void)
752     {
753     if (data) {
754     // Delete SheepShaver globals
755     vm_mac_release(base, size);
756    
757     // Delete alternate stack for PowerPC interrupt routine
758     vm_mac_release(sig_stack, SIG_STACK_SIZE);
759     }
760     }
761    
762    
763     /*
764     * Get the main window handle
765     */
766    
767     #ifdef USE_SDL_VIDEO
768     #include <SDL_syswm.h>
769 gbeauche 1.12 HWND GetMainWindowHandle(void)
770 gbeauche 1.1 {
771     SDL_SysWMinfo wmInfo;
772 gbeauche 1.12 SDL_VERSION(&wmInfo.version);
773 gbeauche 1.1 return SDL_GetWMInfo(&wmInfo) ? wmInfo.window : NULL;
774     }
775     #endif
776    
777    
778     /*
779     * Display alert
780     */
781    
782     static void display_alert(int title_id, const char *text, int flags)
783     {
784     HWND hMainWnd = GetMainWindowHandle();
785     MessageBox(hMainWnd, text, GetString(title_id), MB_OK | flags);
786     }
787    
788    
789     /*
790     * Display error alert
791     */
792    
793     void ErrorAlert(const char *text)
794     {
795     if (PrefsFindBool("nogui"))
796     return;
797    
798     VideoQuitFullScreen();
799     display_alert(STR_ERROR_ALERT_TITLE, text, MB_ICONSTOP);
800     }
801    
802    
803     /*
804     * Display warning alert
805     */
806    
807     void WarningAlert(const char *text)
808     {
809     if (PrefsFindBool("nogui"))
810     return;
811    
812     display_alert(STR_WARNING_ALERT_TITLE, text, MB_ICONINFORMATION);
813     }
814    
815    
816     /*
817     * Display choice alert
818     */
819    
820     bool ChoiceAlert(const char *text, const char *pos, const char *neg)
821     {
822     printf(GetString(STR_SHELL_WARNING_PREFIX), text);
823     return false; //!!
824     }