Aren/NetBSD
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Make this work with an ISO C preprocessor.

Browse Source
This commit is contained in:
thorpej 2002-05-30 22:04:55 +00:00
parent d0e990fcad
commit 3a536c1642
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
sys/arch/mac68k/mac68k/macromasm.s
View File

@ -1,4 +1,4 @@
/* $NetBSD: macromasm.s,v 1.19 2001/11/20 03:19:43 chs Exp $ */
/* $NetBSD: macromasm.s,v 1.20 2002/05/30 22:04:55 thorpej Exp $ */
/*-
* Copyright (C) 1994 Bradley A. Grantham
@ -49,10 +49,18 @@
/* Return from a pascal function; pop (pbytes) number of bytes */
/* passed as parameters. Should have picked up "pascal" extension */
/* to GCC... */
#ifdef __STDC__
#define IMMEDIATE #
#define pascalret(pbytes) \
movl %sp@+,%a1 /* get PC (I hate Pascal) */ ; \
addl IMMEDIATE pbytes,%sp /* pop params (I hate Pascal) */ ; \
jra %a1@ /* return (I hate Pascal) */
#else
#define pascalret(pbytes) \
movl %sp@+,%a1 /* get PC (I hate Pascal) */ ; \
addl #pbytes,%sp /* pop params (I hate Pascal) */ ; \
jra %a1@ /* return (I hate Pascal) */ ; \
jra %a1@ /* return (I hate Pascal) */
#endif
/*