/[cebix]/SheepShaver/src/macos_util.cpp
ViewVC logotype

Diff of /SheepShaver/src/macos_util.cpp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by gbeauche, Sat Nov 13 14:09:15 2004 UTC revision 1.11 by gbeauche, Sun Jan 30 21:48:19 2005 UTC
# Line 1  Line 1 
1  /*  /*
2   *  macos_util.cpp - MacOS definitions/utility functions   *  macos_util.cpp - MacOS definitions/utility functions
3   *   *
4   *  SheepShaver (C) 1997-2004 Christian Bauer and Marc Hellwig   *  SheepShaver (C) 1997-2005 Christian Bauer and Marc Hellwig
5   *   *
6   *  This program is free software; you can redistribute it and/or modify   *  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   *  it under the terms of the GNU General Public License as published by
# Line 58  static inline int16 CloseConnection(uint Line 58  static inline int16 CloseConnection(uint
58  {  {
59          return (int16)CallMacOS1(cc_ptr, cc_tvect, arg1);          return (int16)CallMacOS1(cc_ptr, cc_tvect, arg1);
60  }  }
61  typedef void *(*nps_ptr)(uint32);  typedef uint32 (*nps_ptr)(uint32);
62  static uint32 nps_tvect = 0;  static uint32 nps_tvect = 0;
63  static inline void *NewPtrSys(uint32 arg1)  static inline uint32 NewPtrSys(uint32 arg1)
64  {  {
65          return (void *)CallMacOS1(nps_ptr, nps_tvect, arg1);          return CallMacOS1(nps_ptr, nps_tvect, arg1);
66  }  }
67  typedef void (*d_ptr)(void *);  typedef void (*d_ptr)(uint32);
68  static uint32 d_tvect = 0;  static uint32 d_tvect = 0;
69  static inline void DisposePtr(void *arg1)  static inline void DisposePtr(uint32 arg1)
70  {  {
71          CallMacOS1(d_ptr, d_tvect, arg1);          CallMacOS1(d_ptr, d_tvect, arg1);
72  }  }
# Line 163  void FileDiskLayout(loff_t size, uint8 * Line 163  void FileDiskLayout(loff_t size, uint8 *
163   *  lib and sym must be Pascal strings!   *  lib and sym must be Pascal strings!
164   */   */
165    
166  void *FindLibSymbol(char *lib_str, char *sym_str)  uint32 FindLibSymbol(char *lib_str, char *sym_str)
167  {  {
168          SheepVar32 conn_id = 0;          SheepVar32 conn_id = 0;
169          SheepVar32 main_addr = 0;          SheepVar32 main_addr = 0;
# Line 181  void *FindLibSymbol(char *lib_str, char Line 181  void *FindLibSymbol(char *lib_str, char
181                  M68kRegisters r;                  M68kRegisters r;
182    
183                  // Find shared library                  // Find shared library
184                  static const uint16 proc1[] = {                  static const uint8 proc1_template[] = {
185                          PW(0x558f),                                                     // subq.l       #2,a7                          0x55, 0x8f,                                                     // subq.l       #2,a7
186                          PW(0x2f08),                                                     // move.l       a0,-(a7)                          0x2f, 0x08,                                                     // move.l       a0,-(a7)
187                          PW(0x2f3c), PW(0x7077), PW(0x7063),     // move.l       #'pwpc',-(a7)                          0x2f, 0x3c, 0x70, 0x77, 0x70, 0x63,     // move.l       #'pwpc',-(a7)
188                          PW(0x2f3c), PW(0x0000), PW(0x0001),     // move.l       #kReferenceCFrag,-(a7)                          0x2f, 0x3c, 0x00, 0x00, 0x00, 0x01,     // move.l       #kReferenceCFrag,-(a7)
189                          PW(0x2f09),                                                     // move.l       a1,-(a7)                          0x2f, 0x09,                                                     // move.l       a1,-(a7)
190                          PW(0x2f0a),                                                     // move.l       a2,-(a7)                          0x2f, 0x0a,                                                     // move.l       a2,-(a7)
191                          PW(0x2f0b),                                                     // move.l       a3,-(a7)                          0x2f, 0x0b,                                                     // move.l       a3,-(a7)
192                          PW(0x3f3c), PW(0x0001),                         // (GetSharedLibrary)                          0x3f, 0x3c, 0x00, 0x01,                         // (GetSharedLibrary)
193                          PW(0xaa5a),                                                     // CFMDispatch                          0xaa, 0x5a,                                                     // CFMDispatch
194                          PW(0x301f),                                                     // move.w       (a7)+,d0                          0x30, 0x1f,                                                     // move.w       (a7)+,d0
195                          PW(M68K_RTS)                          M68K_RTS >> 8, M68K_RTS
196                  };                  };
197                    BUILD_SHEEPSHAVER_PROCEDURE(proc1);
198                  r.a[0] = lib.addr();                  r.a[0] = lib.addr();
199                  r.a[1] = conn_id.addr();                  r.a[1] = conn_id.addr();
200                  r.a[2] = main_addr.addr();                  r.a[2] = main_addr.addr();
201                  r.a[3] = err.addr();                  r.a[3] = err.addr();
202                  Execute68k(Host2MacAddr((uint8 *)proc1), &r);                  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()));                  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])                  if (r.d[0])
205                          return NULL;                          return 0;
206    
207                  // Find symbol                  // Find symbol
208                  static const uint16 proc2[] = {                  static const uint8 proc2_template[] = {
209                          PW(0x558f),                                     // subq.l       #2,a7                          0x55, 0x8f,                                     // subq.l       #2,a7
210                          PW(0x2f00),                                     // move.l       d0,-(a7)                          0x2f, 0x00,                                     // move.l       d0,-(a7)
211                          PW(0x2f08),                                     // move.l       a0,-(a7)                          0x2f, 0x08,                                     // move.l       a0,-(a7)
212                          PW(0x2f09),                                     // move.l       a1,-(a7)                          0x2f, 0x09,                                     // move.l       a1,-(a7)
213                          PW(0x2f0a),                                     // move.l       a2,-(a7)                          0x2f, 0x0a,                                     // move.l       a2,-(a7)
214                          PW(0x3f3c), PW(0x0005),         // (FindSymbol)                          0x3f, 0x3c, 0x00, 0x05,         // (FindSymbol)
215                          PW(0xaa5a),                                     // CFMDispatch                          0xaa, 0x5a,                                     // CFMDispatch
216                          PW(0x301f),                                     // move.w       (a7)+,d0                          0x30, 0x1f,                                     // move.w       (a7)+,d0
217                          PW(M68K_RTS)                          M68K_RTS >> 8, M68K_RTS
218                  };                  };
219                    BUILD_SHEEPSHAVER_PROCEDURE(proc2);
220                  r.d[0] = conn_id.value();                  r.d[0] = conn_id.value();
221                  r.a[0] = sym.addr();                  r.a[0] = sym.addr();
222                  r.a[1] = sym_addr.addr();                  r.a[1] = sym_addr.addr();
223                  r.a[2] = sym_class.addr();                  r.a[2] = sym_class.addr();
224                  Execute68k(Host2MacAddr((uint8 *)proc2), &r);                  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()));                  D(bug(" FindSymbol1: ret %d, sym_addr %p, sym_class %ld\n", (int16)r.d[0], sym_addr.value(), sym_class.value()));
226  //!! CloseConnection()?  //!! CloseConnection()?
227                  if (r.d[0])                  if (r.d[0])
228                          return NULL;                          return 0;
229                  else                  else
230                          return (void *)sym_addr.value();                          return sym_addr.value();
231    
232          } else {          } else {
233    
# Line 237  void *FindLibSymbol(char *lib_str, char Line 239  void *FindLibSymbol(char *lib_str, char
239                  res = GetSharedLibrary(lib.addr(), FOURCC('p','w','p','c'), 1, conn_id.addr(), main_addr.addr(), err.addr());                  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()));                  D(bug(" GetSharedLibrary: ret %d, connection ID %ld, main %p\n", res, conn_id.value(), main_addr.value()));
241                  if (res)                  if (res)
242                          return NULL;                          return 0;
243                  res = FindSymbol(conn_id.value(), sym.addr(), sym_addr.addr(), sym_class.addr());                  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()));                  D(bug(" FindSymbol: ret %d, sym_addr %p, sym_class %ld\n", res, sym_addr.value(), sym_class.value()));
245  //!!??          CloseConnection(&conn_id);  //!!??          CloseConnection(&conn_id);
246                  if (res)                  if (res)
247                          return NULL;                          return 0;
248                  else                  else
249                          return (void *)sym_addr.value();                          return sym_addr.value();
250          }          }
251  }  }
252    
# Line 255  void *FindLibSymbol(char *lib_str, char Line 257  void *FindLibSymbol(char *lib_str, char
257    
258  void InitCallUniversalProc()  void InitCallUniversalProc()
259  {  {
260          cu_tvect = (uint32)FindLibSymbol("\014InterfaceLib", "\021CallUniversalProc");          cu_tvect = FindLibSymbol("\014InterfaceLib", "\021CallUniversalProc");
261          D(bug("CallUniversalProc TVECT at %08lx\n", cu_tvect));          D(bug("CallUniversalProc TVECT at %08lx\n", cu_tvect));
262          if (cu_tvect == 0) {          if (cu_tvect == 0) {
263                  printf("FATAL: Can't find CallUniversalProc()\n");                  printf("FATAL: Can't find CallUniversalProc()\n");
264                  QuitEmulator();                  QuitEmulator();
265          }          }
266    
267          gsl_tvect = (uint32)FindLibSymbol("\014InterfaceLib", "\020GetSharedLibrary");          gsl_tvect = FindLibSymbol("\014InterfaceLib", "\020GetSharedLibrary");
268          D(bug("GetSharedLibrary TVECT at %08lx\n", gsl_tvect));          D(bug("GetSharedLibrary TVECT at %08lx\n", gsl_tvect));
269          if (gsl_tvect == 0) {          if (gsl_tvect == 0) {
270                  printf("FATAL: Can't find GetSharedLibrary()\n");                  printf("FATAL: Can't find GetSharedLibrary()\n");
271                  QuitEmulator();                  QuitEmulator();
272          }          }
273    
274          fs_tvect = (uint32)FindLibSymbol("\014InterfaceLib", "\012FindSymbol");          fs_tvect = FindLibSymbol("\014InterfaceLib", "\012FindSymbol");
275          D(bug("FindSymbol TVECT at %08lx\n", fs_tvect));          D(bug("FindSymbol TVECT at %08lx\n", fs_tvect));
276          if (fs_tvect == 0) {          if (fs_tvect == 0) {
277                  printf("FATAL: Can't find FindSymbol()\n");                  printf("FATAL: Can't find FindSymbol()\n");
278                  QuitEmulator();                  QuitEmulator();
279          }          }
280    
281          cc_tvect = (uint32)FindLibSymbol("\014InterfaceLib", "\017CloseConnection");          cc_tvect = FindLibSymbol("\014InterfaceLib", "\017CloseConnection");
282          D(bug("CloseConnection TVECT at %08lx\n", cc_tvect));          D(bug("CloseConnection TVECT at %08lx\n", cc_tvect));
283          if (cc_tvect == 0) {          if (cc_tvect == 0) {
284                  printf("FATAL: Can't find CloseConnection()\n");                  printf("FATAL: Can't find CloseConnection()\n");
285                  QuitEmulator();                  QuitEmulator();
286          }          }
287    
288          nps_tvect = (uint32)FindLibSymbol("\014InterfaceLib", "\011NewPtrSys");          nps_tvect = FindLibSymbol("\014InterfaceLib", "\011NewPtrSys");
289          D(bug("NewPtrSys TVECT at %08lx\n", nps_tvect));          D(bug("NewPtrSys TVECT at %08lx\n", nps_tvect));
290          if (nps_tvect == 0) {          if (nps_tvect == 0) {
291                  printf("FATAL: Can't find NewPtrSys()\n");                  printf("FATAL: Can't find NewPtrSys()\n");
292                  QuitEmulator();                  QuitEmulator();
293          }          }
294    
295          d_tvect = (uint32)FindLibSymbol("\014InterfaceLib", "\012DisposePtr");          d_tvect = FindLibSymbol("\014InterfaceLib", "\012DisposePtr");
296          D(bug("DisposePtr TVECT at %08lx\n", d_tvect));          D(bug("DisposePtr TVECT at %08lx\n", d_tvect));
297          if (d_tvect == 0) {          if (d_tvect == 0) {
298                  printf("FATAL: Can't find DisposePtr()\n");                  printf("FATAL: Can't find DisposePtr()\n");
# Line 341  uint32 TimeToMacTime(time_t t) Line 343  uint32 TimeToMacTime(time_t t)
343   *  Memory allocators in MacOS system heap zone   *  Memory allocators in MacOS system heap zone
344   */   */
345    
346  void *Mac_sysalloc(uint32 size)  uint32 Mac_sysalloc(uint32 size)
347  {  {
348          return NewPtrSys(size);          return NewPtrSys(size);
349  }  }
350    
351  void Mac_sysfree(void *p)  void Mac_sysfree(uint32 addr)
352  {  {
353          DisposePtr(p);          DisposePtr(addr);
354  }  }
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.11
Christian Bauer">Christian Bauer
 ViewVC Help
Powered by ViewVC 1.1.15