home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / CLISP-2.LHA / CLISP960530-di.lha / diffs-ffi-14.8.96-jch < prev    next >
Encoding:
Text File  |  1996-08-15  |  16.6 KB  |  719 lines
  1. Only in dh0:source/clisptmp/ffcall/autoconf: CVS
  2. Only in ffcall/avcall: avcall-m68k-amiga-orig.c
  3. diff -rc2 dh0:source/clisptmp/ffcall/avcall/avcall-m68k-amiga.c ffcall/avcall/avcall-m68k-amiga.c
  4. *** dh0:source/clisptmp/ffcall/avcall/avcall-m68k-amiga.c    Mon Apr 15 16:25:42 1996
  5. --- ffcall/avcall/avcall-m68k-amiga.c    Thu Jun 20 23:04:44 1996
  6. ***************
  7. *** 33,40 ****
  8.     register variables, or use the assembler version.
  9.     ----------------------------------------------------------------------*/
  10. ! #include "avcall.h.in"
  11.   
  12.   #define RETURN(TYPE,VAL)    (*(TYPE*)l->raddr = (TYPE)(VAL))
  13.   
  14.   int
  15.   __builtin_avcall(av_alist* l)
  16. --- 33,43 ----
  17.     register variables, or use the assembler version.
  18.     ----------------------------------------------------------------------*/
  19. ! #include "avcall.h"
  20.   
  21.   #define RETURN(TYPE,VAL)    (*(TYPE*)l->raddr = (TYPE)(VAL))
  22.   
  23. + #define NUM_SAVED_REGS    (6+7)    /* save d2-d7/a0-a6 */
  24. + #define SAVED_REGS_MASK 0x7ffc
  25. + 
  26.   int
  27.   __builtin_avcall(av_alist* l)
  28. ***************
  29. *** 47,60 ****
  30.     register double    dret    __asm__("d0");    /* d0,d1 */
  31.   
  32. !   __avword regspace[3+4];        /* temp space for saving registers */
  33. !   __avword space[__AV_ALIST_WORDS];    /* space for callee's stack frame */
  34.     __avword* argframe = sp;        /* stack offset for argument list */
  35.     int arglen = l->aptr - l->args;
  36. !   int i;
  37.   
  38.     for (i = 0; i < arglen; i++)        /* push function args onto stack */
  39.       argframe[i] = l->args[i];
  40.   
  41. !   if (l->rtype == __AVstruct)        /* push struct return address */
  42.       l->regargs[8+1] = (__avword)(l->raddr);
  43.   
  44. --- 50,66 ----
  45.     register double    dret    __asm__("d0");    /* d0,d1 */
  46.   
  47. !   /* space for callee's stack frame and temp space for saving registers */
  48. !   sp -= __AV_ALIST_WORDS+NUM_SAVED_REGS;
  49. !   #define regspace0       sp[__AV_ALIST_WORDS]    /* stack offset for saved registers */
  50. !  {
  51.     __avword* argframe = sp;        /* stack offset for argument list */
  52.     int arglen = l->aptr - l->args;
  53. !   short i;
  54.   
  55.     for (i = 0; i < arglen; i++)        /* push function args onto stack */
  56.       argframe[i] = l->args[i];
  57. +  }
  58.   
  59. !   if (l->rtype == __AVstruct)        /* push struct return address into a1 */
  60.       l->regargs[8+1] = (__avword)(l->raddr);
  61.   
  62. ***************
  63. *** 62,67 ****
  64.      * they are clobbered by the big moveml below.
  65.      */
  66. !   __asm__("moveml #x470f,%0" /* 0x470f == d0-d3/a0-a2/a6 */
  67. !           : "=m" (regspace[0]) : );
  68.   
  69.     __asm__("movel %0,sp@-" : : "g" (&&return_here)); /* prepare function call */
  70. --- 68,73 ----
  71.      * they are clobbered by the big moveml below.
  72.      */
  73. !   __asm__("moveml %1,%0            | 0x7ffc == a6-a0/d7-d2"
  74. !           : "=m" (regspace0) : "n" (SAVED_REGS_MASK));
  75.   
  76.     __asm__("movel %0,sp@-" : : "g" (&&return_here)); /* prepare function call */
  77. ***************
  78. *** 69,87 ****
  79.   
  80.                       /* put some arguments into registers */
  81. !   __asm__("moveml %0,#0x7fff" /* 0x7fff == d0-d7/a0-a6 */
  82. !           :
  83. !           : "m" (l->regargs[0])
  84. !           : /*"d0","d1","d2","d3",*/"d4","d5","d6","d7",/*"a0","a1","a2",*/"a3","a4","a5"/*,"a6"*/
  85. !         /* This long clobber list ensures that the function prologue
  86. !          * contains a                 "moveml #0x3f3e,sp@-"  d2-d7/a2-a6
  87. !          * and the epilogue contains  "moveml sp@+,#0x7cfc"  d2-d7/a2-a6
  88. !          */
  89.            );
  90.   
  91. !   __asm__("rts");        /* call function */
  92. !   return_here:            /* function returns here */
  93.   
  94. !   __asm__("moveml %0,#x470f" /* 0x470f == d0-d3/a0-a2/a6 */
  95. !           : : "m" (regspace[0]) );    /* restore some registers */
  96.   
  97.     switch (l->rtype)            /* save return value */
  98. --- 75,89 ----
  99.   
  100.                       /* put some arguments into registers */
  101. !   __asm__("moveml %0,#0x7fff        | 0x7fff == a6-a0/d7-d0"
  102. !           : : "m" (l->regargs[0])    /* don't set clobber list as we restore ourselves */
  103.            );
  104.   
  105. !   __asm__("rts" : "=d" (iret) :  : "d1" );    /* call function */
  106. !   return_here:                /* function returns here */
  107. ! 
  108. !   __asm__("moveml %0,%1"        /* restore all registers */
  109. !           : : "m" (regspace0), "n" (SAVED_REGS_MASK) );
  110.   
  111. !   sp += __AV_ALIST_WORDS+NUM_SAVED_REGS;    /* restore stack pointer */
  112.   
  113.     switch (l->rtype)            /* save return value */
  114. diff -rc2 dh0:source/clisptmp/ffcall/avcall/avcall-m68k-amiga.s ffcall/avcall/avcall-m68k-amiga.s
  115. *** dh0:source/clisptmp/ffcall/avcall/avcall-m68k-amiga.s    Mon Apr 15 16:25:42 1996
  116. --- ffcall/avcall/avcall-m68k-amiga.s    Thu Jun 20 23:05:11 1996
  117. ***************
  118. *** 6,72 ****
  119.   .globl ___builtin_avcall
  120.   ___builtin_avcall:
  121. !     moveml #0x3f3e,sp@-
  122. !     addw #-1056,sp
  123. !     movel sp@(1104),a6
  124. !     moveq #-32,d2
  125. !     addl a6@(20),d2
  126. !     subl a6,d2
  127. !     asrl #2,d2
  128. !     moveq #0,d4
  129. !     cmpl d4,d2
  130.       jle L3
  131. -     movel sp,a0
  132. -     movel a6,a1
  133.   L5:
  134. !     movel a1@(32),a0@+
  135. !     addqw #4,a1
  136. !     addql #1,d4
  137. !     cmpl d4,d2
  138.       jgt L5
  139.   L3:
  140.       moveq #14,d3
  141. !     cmpl a6@(12),d3
  142. !     jne L7
  143. !     movel a6@(8),a6@(1092)
  144. ! L7:
  145.   #APP
  146. !     moveml #x470f,sp@(1068)
  147. !     movel #L8,sp@-
  148. !     movel a6@,sp@-
  149. !     moveml a6@(1056),#0x7fff
  150.       rts
  151.   #NO_APP
  152. ! L8:
  153.   #APP
  154. !     moveml sp@(1068),#x470f
  155.   #NO_APP
  156.       moveq #14,d3
  157. !     cmpl a6@(12),d3
  158. !     jcs L9
  159. !     movel a6@(12),d2
  160. !     addl d2,d2
  161. ! LI51:
  162. !     movew pc@(L51-LI51-2:b,d2:l),d2
  163.       jmp pc@(2,d2:w)
  164. ! L51:
  165. !     .word L45-L51
  166. !     .word L9-L51
  167. !     .word L43-L51
  168. !     .word L43-L51
  169. !     .word L43-L51
  170. !     .word L44-L51
  171. !     .word L44-L51
  172. !     .word L45-L51
  173. !     .word L45-L51
  174. !     .word L45-L51
  175. !     .word L45-L51
  176. !     .word L21-L51
  177. !     .word L24-L51
  178. !     .word L45-L51
  179. !     .word L26-L51
  180. ! L21:
  181. !     btst #4,a6@(7)
  182. !     jeq L22
  183. !     movel a6@(8),a0
  184.       movel d1,sp@-
  185.       movel d0,sp@-
  186. --- 6,72 ----
  187.   .globl ___builtin_avcall
  188.   ___builtin_avcall:
  189. !     moveml #0x3030,sp@-
  190. !     movel sp@(20),a1
  191. !     addw #-1076,sp
  192. !     movel sp,a2
  193. !     moveq #-32,d0
  194. !     addl a1@(20),d0
  195. !     subl a1,d0
  196. !     asrl #2,d0
  197. !     clrw d1
  198. !     tstl d0
  199.       jle L3
  200.   L5:
  201. !     movew d1,a0
  202. !     movel a1@(32,a0:l:4),a2@(a0:l:4)
  203. !     addqw #1,d1
  204. !     movew d1,a0
  205. !     cmpl a0,d0
  206.       jgt L5
  207.   L3:
  208.       moveq #14,d3
  209. !     cmpl a1@(12),d3
  210. !     jne L6
  211. !     movel a1@(8),a1@(1092)
  212. ! L6:
  213.   #APP
  214. !     moveml #32764,sp@(1024)            | 0x7ffc == a6-a0/d7-d2
  215. !     movel #L7,sp@-
  216. !     movel a1@,sp@-
  217. !     moveml a1@(1056),#0x7fff        | 0x7fff == a6-a0/d7-d0
  218.       rts
  219.   #NO_APP
  220. ! L7:
  221.   #APP
  222. !     moveml sp@(1024),#32764
  223.   #NO_APP
  224. +     addw #1076,sp
  225.       moveq #14,d3
  226. !     cmpl a1@(12),d3
  227. !     jcs L8
  228. !     movel a1@(12),d2
  229. ! LI49:
  230. !     movew pc@(L49-LI49-2:b,d2:l:2),d2
  231.       jmp pc@(2,d2:w)
  232. ! L49:
  233. !     .word L43-L49
  234. !     .word L8-L49
  235. !     .word L41-L49
  236. !     .word L41-L49
  237. !     .word L41-L49
  238. !     .word L42-L49
  239. !     .word L42-L49
  240. !     .word L43-L49
  241. !     .word L43-L49
  242. !     .word L43-L49
  243. !     .word L43-L49
  244. !     .word L20-L49
  245. !     .word L23-L49
  246. !     .word L43-L49
  247. !     .word L25-L49
  248. ! L20:
  249. !     btst #4,a1@(7)
  250. !     jeq L21
  251. !     movel a1@(8),a0
  252.       movel d1,sp@-
  253.       movel d0,sp@-
  254. ***************
  255. *** 73,131 ****
  256.       fmoved sp@+,fp0
  257.       fmoves fp0,a0@
  258. !     jra L9
  259. ! L22:
  260. !     movel a6@(8),a0
  261.       movel d0,a0@
  262. !     jra L9
  263. ! L24:
  264. !     movel a6@(8),a0
  265.       movel d0,a0@
  266.       movel d1,a0@(4)
  267. !     jra L9
  268. ! L26:
  269. !     btst #0,a6@(7)
  270. !     jeq L27
  271. !     movel a6@(16),d1
  272.       moveq #2,d3
  273.       cmpl d1,d3
  274. !     jeq L30
  275. !     jcs L39
  276.       moveq #1,d3
  277.       cmpl d1,d3
  278. !     jeq L29
  279. !     jra L33
  280. ! L39:
  281.       moveq #4,d3
  282.       cmpl d1,d3
  283. !     jeq L31
  284.       moveq #8,d3
  285.       cmpl d1,d3
  286. !     jeq L32
  287. !     jra L33
  288. ! L29:
  289. !     movel a6@(8),a1
  290.       movel d0,a0
  291.       moveb a0@,a1@
  292. !     jra L9
  293. ! L30:
  294. !     movel a6@(8),a1
  295.       movel d0,a0
  296.       movew a0@,a1@
  297. !     jra L9
  298. ! L31:
  299. !     movel a6@(8),a1
  300.       movel d0,a0
  301.       movel a0@,a1@
  302. !     jra L9
  303. ! L32:
  304. !     movel a6@(8),a0
  305.       movel d0,a2
  306.       movel a2@,a0@
  307. !     movel a6@(8),a1
  308.       movew #4,a0
  309.       movel a0@(a2:l),a1@(4)
  310. !     jra L9
  311. ! L33:
  312. !     movel a6@(16),d1
  313.       addql #3,d1
  314.       movel d1,d2
  315. --- 73,131 ----
  316.       fmoved sp@+,fp0
  317.       fmoves fp0,a0@
  318. !     jra L8
  319. ! L21:
  320. !     movel a1@(8),a0
  321.       movel d0,a0@
  322. !     jra L8
  323. ! L23:
  324. !     movel a1@(8),a0
  325.       movel d0,a0@
  326.       movel d1,a0@(4)
  327. !     jra L8
  328. ! L25:
  329. !     btst #0,a1@(7)
  330. !     jeq L26
  331. !     movel a1@(16),d1
  332.       moveq #2,d3
  333.       cmpl d1,d3
  334. !     jeq L29
  335. !     jcs L37
  336.       moveq #1,d3
  337.       cmpl d1,d3
  338. !     jeq L28
  339. !     jra L32
  340. ! L37:
  341.       moveq #4,d3
  342.       cmpl d1,d3
  343. !     jeq L30
  344.       moveq #8,d3
  345.       cmpl d1,d3
  346. !     jeq L31
  347. !     jra L32
  348. ! L28:
  349. !     movel a1@(8),a1
  350.       movel d0,a0
  351.       moveb a0@,a1@
  352. !     jra L8
  353. ! L29:
  354. !     movel a1@(8),a1
  355.       movel d0,a0
  356.       movew a0@,a1@
  357. !     jra L8
  358. ! L30:
  359. !     movel a1@(8),a1
  360.       movel d0,a0
  361.       movel a0@,a1@
  362. !     jra L8
  363. ! L31:
  364. !     movel a1@(8),a0
  365.       movel d0,a2
  366.       movel a2@,a0@
  367. !     movel a1@(8),a1
  368.       movew #4,a0
  369.       movel a0@(a2:l),a1@(4)
  370. !     jra L8
  371. ! L32:
  372. !     movel a1@(16),d1
  373.       addql #3,d1
  374.       movel d1,d2
  375. ***************
  376. *** 132,187 ****
  377.       lsrl #2,d2
  378.       subql #1,d2
  379. !     jmi L9
  380. ! L36:
  381. !     movel a6@(8),a0
  382.       movel d2,d1
  383.       asll #2,d1
  384. !     movel d1,a2
  385. !     movel a2@(d0:l),a0@(d1:l)
  386. !     dbra d2,L36
  387.       clrw d2
  388.       subql #1,d2
  389. !     jcc L36
  390. !     jra L9
  391. ! L27:
  392. !     btst #0,a6@(6)
  393. !     jeq L9
  394. !     movel a6@(16),d2
  395.       moveq #2,d3
  396.       cmpl d2,d3
  397. !     jeq L44
  398. !     jcs L49
  399.       moveq #1,d3
  400.       cmpl d2,d3
  401. !     jeq L43
  402. !     jra L9
  403. ! L49:
  404.       moveq #4,d3
  405.       cmpl d2,d3
  406. !     jeq L45
  407.       moveq #8,d3
  408.       cmpl d2,d3
  409. !     jeq L46
  410. !     jra L9
  411. ! L43:
  412. !     movel a6@(8),a0
  413.       moveb d0,a0@
  414. !     jra L9
  415. ! L44:
  416. !     movel a6@(8),a0
  417.       movew d0,a0@
  418. !     jra L9
  419. ! L45:
  420. !     movel a6@(8),a0
  421.       movel d0,a0@
  422. !     jra L9
  423. ! L46:
  424. !     movel a6@(8),a0
  425.       movel d0,a0@
  426. !     movel a6@(8),a0
  427.       movel d1,a0@(4)
  428. ! L9:
  429. !     moveq #0,d0
  430. !     addw #1056,sp
  431. !     moveml sp@+,#0x7cfc
  432.       rts
  433. --- 132,186 ----
  434.       lsrl #2,d2
  435.       subql #1,d2
  436. !     jmi L8
  437. ! L35:
  438. !     movel a1@(8),a0
  439.       movel d2,d1
  440.       asll #2,d1
  441. !     movel d1,a3
  442. !     movel a3@(d0:l),a0@(d2:l:4)
  443. !     dbra d2,L35
  444.       clrw d2
  445.       subql #1,d2
  446. !     jcc L35
  447. !     jra L8
  448. ! L26:
  449. !     btst #0,a1@(6)
  450. !     jeq L8
  451. !     movel a1@(16),d2
  452.       moveq #2,d3
  453.       cmpl d2,d3
  454. !     jeq L42
  455. !     jcs L47
  456.       moveq #1,d3
  457.       cmpl d2,d3
  458. !     jeq L41
  459. !     jra L8
  460. ! L47:
  461.       moveq #4,d3
  462.       cmpl d2,d3
  463. !     jeq L43
  464.       moveq #8,d3
  465.       cmpl d2,d3
  466. !     jeq L44
  467. !     jra L8
  468. ! L41:
  469. !     movel a1@(8),a0
  470.       moveb d0,a0@
  471. !     jra L8
  472. ! L42:
  473. !     movel a1@(8),a0
  474.       movew d0,a0@
  475. !     jra L8
  476. ! L43:
  477. !     movel a1@(8),a0
  478.       movel d0,a0@
  479. !     jra L8
  480. ! L44:
  481. !     movel a1@(8),a0
  482.       movel d0,a0@
  483. !     movel a1@(8),a0
  484.       movel d1,a0@(4)
  485. ! L8:
  486. !     clrl d0
  487. !     moveml sp@+,#0xc0c
  488.       rts
  489. Only in ffcall/avcall: avcall-m68k-std.c
  490. Only in ffcall/avcall: avcall-m68k-std.s
  491. Only in ffcall/avcall: avcall-m68k-test.c
  492. Only in dh0:source/clisptmp/ffcall/avcall: avcall-m68k.c
  493. Only in ffcall/avcall: avcall-m68k.o
  494. Only in dh0:source/clisptmp/ffcall/avcall: avcall-m68k.s
  495. Only in ffcall/avcall: avcall.h
  496. Only in ffcall/avcall: avcall.o
  497. Only in ffcall/avcall: config.log
  498. Only in ffcall/avcall: config.status
  499. diff -rc2 dh0:source/clisptmp/ffcall/avcall/configure ffcall/avcall/configure
  500. *** dh0:source/clisptmp/ffcall/avcall/configure    Fri May 17 06:46:00 1996
  501. --- ffcall/avcall/configure    Wed Jun 12 21:20:05 1996
  502. ***************
  503. *** 1,3 ****
  504. --- 1,4 ----
  505.   #! /bin/sh
  506. + unalias echo
  507.   
  508.   # Guess values for system-dependent variables and create Makefiles.
  509. Only in dh0:source/clisptmp/ffcall/avcall: CVS
  510. Only in ffcall/avcall: libavcall.a
  511. Only in ffcall/avcall: Makefile
  512. Only in ffcall/avcall: structcpy.o
  513. Only in ffcall/avcall: tests
  514. diff -rc2 dh0:source/clisptmp/ffcall/avcall/tests.c ffcall/avcall/tests.c
  515. *** dh0:source/clisptmp/ffcall/avcall/tests.c    Mon Apr 15 16:25:56 1996
  516. --- ffcall/avcall/tests.c    Wed Jun 12 22:31:01 1996
  517. ***************
  518. *** 21,24 ****
  519. --- 21,28 ----
  520.   #include <stdio.h>
  521.   #include <string.h>
  522. + #if defined(AMIGA)
  523. + /* We don't test passing arguments in registers yet */
  524. + #define AV_ARG_REGNUM -1
  525. + #endif
  526.   #include "avcall.h"
  527.   FILE* out;
  528. Only in ffcall/avcall: tests.o
  529. Only in ffcall/avcall: tests.out
  530. Only in dh0:source/clisptmp/ffcall/avcall/tests.output: CVS
  531. Only in ffcall/avcall: tests.output.m68k-cbm-amigados
  532. Only in ffcall/: config.cache
  533. Only in ffcall/: config.log
  534. Only in ffcall/: config.status
  535. Only in dh0:source/clisptmp/ffcall/configurations: CVS
  536. diff -rc2 dh0:source/clisptmp/ffcall/configure ffcall/configure
  537. *** dh0:source/clisptmp/ffcall/configure    Fri May 17 06:45:36 1996
  538. --- ffcall/configure    Wed Jun 12 21:05:07 1996
  539. ***************
  540. *** 1,3 ****
  541. --- 1,4 ----
  542.   #! /bin/sh
  543. + unalias echo
  544.   
  545.   # Guess values for system-dependent variables and create Makefiles.
  546. Only in dh0:source/clisptmp/ffcall/: CVS
  547. Only in ffcall/: Makefile
  548. Only in ffcall/trampoline: config.h
  549. Only in ffcall/trampoline: config.log
  550. Only in ffcall/trampoline: config.status
  551. diff -rc2 dh0:source/clisptmp/ffcall/trampoline/configure ffcall/trampoline/configure
  552. *** dh0:source/clisptmp/ffcall/trampoline/configure    Fri May 17 06:46:44 1996
  553. --- ffcall/trampoline/configure    Wed Jun 12 21:21:01 1996
  554. ***************
  555. *** 1,3 ****
  556. --- 1,4 ----
  557.   #! /bin/sh
  558. + unalias echo
  559.   
  560.   # Guess values for system-dependent variables and create Makefiles.
  561. Only in dh0:source/clisptmp/ffcall/trampoline: CVS
  562. Only in ffcall/trampoline: libtrampoline.a
  563. Only in ffcall/trampoline: Makefile
  564. Only in ffcall/trampoline: test1
  565. Only in ffcall/trampoline: test1.o
  566. Only in ffcall/trampoline: test2
  567. Only in ffcall/trampoline: test2.o
  568. Only in dh0:source/clisptmp/ffcall/trampoline/tests.passed: CVS
  569. Only in ffcall/trampoline: tests.passed.m68k-cbm-amigados
  570. diff -rc2 dh0:source/clisptmp/ffcall/trampoline/trampoline.c ffcall/trampoline/trampoline.c
  571. *** dh0:source/clisptmp/ffcall/trampoline/trampoline.c    Mon Apr 15 16:26:58 1996
  572. --- ffcall/trampoline/trampoline.c    Tue Jun 25 00:04:24 1996
  573. ***************
  574. *** 28,31 ****
  575. --- 28,43 ----
  576.   #endif
  577.   
  578. + #if defined(AMIGA)
  579. + #include <exec/types.h>
  580. + #include <exec/execbase.h>
  581. + #include <proto/exec.h>
  582. + /* We just need to clear the caches to make the code executable.
  583. +  * No need for EXECUTABLE_VIA_ kludges, CODE_EXECUTABLE comes closest.
  584. +  */
  585. + #ifndef CODE_EXECUTABLE
  586. + #define CODE_EXECUTABLE
  587. + #endif
  588. + #endif
  589. + 
  590.   #ifndef CODE_EXECUTABLE
  591.   /* How do we make the trampoline's code executable? */
  592. ***************
  593. *** 55,59 ****
  594. --- 67,78 ----
  595.   #endif
  596.   
  597. + #ifndef FOR_AMIGA_CLISP
  598.   #include <stdio.h> /* declares fprintf() */
  599. + #else
  600. + extern BPTR Input_handle;
  601. + extern struct ExecBase * const SysBase;
  602. + #define stderr Input_handle
  603. + #define fprintf BPTRfprintf
  604. + #endif
  605.   
  606.   #include <sys/types.h>
  607. ***************
  608. *** 260,263 ****
  609. --- 279,288 ----
  610.   #endif
  611.   
  612. + #ifdef FOR_AMIGA_CLISP
  613. + #define malloc(c) 0
  614. + #define free(a)
  615. + #define abort() fehler_sint64(0)    /* do anything */
  616. + #endif
  617. + 
  618.   #if !defined(CODE_EXECUTABLE) && !defined(EXECUTABLE_VIA_MPROTECT)
  619.   /* AIX doesn't support mprotect() in malloc'ed memory. Must get pages of
  620. ***************
  621. *** 797,800 ****
  622. --- 822,829 ----
  623.   #ifdef NeXT
  624.     asm volatile ("trap #2");
  625. + #else
  626. + #ifdef AMIGA
  627. +   CacheClearE(function,TRAMP_LENGTH,CACRF_ClearI|CACRF_ClearD);
  628. + #endif
  629.   #endif
  630.   #endif
  631. Only in ffcall/trampoline: trampoline.h
  632. Only in ffcall/trampoline: trampoline.o
  633. Only in ffcall/vacall: config.h
  634. Only in ffcall/vacall: config.log
  635. Only in ffcall/vacall: config.status
  636. diff -rc2 dh0:source/clisptmp/ffcall/vacall/configure ffcall/vacall/configure
  637. *** dh0:source/clisptmp/ffcall/vacall/configure    Fri May 17 06:46:20 1996
  638. --- ffcall/vacall/configure    Wed Jun 12 21:20:47 1996
  639. ***************
  640. *** 1,3 ****
  641. --- 1,4 ----
  642.   #! /bin/sh
  643. + unalias echo
  644.   
  645.   # Guess values for system-dependent variables and create Makefiles.
  646. Only in dh0:source/clisptmp/ffcall/vacall: CVS
  647. Only in ffcall/vacall: libvacall.a
  648. Only in ffcall/vacall: Makefile
  649. diff -rc2 dh0:source/clisptmp/ffcall/vacall/misc.c ffcall/vacall/misc.c
  650. *** dh0:source/clisptmp/ffcall/vacall/misc.c    Mon Apr 15 16:27:20 1996
  651. --- ffcall/vacall/misc.c    Tue Jun 25 00:16:55 1996
  652. ***************
  653. *** 8,12 ****
  654. --- 8,20 ----
  655.    */
  656.   
  657. + #ifndef FOR_AMIGA_CLISP
  658.   #include <stdio.h>
  659. + #else
  660. + #include <exec/types.h>
  661. + #include <exec/execbase.h>
  662. + #include <proto/exec.h>
  663. + extern BPTR Input_handle;
  664. + extern struct ExecBase * const SysBase;
  665. + #endif
  666.   
  667.   #include "vacall.h"
  668. ***************
  669. *** 31,37 ****
  670. --- 39,51 ----
  671.   {
  672.     /* If you see this, fix your code. */
  673. + #ifndef FOR_AMIGA_CLISP
  674.     fprintf (stderr, "vacall: va_start type %d and va_return type %d disagree.\n",
  675.                      (int)start_type, (int)return_type);
  676.     abort();
  677. + #else
  678. +   BPTRfprintf (Input_handle, "vacall: va_start type %ld and va_return type %ld disagree.\n",
  679. +                    (long)start_type, (long)return_type);
  680. +   fehler_sint64(0);    /* do anything */
  681. + #endif
  682.   }
  683.   
  684. ***************
  685. *** 41,46 ****
  686. --- 55,76 ----
  687.   {
  688.     /* If you see this, increase __VA_ALIST_WORDS: */
  689. + #ifndef FOR_AMIGA_CLISP
  690.     fprintf (stderr, "vacall: struct of size %u too large for pcc struct return.\n",
  691.                      size);
  692.     abort();
  693. + #else
  694. +   BPTRfprintf (Input_handle, "vacall: struct of size %lu too large for pcc struct return.\n",
  695. +                    (unsigned long)size);
  696. +   fehler_sint64(0);    /* do anything */
  697. + #endif
  698. + }
  699. + 
  700. + #ifdef FOR_AMIGA_CLISP
  701. + /* they come from foreign.o and I have to find a libgcc for them */
  702. + void __extendsfdf2()
  703. + { fehler_uint64(0);
  704.   }
  705. + void __truncdfsf2()
  706. + { fehler_uint64(0);
  707. + }
  708. + #endif
  709. Only in ffcall/vacall: misc.o
  710. Only in ffcall/vacall: structcpy.o
  711. Only in ffcall/vacall: tests
  712. Only in ffcall/vacall: tests.o
  713. Only in ffcall/vacall: tests.out
  714. Only in dh0:source/clisptmp/ffcall/vacall/tests.output: CVS
  715. Only in ffcall/vacall: tests.output.m68k-cbm-amigados
  716. Only in ffcall/vacall: vacall-m68k.o
  717. Only in ffcall/vacall: vacall.h
  718. Only in ffcall/vacall: vacall.o
  719.