/[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.5 by gbeauche, Sat Jan 10 08:46:56 2004 UTC revision 1.9 by gbeauche, Mon Nov 22 22:04:38 2004 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-2002 Christian Bauer and Marc Hellwig   *  SheepShaver (C) 1997-2004 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 42  static inline long CallUniversal(void *a Line 42  static inline long CallUniversal(void *a
42  }  }
43  typedef int16 (*gsl_ptr)(char *, uint32, uint32, uint32 *, void **, char *);  typedef int16 (*gsl_ptr)(char *, uint32, uint32, uint32 *, void **, char *);
44  static uint32 gsl_tvect = 0;  static uint32 gsl_tvect = 0;
45  static inline int16 GetSharedLibrary(char *arg1, uint32 arg2, uint32 arg3, uint32 *arg4, void **arg5, char *arg6)  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);          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 *);  typedef int16 (*fs_ptr)(uint32, char *, void **, uint32 *);
50  static uint32 fs_tvect = 0;  static uint32 fs_tvect = 0;
51  static inline int16 FindSymbol(uint32 arg1, char *arg2, void **arg3, uint32 *arg4)  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);          return (int16)CallMacOS4(fs_ptr, fs_tvect, arg1, (char *)arg2, (void **)arg3, (uint32 **)arg4);
54  }  }
55  typedef int16 (*cc_ptr)(uint32 *);  typedef int16 (*cc_ptr)(uint32 *);
56  static uint32 cc_tvect = 0;  static uint32 cc_tvect = 0;
# 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);
62    static uint32 nps_tvect = 0;
63    static inline void *NewPtrSys(uint32 arg1)
64    {
65            return (void *)CallMacOS1(nps_ptr, nps_tvect, arg1);
66    }
67    typedef void (*d_ptr)(void *);
68    static uint32 d_tvect = 0;
69    static inline void DisposePtr(void *arg1)
70    {
71            CallMacOS1(d_ptr, d_tvect, arg1);
72    }
73    
74    
75  /*  /*
# Line 169  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((uint32)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 NULL;
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((uint32)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])
# Line 222  void *FindLibSymbol(char *lib_str, char Line 236  void *FindLibSymbol(char *lib_str, char
236                          return 0;                          return 0;
237                  }                  }
238                  int16 res;                  int16 res;
239                  res = GetSharedLibrary(lib.value(), FOURCC('p','w','p','c'), 1, (uint32 *)conn_id.addr(), (void **)main_addr.addr(), (char *)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 NULL;
243                  res = FindSymbol(conn_id.value(), sym.value(), (void **)sym_addr.addr(), (uint32 *)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)
# Line 270  void InitCallUniversalProc() Line 284  void InitCallUniversalProc()
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");
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 = (uint32)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 309  uint32 TimeToMacTime(time_t t) Line 337  uint32 TimeToMacTime(time_t t)
337          uint32 days = local->tm_yday + 365 * (local->tm_year - 4) + intervening_leap_days;          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));          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    void *Mac_sysalloc(uint32 size)
347    {
348            return NewPtrSys(size);
349    }
350    
351    void Mac_sysfree(void *p)
352    {
353            DisposePtr(p);
354    }
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.9
Christian Bauer">Christian Bauer
 ViewVC Help
Powered by ViewVC 1.1.15