I'm too lazy to comment this

Original commit message from CVS:
Patch from Gerhard Tonn <GerhardTonn@gammatau.de> for s390
This commit is contained in:
Gerhard Tonn 2002-12-02 19:09:47 +00:00 committed by David Schleef
parent c0e293f689
commit 52cc556b97
2 changed files with 20 additions and 1 deletions

2
common

@ -1 +1 @@
Subproject commit f2d9b99515c73da09bfe307d273d320f79a226da
Subproject commit c73793f7022cbc8ffd39f9c0b0587078f47c0b06

View file

@ -159,6 +159,25 @@ struct minimal_stackframe {
/* assume stackframe is 16 bytes */
#define GST_ARCH_SETUP_STACK(sp) sp -= 4
/***** S/390 *****/
#elif defined(HAVE_CPU_S390)
#define GST_ARCH_SET_SP(stackpointer) \
__asm__("lr 15,%0" : : "r"(stackpointer))
#define GST_ARCH_CALL(target) \
__asm__( "basr 14,%0" : : "a"(target) );
struct minimal_s390_stackframe {
unsigned long back_chain;
unsigned long reserved;
unsigned long greg[14];
double freg[4];
};
#define GST_ARCH_SETUP_STACK(sp) \
sp = ((unsigned long *)(sp)) - 24; \
((struct minimal_s390_stackframe *)sp)->back_chain = 0;
#else