home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / mint / utilit~1 / lack.zoo / gemlib / gemlib.diff < prev    next >
Encoding:
Text File  |  1994-01-02  |  7.3 KB  |  261 lines
  1. Only in gemlib.dist: Changelog
  2. diff -w gemlib.dist/Makefile gemlib.mine/Makefile
  3. 9,11c9,13
  4. < AR    = $(CROSSBIN)/car
  5. < CC    = cgcc -m68881 -m68020
  6. < CPP    = /lib/cpp
  7. ---
  8. > CC=/usr/bin/gcc
  9.  
  10. > CPP    = /lib/gcc-cpp
  11.  
  12. > MAKE= /usr/bin/make
  13.  
  14. > AR=/usr/bin/gcc-ar
  15.  
  16. > LIB=/lib
  17.  
  18. 13,14d14
  19. < LIB     = $(CROSSLIB)
  20. < MAKE    = /util/gnu/bin/make
  21. Only in gemlib.mine: README.lack
  22. Only in gemlib.mine: aes.c
  23. diff -w gemlib.dist/aesappl.c gemlib.mine/aesappl.c
  24. 10a11,15
  25. >  *    appl_yield    aes>=2, yield to other gem apps
  26.  
  27. >  *    not yet implemented:
  28.  
  29. >  *    appl_bvset    a function in aes >= 2, I don't know what it does
  30.  
  31. >  *    appl_search   aes>=4, multitos, or both???  find info on other running
  32.  
  33. >  *                  applications
  34.  
  35. 25a31
  36. > #define L_appl_yie
  37.  
  38. 45,49c51,55
  39. <     bzero(_contrl,    CNTRLMAX*sizeof(short));
  40. <     bzero(_intin,    INTINMAX*sizeof(short));
  41. <     bzero(_intout,    INTOUTMAX*sizeof(short));
  42. <     bzero(_ptsin,     2*PTSINMAX*sizeof(short));
  43. <     bzero(_ptsout,     2*PTSOUTMAX*sizeof(short));
  44. ---
  45. >     bzero(_control,    5*sizeof(short));
  46.  
  47. >     bzero(_int_in,    16*sizeof(short));
  48.  
  49. >     bzero(_int_out,    7*sizeof(short));
  50.  
  51. >     bzero(_addrin,     2*sizeof(void *));
  52.  
  53. >     bzero(_addrout,     1*sizeof(void *));
  54.  
  55. 54,55d59
  56. <     gl_ap_version = _global[0];
  57. <     gl_apid = _global[2];
  58. 122a127,174
  59. > #ifdef L_appl_bvs
  60.  
  61. > 
  62.  
  63. > /* Another aes 2.0 function.  I only have tos 1.4, so I really can't say what
  64.  
  65. >  * this one does.  coded control appears in turbo-assembler's aes_vdi.s.
  66.  
  67. >  * appl_bvset(arg1, arg2)
  68.  
  69. >  * {
  70.  
  71. >  *     return __aes__(AES_CONTROL_ENCODE(16, 2, 1, 0));
  72.  
  73. >  * }
  74.  
  75. >  */
  76.  
  77. > #endif /* L_appl_bvs */
  78.  
  79. > 
  80.  
  81. > #ifdef L_appl_yie
  82.  
  83. > 
  84.  
  85. > /* I guess this yields to other applications.  Only present in aes >= 2;
  86.  
  87. >  * however, making an invalid aes call should accomplish exactly the same
  88.  
  89. >  * thing.
  90.  
  91. >  */
  92.  
  93. > int appl_yield(void)
  94.  
  95. > {
  96.  
  97. >     return __aes__(AES_CONTROL_ENCODE(17, 0, 1, 0));
  98.  
  99. > }
  100.  
  101. > #endif /* L_appl_yie */
  102.  
  103. > 
  104.  
  105. > #ifdef L_appl_sea
  106.  
  107. > 
  108.  
  109. > /* This appears in either tos 4.0 or multitos, it apperantly "allows any
  110.  
  111. >  * application to find the apids of all other applications running 
  112.  
  113. >  * concurrently."  See xacc2.txt.
  114.  
  115. >  * flag can be either 0 or 1.  type appears to be a series of flags that say 
  116.  
  117. >  * something about this application.  id and name appear self explanatory.
  118.  
  119. >  */
  120.  
  121. > /*
  122.  
  123. > int appl_search(int flag, char *name, int *type, int *id)
  124.  
  125. > {
  126.  
  127. >     int retval;
  128.  
  129. > 
  130.  
  131. >     _int_in[0]=flag;
  132.  
  133. >     _addrin[0]=name;
  134.  
  135. > 
  136.  
  137. >     retval = __aes__(AES_CONTROL_ENCODE(18, 1, 3, 1));
  138.  
  139. > 
  140.  
  141. >     *type=_int_out[1];
  142.  
  143. >     *id=_int_out[2];
  144.  
  145. >     return retval;
  146.  
  147. > }
  148.  
  149. >  */
  150.  
  151. > #endif /* L_appl_sea */
  152.  
  153. > 
  154.  
  155. diff -w gemlib.dist/aesbind.h gemlib.mine/aesbind.h
  156. 4d3
  157. < #include <gemfast.h>
  158. 150c149
  159. < __EXTERN int    shel_envrn __PROTO((char *result, char *param));
  160. ---
  161. > __EXTERN int    shel_envrn __PROTO((char **result, char *param));
  162.  
  163. diff -w gemlib.dist/aeshell.c gemlib.mine/aeshell.c
  164. 76c76
  165. < int shel_envrn(char *result, char *param)
  166. ---
  167. > int shel_envrn(char **result, char *param)
  168.  
  169. Only in gemlib.mine: aesparams.c
  170. Only in gemlib.dist: common.c
  171. diff -w gemlib.dist/common.h gemlib.mine/common.h
  172. 27c27
  173. <    respectively are 5, 16 and 7 shorts and 2 and 1 longs for
  174. ---
  175. >    respectively are 5, 16 and 7 shorts and 3 and 1 longs for
  176.  
  177. 32,37c32,52
  178. < #define _control    (&_contrl[0])
  179. < #define _int_in        (&_intin[0])
  180. < #define _int_out    (&_intout[0])
  181. < #define _addrin        ((void **)(&_ptsin[0]))
  182. < #define _addrout    ((void **)(&_ptsout[0]))
  183. < 
  184. ---
  185. > typedef struct aesparams
  186.  
  187. > {
  188.  
  189. >     int *control;
  190.  
  191. >     int *global;
  192.  
  193. >     int *int_in;
  194.  
  195. >     int *int_out;
  196.  
  197. >     void **addr_in;
  198.  
  199. >     void **addr_out;
  200.  
  201. > }AESP;
  202.  
  203. > 
  204.  
  205. > #define _global        (_aesparams->global)
  206.  
  207. > #define _control    (_aesparams->control)
  208.  
  209. > #define _int_in        (_aesparams->int_in)
  210.  
  211. > #define _int_out    (_aesparams->int_out)
  212.  
  213. > #define _addrin        (_aesparams->addr_in)
  214.  
  215. > #define _addrout    (_aesparams->addr_out)
  216.  
  217. > 
  218.  
  219. > extern AESP    * const _aesparams;
  220.  
  221. > /* it won't be changed while seeting up for a trap 2, and will be the same after
  222.  
  223. >  * asm() returns.
  224.  
  225. >  */
  226.  
  227. 80c95,96
  228. < #ifndef __IN_COMMON_C__
  229. ---
  230. > #ifndef __IN_COMMON_C
  231.  
  232. > #ifndef __IN_VDI_C
  233.  
  234. 83,84c99
  235. < extern unsigned short    _contrl[CNTRLMAX], _global[GLOBMAX];
  236. < extern int        gl_apid, gl_ap_version;
  237. ---
  238. > extern unsigned short    _contrl[CNTRLMAX];
  239.  
  240. 86c101
  241. < #endif
  242. ---
  243. > #endif /* __IN_VDI_C */
  244.  
  245. 89c104,126
  246. < int __aes__(unsigned long coded_control);
  247. ---
  248. > # ifndef __NO_GCC_INLINE__
  249.  
  250. > #  define __aes__(coded_control) \
  251.  
  252. > ({\
  253.  
  254. >     __asm__ volatile\
  255.  
  256. >     ("  movel    %1,  d1;\
  257.  
  258. >         lea    %0@, a0;\
  259.  
  260. >     moveq    #0,  d0; \
  261.  
  262. >     movepl    d0,  a0@(0);\
  263.  
  264. >         movepl    d1,  a0@(1);\
  265.  
  266. >         movl    %0,    d1;\
  267.  
  268. >         movw    #0xc8, d0;\
  269.  
  270. >         trap    #2;\
  271.  
  272. >     movl    %0,__aesparams"\
  273.  
  274. >      :                /* no outputs */\
  275.  
  276. >      : "a"(_aesparams), "g"(coded_control)    /* inputs     */\
  277.  
  278. >      : "d0", "d1", "a0"    /* clobbered regs */\
  279.  
  280. >      );\
  281.  
  282. >     (int)_aesparams->int_out[0];\
  283.  
  284. > })
  285.  
  286. > # else
  287.  
  288. > extern int (*__aes__)(unsigned long coded_control);
  289.  
  290. > # endif /* __NO_GCC_INLINE__ */
  291.  
  292. > #endif /* __IN_COMMON_C__ */
  293.  
  294. diff -w gemlib.dist/gemfast.h gemlib.mine/gemfast.h
  295. 580,584c580,608
  296. < extern short         _intin[], _intout[], _ptsin[], _ptsout[];
  297. < #ifndef __GNUC__ /* for gcc see common.h in gemlib */
  298. < extern void          *_addrin[], *_addrout[];
  299. < #endif
  300. < extern int        gl_apid, gl_ap_version;
  301. ---
  302. > #ifndef _COMMON_H
  303.  
  304. > typedef struct aesparams
  305.  
  306. > {
  307.  
  308. >     int *control;
  309.  
  310. >     int *global;
  311.  
  312. >     int *int_in;
  313.  
  314. >     int *int_out;
  315.  
  316. >     void **addr_in;
  317.  
  318. >     void **addr_out;
  319.  
  320. > }AESP;
  321.  
  322. > 
  323.  
  324. > #define _int_in        (_aesparams->int_in)
  325.  
  326. > #define _int_out    (_aesparams->int_out)
  327.  
  328. > #define _addrin        (_aesparams->addr_in)
  329.  
  330. > #define _addrout    (_aesparams->addr_out)
  331.  
  332. > #define gl_apid     (_aesparams->global[2])
  333.  
  334. > #define gl_ap_version (_aesparmas->global[0])
  335.  
  336. > 
  337.  
  338. > extern AESP *_aesparams;
  339.  
  340. > extern int(*__aes__)(unsigned long);
  341.  
  342. > extern int _user_aes(unsigned long);
  343.  
  344. > extern int _super_aes(unsigned long);
  345.  
  346. > #endif /*_COMMON_H*/
  347.  
  348. > 
  349.  
  350. > #define NEW_AESP(x) \
  351.  
  352. >     int __loc_control[5], __loc_global[15], __loc_int_in[16], __loc_int_out[7]; \
  353.  
  354. >     void *__loc_addr_in[3], *__loc_addr_out; \
  355.  
  356. >     AESP x={&__loc_control[0], &__loc_global[0], &__loc_int_in[0], \
  357.  
  358. >             &__loc_int_out[0], &__loc_addr_in[0], &__loc_addr_out}
  359.  
  360. diff -w gemlib.dist/ident.c gemlib.mine/ident.c
  361. 2c2
  362. < char __Ident_gem[] = "$PatchLevel: atariST/TT GnuC gemlib: " PatchLevel " $";
  363. ---
  364. > char __Ident_gem[] = "$PatchLevel: (modified for lack.xfs) atariST/TT GnuC gemlib: " PatchLevel " $";
  365.  
  366. diff -w gemlib.dist/makefile.16 gemlib.mine/makefile.16
  367. 3,5c3,5
  368. < CC=  gcc
  369. < CPP= gcc-cpp
  370. < AR=  gcc-ar
  371. ---
  372. > CC=  \usr\local\bin\gcc.ttp
  373.  
  374. > CPP= \lib\gcc-cpp
  375.  
  376. > AR=  \usr\bin\gcc-ar.ttp
  377.  
  378. 8c8
  379. < LIB = d:\gnu\lib
  380. ---
  381. > LIB = \lib
  382.  
  383. 17c17
  384. < CFLAGS= $(CFFLAGS) -fomit-frame-pointer
  385. ---
  386. > CFLAGS= $(CFFLAGS) -fomit-frame-pointer -D__NO_GCC_INLINE__
  387.  
  388. 27a28,30
  389. > debug:
  390.  
  391. > CFALGS=  $(CFLAGS)
  392.  
  393. > 
  394.  
  395. diff -w gemlib.dist/mincl gemlib.mine/mincl
  396. 5c5
  397. < COMSRC = common.c ident.c
  398. ---
  399. > COMSRC = aes.c vdi.c ident.c aesparams.c
  400.  
  401. 9c9
  402. <       appl_tre.o appl_exi.o 
  403. ---
  404. >       appl_tre.o appl_yie.o appl_exi.o 
  405.  
  406. 99c99
  407. < COMOBJ = common.o ident.o
  408. ---
  409. > COMOBJ = aes.o vdi.o super_aes.o ident.o aesparams.o
  410.  
  411. 101a102,105
  412. > LACK=  $(AESALL) $(COMOBJ)
  413.  
  414. > 
  415.  
  416. > lack:  $(LACK)
  417.  
  418. >     $(AR) rs lackaes.olb $(LACK) 
  419.  
  420. Only in gemlib.mine: vdi.c
  421.