开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 系统编程 > 查看源码
mach_dep.c
资源名称：mem_collector.tar.z　[点击查看]
上传用户：nthfjj
上传日期：2007-01-07
资源大小：37k
文件大小：7k
源码类别：

系统编程

开发平台：

Unix_Linux

mach_dep.c：源码内容
  1. # include "runtime.h"
  3. /* Call allocobj or allocaobj after first saving at least those registers */
  4. /* not preserved by the C compiler. The register used for return values   */
  5. /* is not saved, since it will be clobbered anyway.                       */
  6. # ifdef RT
  7.     /* This is done in rt_allocobj.s */
  8. # else
  9. asm("    .text");
  10. asm(" .globl  __allocobj");
  11. asm(" .globl  __allocaobj");
  12. asm(" .globl  _allocobj");
  13. asm(" .globl  _allocaobj");
  15. # ifdef M68K
  16.     asm("_allocobj:");
  17.     asm("   link    a6,#0");
  18.     asm(" movl    d1,sp@-");
  19.     asm(" movl    a0,sp@-");
  20.     asm(" movl    a1,sp@-");
  21.     asm(" movl    sp@(20),sp@-");
  22.     asm(" jbsr    __allocobj");
  23.     asm(" addl    #4,sp");
  24.     asm(" movl    sp@+,a1");
  25.     asm(" movl    sp@+,a0");
  26.     asm(" movl    sp@+,d1");
  27.     asm(" unlk    a6");
  28.     asm(" rts");
  29.     
  30.     asm("_allocaobj:");
  31.     asm(" link    a6,#0");
  32.     asm(" movl    d1,sp@-");
  33.     asm(" movl    a0,sp@-");
  34.     asm(" movl    a1,sp@-");
  35.     asm(" movl    sp@(20),sp@-");
  36.     asm(" jbsr    __allocaobj");
  37.     asm(" addl    #4,sp");
  38.     asm(" movl    sp@+,a1");
  39.     asm(" movl    sp@+,a0");
  40.     asm(" movl    sp@+,d1");
  41.     asm(" unlk    a6");
  42.     asm(" rts");
  43. # endif
  45. # ifdef I386
  46.     asm(".data");
  47.     asm("gc_ret_value: .word 0");
  48.     asm(".word 0");
  49.     asm(".text");
  51.     asm("_allocaobj:");
  52.     asm("pushl %ebp");
  53.     asm("movl %esp,%ebp");
  54.     asm("pushal");
  55.     asm("pushl 8(%ebp)");          /* Push orignal argument */
  56.     asm("call __allocaobj");
  57.     asm("popl %ecx");
  58.     asm("movl %eax,gc_ret_value");  /* Save return value */
  59.     asm("popal");
  60.     asm("movl gc_ret_value,%eax");
  61.     asm("leave");
  62.     asm("ret");
  64.     asm("_allocobj:");
  65.     asm("pushl %ebp");
  66.     asm("movl %esp,%ebp");
  67.     asm("pushal");
  68.     asm("pushl 8(%ebp)");          /* Push orignal argument */
  69.     asm("call __allocobj");
  70.     asm("popl %ecx");
  71.     asm("movl %eax,gc_ret_value");  /* Save return value */
  72.     asm("popal");
  73.     asm("movl gc_ret_value,%eax");
  74.     asm("leave");
  75.     asm("ret");
  76. # endif
  78. # ifdef SPARC
  79.     asm("_allocaobj:");
  80.     asm(" ba __allocaobj");
  81.     asm(" nop");
  82.     asm("_allocobj:");
  83.     asm(" ba __allocobj");
  84.     asm(" nop");
  85.     
  86. #   include <sun4/trap.h>
  87.     asm(" .globl _save_regs_in_stack");
  88.     asm("_save_regs_in_stack:");
  89.     asm(" t 0x3   ! ST_FLUSH_WINDOWS");
  90.     asm(" mov %sp,%o0");
  91.     asm(" retl");
  92.     asm(" nop");
  93. # endif
  95. # ifdef VAX
  96.     asm("_allocobj:");
  97.     asm(".word    0x3e");
  98.     asm("pushl   4(ap)");
  99.     asm("calls   $1,__allocobj");
  100.     asm("ret");
  101.     asm("_allocaobj:");
  102.     asm(".word   0x3e");
  103.     asm("pushl   4(ap)");
  104.     asm("calls   $1,__allocaobj");
  105.     asm("ret");
  106. # endif
  108. # ifdef NS32K
  109.     asm("_allocobj:");
  110.     asm("enter [],$0");
  111.     asm("movd r1,tos");
  112.     asm("movd r2,tos");
  113.     asm("movd 8(fp),tos");
  114.     asm("bsr ?__allocobj");
  115.     asm("adjspb $-4");
  116.     asm("movd tos,r2");
  117.     asm("movd tos,r1");
  118.     asm("exit []");
  119.     asm("ret $0");
  120.     asm("_allocaobj:");
  121.     asm("enter [],$0");
  122.     asm("movd r1,tos");
  123.     asm("movd r2,tos");
  124.     asm("movd 8(fp),tos");
  125.     asm("bsr ?__allocaobj");
  126.     asm("adjspb $-4");
  127.     asm("movd tos,r2");
  128.     asm("movd tos,r1");
  129.     asm("exit []");
  130.     asm("ret $0");
  131. # endif
  134. # if !defined(VAX) && !defined(M68K) && !defined(SPARC) && !defined(I386) && !defined(NS32K)
  135.     --> fix it
  136. # endif
  138. # endif
  140. /* Routine to mark from registers that are preserved by the C compiler */
  141. mark_regs()
  142. {
  143. #       ifdef RT
  144.   register long TMP_SP; /* must be bound to r11 */
  145. #       endif
  146. #       ifdef VAX
  147.   /* r1 through r5 are preserved by allocobj, and therefore     */
  148.   /* on the stack.                                              */
  149.   asm("pushl r11");     asm("calls $1,_tl_mark");
  150.   asm("pushl r10");  asm("calls $1,_tl_mark");
  151.   asm("pushl r9"); asm("calls $1,_tl_mark");
  152.   asm("pushl r8"); asm("calls $1,_tl_mark");
  153.   asm("pushl r7"); asm("calls $1,_tl_mark");
  154.   asm("pushl r6"); asm("calls $1,_tl_mark");
  156.   asm("movl sp,r11"); /* TMP_SP = stack pointer sp */
  157. #       endif
  158. #       ifdef M68K
  159.   /* a0, a1 and d1 are preserved by allocobj */
  160.   /*  and therefore are on stack             */
  162.   asm("subqw #0x4,sp"); /* allocate word on top of stack */
  164.   asm("movl a0,sp@"); asm("jbsr _tl_mark");
  165.   asm("movl a1,sp@"); asm("jbsr _tl_mark");
  166.   asm("movl a2,sp@"); asm("jbsr _tl_mark");
  167.   asm("movl a3,sp@"); asm("jbsr _tl_mark");
  168.   asm("movl a4,sp@"); asm("jbsr _tl_mark");
  169.   asm("movl a5,sp@"); asm("jbsr _tl_mark");
  170.   /* Skip frame pointer and stack pointer */
  171.   asm("movl d0,sp@"); asm("jbsr _tl_mark");
  172.   asm("movl d1,sp@"); asm("jbsr _tl_mark");
  173.   asm("movl d2,sp@"); asm("jbsr _tl_mark");
  174.   asm("movl d3,sp@"); asm("jbsr _tl_mark");
  175.   asm("movl d4,sp@"); asm("jbsr _tl_mark");
  176.   asm("movl d5,sp@"); asm("jbsr _tl_mark");
  177.   asm("movl d6,sp@"); asm("jbsr _tl_mark");
  178.   asm("movl d7,sp@"); asm("jbsr _tl_mark");
  180.   asm("addqw #0x4,sp"); /* put stack back where it was */
  182.   asm("movl a7,d7"); /* TMP_SP = stack pointer a7 */
  183. #       endif
  185. #       ifdef I386
  186.   asm("pushl %eax");  asm("call _tl_mark"); asm("addl $4,%esp");
  187.   asm("pushl %ecx");  asm("call _tl_mark"); asm("addl $4,%esp");
  188.   asm("pushl %edx");  asm("call _tl_mark"); asm("addl $4,%esp");
  189.   asm("pushl %esi");  asm("call _tl_mark"); asm("addl $4,%esp");
  190.   asm("pushl %edi");  asm("call _tl_mark"); asm("addl $4,%esp");
  191.   asm("pushl %ebx");  asm("call _tl_mark"); asm("addl $4,%esp");
  192. #       endif
  194. #       ifdef NS32K
  195.   asm ("movd r3, tos"); asm ("bsr ?_tl_mark"); asm ("adjspb $-4");
  196.   asm ("movd r4, tos"); asm ("bsr ?_tl_mark"); asm ("adjspb $-4");
  197.   asm ("movd r5, tos"); asm ("bsr ?_tl_mark"); asm ("adjspb $-4");
  198.   asm ("movd r6, tos"); asm ("bsr ?_tl_mark"); asm ("adjspb $-4");
  199.   asm ("movd r7, tos"); asm ("bsr ?_tl_mark"); asm ("adjspb $-4");
  200. #       endif
  202. #       ifdef SPARC
  203.   save_regs_in_stack();
  204. #       endif
  206. # ifdef RT
  207.   /* we used to think this wasn't necessary, but gcollect */
  208.   /* can be called from many places ...                   */
  209.     tl_mark(TMP_SP); /* tl_mark from r11 */
  211.     asm("cas r11, r6, r0"); tl_mark(TMP_SP); /* r6 */
  212.     asm("cas r11, r7, r0"); tl_mark(TMP_SP); /* through */
  213.     asm("cas r11, r8, r0"); tl_mark(TMP_SP); /* r10 */
  214.     asm("cas r11, r9, r0"); tl_mark(TMP_SP);
  215.     asm("cas r11, r10, r0"); tl_mark(TMP_SP);
  217.     asm("cas r11, r12, r0"); tl_mark(TMP_SP); /* r12 */
  218.     asm("cas r11, r13, r0"); tl_mark(TMP_SP); /* through */
  219.     asm("cas r11, r14, r0"); tl_mark(TMP_SP); /* r15 */
  220.     asm("cas r11, r15, r0"); tl_mark(TMP_SP);
  221. # endif
  223.       /* other machines... */
  224. #       if !(defined M68K) && !(defined VAX) && !(defined RT) && !(defined SPARC) && !(defined I386) &&!(defined NS32K)
  225.     --> bad news <--
  226. #       endif
  227. }