[ViewVC] Diff of: cebix/SheepShaver/src/macos

Comparing SheepShaver/src/macos_util.cpp (file contents):
Revision 1.1 by cebix, 2002-02-04T16:58:13Z vs.
Revision 1.10 by gbeauche, 2004-12-19T09:01:04Z

#	Line 1 \| Line 1
1		/*
2		* macos_util.cpp - MacOS definitions/utility functions
3		*
4	<	* SheepShaver (C) 1997-2002 Christian Bauer and Marc Hellwig
4	>	* SheepShaver (C) 1997-2004 Christian Bauer and Marc Hellwig
5		*
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
#	Line 27 \| Line 27
27		#include "xlowmem.h"
28		#include "emul_op.h"
29		#include "macos_util.h"
30	+	#include "thunks.h"
31
32		#define DEBUG 0
33		#include "debug.h"
#	Line 41 \| Line 42 \| *static inline long CallUniversal(void a**
42		}
43		typedef int16 (gsl_ptr)(char , uint32, uint32, uint32 , void , char );
44		static uint32 gsl_tvect = 0;
45	<	static inline int16 GetSharedLibrary(char arg1, uint32 arg2, uint32 arg3, uint32 arg4, void *arg5, char arg6)
45	>	static inline int16 GetSharedLibrary(uintptr arg1, uint32 arg2, uint32 arg3, uintptr arg4, uintptr arg5, uintptr arg6)
46		{
47	<	return (int16)CallMacOS6(gsl_ptr, gsl_tvect, arg1, arg2, arg3, arg4, arg5, arg6);
47	>	return (int16)CallMacOS6(gsl_ptr, gsl_tvect, (char )arg1, arg2, arg3, (uint32 )arg4, (void *)arg5, (char )arg6);
48		}
49		typedef int16 (fs_ptr)(uint32, char , void *, uint32 );
50		static uint32 fs_tvect = 0;
51	<	static inline int16 FindSymbol(uint32 arg1, char arg2, void arg3, uint32 arg4)
51	>	static inline int16 FindSymbol(uint32 arg1, uintptr arg2, uintptr arg3, uintptr arg4)
52		{
53	<	return (int16)CallMacOS4(fs_ptr, fs_tvect, arg1, arg2, arg3, arg4);
53	>	return (int16)CallMacOS4(fs_ptr, fs_tvect, arg1, (char )arg2, (void )arg3, (uint32 *)arg4);
54		}
55		typedef int16 (cc_ptr)(uint32 );
56		static uint32 cc_tvect = 0;
#	Line 57 \| Line 58 \| static inline int16 CloseConnection(uint
58		{
59		return (int16)CallMacOS1(cc_ptr, cc_tvect, arg1);
60		}
61	+	typedef uint32 (*nps_ptr)(uint32);
62	+	static uint32 nps_tvect = 0;
63	+	static inline uint32 NewPtrSys(uint32 arg1)
64	+	{
65	+	return CallMacOS1(nps_ptr, nps_tvect, arg1);
66	+	}
67	+	typedef void (*d_ptr)(uint32);
68	+	static uint32 d_tvect = 0;
69	+	static inline void DisposePtr(uint32 arg1)
70	+	{
71	+	CallMacOS1(d_ptr, d_tvect, arg1);
72	+	}
73
74
75		/*
#	Line 150 \| Line 163 \| void FileDiskLayout(loff_t size, uint8 *
163		* lib and sym must be Pascal strings!
164		*/
165
166	<	void FindLibSymbol(char lib, char *sym)
166	>	uint32 FindLibSymbol(char lib_str, char sym_str)
167		{
168	<	uint32 conn_id = 0;
169	<	void *main_addr = NULL;
170	<	char err[256] = "";
171	<	uint32 *sym_addr = NULL;
172	<	uint32 sym_class = 0;
168	>	SheepVar32 conn_id = 0;
169	>	SheepVar32 main_addr = 0;
170	>	SheepArray<256> err;
171	>	WriteMacInt8(err.addr(), 0);
172	>	SheepVar32 sym_addr = 0;
173	>	SheepVar32 sym_class = 0;
174
175	<	D(bug("FindLibSymbol %s in %s...\n", sym+1, lib+1));
175	>	SheepString lib(lib_str);
176	>	SheepString sym(sym_str);
177
178	<	if ((uint32 )XLM_RUN_MODE == MODE_EMUL_OP) {
178	>	D(bug("FindLibSymbol %s in %s...\n", sym.value()+1, lib.value()+1));
179	>
180	>	if (ReadMacInt32(XLM_RUN_MODE) == MODE_EMUL_OP) {
181		M68kRegisters r;
182
183		// Find shared library
184	<	static const uint16 proc1[] = {
185	<	0x558f, // subq.l #2,a7
186	<	0x2f08, // move.l a0,-(a7)
187	<	0x2f3c, 0x7077, 0x7063, // move.l #'pwpc',-(a7)
188	<	0x2f3c, 0, 1, // move.l #kReferenceCFrag,-(a7)
189	<	0x2f09, // move.l a1,-(a7)
190	<	0x2f0a, // move.l a2,-(a7)
191	<	0x2f0b, // move.l a3,-(a7)
192	<	0x3f3c, 1, // (GetSharedLibrary)
193	<	0xaa5a, // CFMDispatch
194	<	0x301f, // move.w (a7)+,d0
195	<	M68K_RTS
184	>	static const uint8 proc1_template[] = {
185	>	0x55, 0x8f, // subq.l #2,a7
186	>	0x2f, 0x08, // move.l a0,-(a7)
187	>	0x2f, 0x3c, 0x70, 0x77, 0x70, 0x63, // move.l #'pwpc',-(a7)
188	>	0x2f, 0x3c, 0x00, 0x00, 0x00, 0x01, // move.l #kReferenceCFrag,-(a7)
189	>	0x2f, 0x09, // move.l a1,-(a7)
190	>	0x2f, 0x0a, // move.l a2,-(a7)
191	>	0x2f, 0x0b, // move.l a3,-(a7)
192	>	0x3f, 0x3c, 0x00, 0x01, // (GetSharedLibrary)
193	>	0xaa, 0x5a, // CFMDispatch
194	>	0x30, 0x1f, // move.w (a7)+,d0
195	>	M68K_RTS >> 8, M68K_RTS
196		};
197	<	r.a[0] = (uint32)lib;
198	<	r.a[1] = (uint32)&conn_id;
199	<	r.a[2] = (uint32)&main_addr;
200	<	r.a[3] = (uint32)err;
201	<	Execute68k((uint32)proc1, &r);
202	<	D(bug(" GetSharedLibrary: ret %d, connection ID %ld, main %p\n", (int16)r.d[0], conn_id, main_addr));
197	>	BUILD_SHEEPSHAVER_PROCEDURE(proc1);
198	>	r.a[0] = lib.addr();
199	>	r.a[1] = conn_id.addr();
200	>	r.a[2] = main_addr.addr();
201	>	r.a[3] = err.addr();
202	>	Execute68k(proc1, &r);
203	>	D(bug(" GetSharedLibrary: ret %d, connection ID %ld, main %p\n", (int16)r.d[0], conn_id.value(), main_addr.value()));
204		if (r.d[0])
205	<	return NULL;
205	>	return 0;
206
207		// Find symbol
208	<	static const uint16 proc2[] = {
209	<	0x558f, // subq.l #2,a7
210	<	0x2f00, // move.l d0,-(a7)
211	<	0x2f08, // move.l a0,-(a7)
212	<	0x2f09, // move.l a1,-(a7)
213	<	0x2f0a, // move.l a2,-(a7)
214	<	0x3f3c, 5, // (FindSymbol)
215	<	0xaa5a, // CFMDispatch
216	<	0x301f, // move.w (a7)+,d0
217	<	M68K_RTS
208	>	static const uint8 proc2_template[] = {
209	>	0x55, 0x8f, // subq.l #2,a7
210	>	0x2f, 0x00, // move.l d0,-(a7)
211	>	0x2f, 0x08, // move.l a0,-(a7)
212	>	0x2f, 0x09, // move.l a1,-(a7)
213	>	0x2f, 0x0a, // move.l a2,-(a7)
214	>	0x3f, 0x3c, 0x00, 0x05, // (FindSymbol)
215	>	0xaa, 0x5a, // CFMDispatch
216	>	0x30, 0x1f, // move.w (a7)+,d0
217	>	M68K_RTS >> 8, M68K_RTS
218		};
219	<	r.d[0] = conn_id;
220	<	r.a[0] = (uint32)sym;
221	<	r.a[1] = (uint32)&sym_addr;
222	<	r.a[2] = (uint32)&sym_class;
223	<	Execute68k((uint32)proc2, &r);
224	<	D(bug(" FindSymbol: ret %d, sym_addr %p, sym_class %ld\n", (int16)r.d[0], sym_addr, sym_class));
219	>	BUILD_SHEEPSHAVER_PROCEDURE(proc2);
220	>	r.d[0] = conn_id.value();
221	>	r.a[0] = sym.addr();
222	>	r.a[1] = sym_addr.addr();
223	>	r.a[2] = sym_class.addr();
224	>	Execute68k(proc2, &r);
225	>	D(bug(" FindSymbol1: ret %d, sym_addr %p, sym_class %ld\n", (int16)r.d[0], sym_addr.value(), sym_class.value()));
226		//!! CloseConnection()?
227		if (r.d[0])
228	<	return NULL;
228	>	return 0;
229		else
230	<	return sym_addr;
230	>	return sym_addr.value();
231
232		} else {
233
#	Line 217 \| Line 236 \| *void FindLibSymbol(char lib, char sym**
236		return 0;
237		}
238		int16 res;
239	<	res = GetSharedLibrary(lib, FOURCC('p','w','p','c'), 1, &conn_id, &main_addr, err);
240	<	D(bug(" GetSharedLibrary: ret %d, connection ID %ld, main %p\n", res, conn_id, main_addr));
239	>	res = GetSharedLibrary(lib.addr(), FOURCC('p','w','p','c'), 1, conn_id.addr(), main_addr.addr(), err.addr());
240	>	D(bug(" GetSharedLibrary: ret %d, connection ID %ld, main %p\n", res, conn_id.value(), main_addr.value()));
241		if (res)
242	<	return NULL;
243	<	res = FindSymbol(conn_id, sym, (void **)&sym_addr, &sym_class);
244	<	D(bug(" FindSymbol: ret %d, sym_addr %p, sym_class %ld\n", res, sym_addr, sym_class));
242	>	return 0;
243	>	res = FindSymbol(conn_id.value(), sym.addr(), sym_addr.addr(), sym_class.addr());
244	>	D(bug(" FindSymbol: ret %d, sym_addr %p, sym_class %ld\n", res, sym_addr.value(), sym_class.value()));
245		//!!?? CloseConnection(&conn_id);
246		if (res)
247	<	return NULL;
247	>	return 0;
248		else
249	<	return sym_addr;
249	>	return sym_addr.value();
250		}
251		}
252
#	Line 238 \| Line 257 \| *void FindLibSymbol(char lib, char sym**
257
258		void InitCallUniversalProc()
259		{
260	<	cu_tvect = (uint32)FindLibSymbol("\014InterfaceLib", "\021CallUniversalProc");
260	>	cu_tvect = FindLibSymbol("\014InterfaceLib", "\021CallUniversalProc");
261		D(bug("CallUniversalProc TVECT at %08lx\n", cu_tvect));
262		if (cu_tvect == 0) {
263		printf("FATAL: Can't find CallUniversalProc()\n");
264		QuitEmulator();
265		}
266
267	<	gsl_tvect = (uint32)FindLibSymbol("\014InterfaceLib", "\020GetSharedLibrary");
267	>	gsl_tvect = FindLibSymbol("\014InterfaceLib", "\020GetSharedLibrary");
268		D(bug("GetSharedLibrary TVECT at %08lx\n", gsl_tvect));
269		if (gsl_tvect == 0) {
270		printf("FATAL: Can't find GetSharedLibrary()\n");
271		QuitEmulator();
272		}
273
274	<	fs_tvect = (uint32)FindLibSymbol("\014InterfaceLib", "\012FindSymbol");
274	>	fs_tvect = FindLibSymbol("\014InterfaceLib", "\012FindSymbol");
275		D(bug("FindSymbol TVECT at %08lx\n", fs_tvect));
276		if (fs_tvect == 0) {
277		printf("FATAL: Can't find FindSymbol()\n");
278		QuitEmulator();
279		}
280
281	<	cc_tvect = (uint32)FindLibSymbol("\014InterfaceLib", "\017CloseConnection");
281	>	cc_tvect = FindLibSymbol("\014InterfaceLib", "\017CloseConnection");
282		D(bug("CloseConnection TVECT at %08lx\n", cc_tvect));
283		if (cc_tvect == 0) {
284		printf("FATAL: Can't find CloseConnection()\n");
285		QuitEmulator();
286		}
287	+
288	+	nps_tvect = FindLibSymbol("\014InterfaceLib", "\011NewPtrSys");
289	+	D(bug("NewPtrSys TVECT at %08lx\n", nps_tvect));
290	+	if (nps_tvect == 0) {
291	+	printf("FATAL: Can't find NewPtrSys()\n");
292	+	QuitEmulator();
293	+	}
294	+
295	+	d_tvect = FindLibSymbol("\014InterfaceLib", "\012DisposePtr");
296	+	D(bug("DisposePtr TVECT at %08lx\n", d_tvect));
297	+	if (d_tvect == 0) {
298	+	printf("FATAL: Can't find DisposePtr()\n");
299	+	QuitEmulator();
300	+	}
301		}
302
303
#	Line 304 \| Line 337 \| uint32 TimeToMacTime(time_t t)
337		uint32 days = local->tm_yday + 365 * (local->tm_year - 4) + intervening_leap_days;
338		return local->tm_sec + 60 * (local->tm_min + 60 * (local->tm_hour + 24 * days));
339		}
340	+
341	+
342	+	/*
343	+	* Memory allocators in MacOS system heap zone
344	+	*/
345	+
346	+	uint32 Mac_sysalloc(uint32 size)
347	+	{
348	+	return NewPtrSys(size);
349	+	}
350	+
351	+	void Mac_sysfree(uint32 addr)
352	+	{
353	+	DisposePtr(addr);
354	+	}

Diff Legend

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines

Comparing SheepShaver/src/macos_util.cpp (file contents): Revision 1.1 by cebix, 2002-02-04T16:58:13Z vs. Revision 1.10 by gbeauche, 2004-12-19T09:01:04Z

Diff Legend

Comparing SheepShaver/src/macos_util.cpp (file contents):
Revision 1.1 by cebix, 2002-02-04T16:58:13Z vs.
Revision 1.10 by gbeauche, 2004-12-19T09:01:04Z