#ifndef _avcall_m88k_c /*-*- C -*-*/
#define _avcall_m88k_c
/**
Copyright 1993 Bill Triggs, <Bill.Triggs@inrialpes.fr>
Copyright 1995-1999 Bruno Haible, <bruno@clisp.org>
This is free software distributed under the GNU General Public
Licence described in the file COPYING. Contact the author if
you don't have this or can't live with it. There is ABSOLUTELY
NO WARRANTY, explicit or implied, on this software.
**/
/*----------------------------------------------------------------------
!!! THIS ROUTINE MUST BE COMPILED gcc -O -fno-omit-frame-pointer !!!
Foreign function interface for a M88000 with gcc.
This calls a C function with an argument list built up using macros
defined in av_call.h.
M88k Argument Passing Conventions:
All arguments, except the non-structs among the first 8 words, are passed
on the stack with word alignment. Doubles take two words and force double
alignment. Scalars among the first 8 words are passed in registers.
Structure args are are passed as true structures embedded in the argument
stack.
To return a structure, the called function copies the return value to the
address supplied in register "r12".
Compile this routine with gcc -O (or -O2 -fno-omit-frame-pointer or -g -O)
to get the right register variables. For other compilers use the
pre-compiled assembler version.
----------------------------------------------------------------------*/
#include "avcall.h.in"
#define RETURN(TYPE,VAL) (*(TYPE*)l->raddr = (TYPE)(VAL))
register __avword* sret __asm__("r12"); /* structure return pointer */
int
__builtin_avcall(av_alist* l)
{
register __avword* sp __asm__("r31"); /* C names for registers */
/*register __avword iret __asm__("r2"); */
register __avword iret2 __asm__("r3");
register float fret __asm__("r2");
register double dret __asm__("r2");
__avword* argframe = (sp -= __AV_ALIST_WORDS); /* make room for argument list */
int arglen = l->aptr - l->args;
__avword i;
for (i = 0; i < arglen; i++) /* push function args onto stack */
argframe[i] = l->args[i];
if (l->rtype == __AVstruct) /* pass struct return address */
sret = l->raddr;
/* call function, pass 8 args in registers */
i = (*l->func)(l->args[0], l->args[1], l->args[2], l->args[3],
l->args[4], l->args[5], l->args[6], l->args[7]);
/* save return value */
if (l->rtype == __AVvoid) {
} else
if (l->rtype == __AVword) {
RETURN(__avword, i);
} else
if (l->rtype == __AVchar) {
RETURN(char, i);
} else
if (l->rtype == __AVschar) {
RETURN(signed char, i);
} else
if (l->rtype == __AVuchar) {
RETURN(unsigned char, i);
} else
if (l->rtype == __AVshort) {
RETURN(short, i);
} else
if (l->rtype == __AVushort) {
RETURN(unsigned short, i);
} else
if (l->rtype == __AVint) {
RETURN(int, i);
} else
if (l->rtype == __AVuint) {
RETURN(unsigned int, i);
} else
if (l->rtype == __AVlong) {
RETURN(long, i);
} else
if (l->rtype == __AVulong) {
RETURN(unsigned long, i);
} else
if (l->rtype == __AVlonglong || l->rtype == __AVulonglong) {
((__avword*)l->raddr)[0] = i;
((__avword*)l->raddr)[1] = iret2;
} else
if (l->rtype == __AVfloat) {
RETURN(float, fret);
} else
if (l->rtype == __AVdouble) {
RETURN(double, dret);
} else
if (l->rtype == __AVvoidp) {
RETURN(void*, i);
} else
if (l->rtype == __AVstruct) {
if (l->flags & __AV_PCC_STRUCT_RETURN) {
/* pcc struct return convention: need a *(TYPE*)l->raddr = *(TYPE*)i; */
if (l->rsize == sizeof(char)) {
RETURN(char, *(char*)i);
} else
if (l->rsize == sizeof(short)) {
RETURN(short, *(short*)i);
} else
if (l->rsize == sizeof(int)) {
RETURN(int, *(int*)i);
} else
if (l->rsize == sizeof(double)) {
((int*)l->raddr)[0] = ((int*)i)[0];
((int*)l->raddr)[1] = ((int*)i)[1];
} else {
int n = (l->rsize + sizeof(__avword)-1)/sizeof(__avword);
while (--n >= 0)
((__avword*)l->raddr)[n] = ((__avword*)i)[n];
}
} else {
/* normal struct return convention */
if (l->flags & __AV_SMALL_STRUCT_RETURN) {
if (l->rsize == sizeof(char)) {
RETURN(char, i);
} else
if (l->rsize == sizeof(short)) {
RETURN(short, i);
} else
if (l->rsize == sizeof(int)) {
RETURN(int, i);
}
}
}
}
sp += __AV_ALIST_WORDS;
return 0;
}
#endif /*_avcall_m88k_c */