信息检索与抽取

开发平台：
Unix_Linux

mframe-solaris2.h：源码内容
							/* See ../README for copyright */
#define	MFRAME_STACK_STRUCT	0
#define	MFRAME_STRUCT_BYREF	1
#define MFRAME_SMALL_STRUCT	0
#define MFRAME_ARGS_SIZE	32
#define MFRAME_RESULT_SIZE	16
#define MFRAME_GET_STRUCT_ADDR(ARGS, TYPES) 
((*(TYPES)==_C_STRUCT_B || *(TYPES)==_C_UNION_B || *(TYPES)==_C_ARY_B) ? 
      *(void**)((ARGS)->arg_regs+sizeof(void*)): (void*)0)
#define MFRAME_SET_STRUCT_ADDR(ARGS, TYPES, ADDR) 
({if (*(TYPES)==_C_STRUCT_B || *(TYPES)==_C_UNION_B || *(TYPES)==_C_ARY_B) 
      *(void**)((ARGS)->arg_regs+sizeof(void*)) = (ADDR);})
#define	IN_REGS 0
#define	ON_STACK 1
struct sparc_args {
  int offsets[2];   /* 0 for args in regs, 1 for the rest of args on stack */
  int onStack;
};
#define MFRAME_ARGS struct sparc_args
#define MFRAME_INIT_ARGS(CUM, RTYPE)	
({ 
  (CUM).offsets[0] = 8; /* encoding in regs starts from 8 */ 
  (CUM).offsets[1] = 20; /* encoding on stack starts from 20 or 24 */ 
  (CUM).onStack = NO; 
})
#define GET_SPARC_ARG_LOCATION(CUM, CSTRING_TYPE, TYPESIZE) 
((CUM).onStack 
  ? ON_STACK 
  : ((CUM).offsets[IN_REGS] + TYPESIZE <= 6 * sizeof(int) + 8 
    ? (((CUM).offsets[IN_REGS] + TYPESIZE <= 6 * sizeof(int) + 4 
      ? 0 : ((CUM).offsets[ON_STACK] += 4)),
      IN_REGS) 
    : ((CUM).onStack = YES, ON_STACK)))
#if 1
#define MFRAME_ARG_ENCODING(CUM, TYPE, STACK, DEST) 
({ 
  const char* type = (TYPE); 
  size_t align = objc_alignof_type (type); 
  size_t size = objc_sizeof_type (type); 
  unsigned locn; 
  int typelen; 
  
  locn = GET_SPARC_ARG_LOCATION(CUM, type, size); 
  if (locn == ON_STACK) 
    (CUM).offsets[locn] = ROUND ((CUM).offsets[ON_STACK], align); 
  if (size < sizeof (int)) 
    { 
      (CUM).offsets[locn] += sizeof (int) - ROUND (size, align); 
    } 
  (TYPE) = objc_skip_typespec (type); 
  typelen = (TYPE) - type; 
  if (*(TYPE) == '+') 
    (TYPE)++; 
  sprintf ((DEST), "%.*s%s%d", typelen, type, 
    (locn == ON_STACK) ? "" : "+", 
    (CUM).offsets[locn]); 
  while (isDigit (*(TYPE))) 
    { 
      (TYPE)++; 
    } 
  (DEST) = &(DEST)[strlen(DEST)]; 
  if (locn == ON_STACK) 
    { 
      if ((*type==_C_STRUCT_B || *type==_C_UNION_B || *type==_C_ARY_B)) 
	{ 
	  (STACK) = (CUM).offsets[ON_STACK] + ROUND(size, align); 
	} 
      else 
	{ 
	  (STACK) = (CUM).offsets[ON_STACK] + size; 
	} 
    } 
  (CUM).offsets[locn] += 
    size < sizeof(int) 
      ? ROUND (size, align) 
      : ROUND (size, sizeof(void*)); 
})
#else
#define MFRAME_ARG_ENCODING(CUM, TYPE, STACK, DEST) 
({ 
  const char* type = (TYPE); 
  size_t align = objc_alignof_type (type); 
  size_t size = objc_sizeof_type (type); 
  unsigned locn; 
  int typelen; 
  
  locn = GET_SPARC_ARG_LOCATION(CUM, type, size); 
  (TYPE) = objc_skip_typespec (type); 
  locn = *(TYPE) == '+' ? IN_REGS : ON_STACK; 
  if (locn == IN_REGS) 
    (TYPE)++; 
  (CUM).offsets[locn] = atoi (TYPE); 
  typelen = (TYPE) - type; 
  sprintf ((DEST), "%.*s%d", typelen, type, (CUM).offsets[locn]); 
  while (isDigit (*(TYPE))) 
    { 
      (TYPE)++; 
    } 
  (DEST) = &(DEST)[strlen(DEST)]; 
  if (locn == ON_STACK) 
    { 
      if ((*type==_C_STRUCT_B || *type==_C_UNION_B || *type==_C_ARY_B)) 
	{ 
	  (STACK) = (CUM).offsets[ON_STACK] + ROUND(size, align); 
	} 
      else 
	{ 
	  (STACK) = (CUM).offsets[ON_STACK] + size; 
	} 
    } 
  (CUM).offsets[locn] += 
    size < sizeof(int) 
      ? ROUND(size, align) 
      : ROUND(size, sizeof(void*)); 
})
#endif

						