Artifact
e87fbade238ae6b1c49a1b4f410bc4959e468bd7:
0000: 2f 2a 0a 20 2a 20 43 6f 70 79 72 69 67 68 74 20 /*. * Copyright
0010: 31 39 39 35 2d 31 39 39 39 20 42 72 75 6e 6f 20 1995-1999 Bruno
0020: 48 61 69 62 6c 65 2c 20 3c 62 72 75 6e 6f 40 63 Haible, <bruno@c
0030: 6c 69 73 70 2e 6f 72 67 3e 0a 20 2a 0a 20 2a 20 lisp.org>. *. *
0040: 54 68 69 73 20 69 73 20 66 72 65 65 20 73 6f 66 This is free sof
0050: 74 77 61 72 65 20 64 69 73 74 72 69 62 75 74 65 tware distribute
0060: 64 20 75 6e 64 65 72 20 74 68 65 20 47 4e 55 20 d under the GNU
0070: 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c General Public L
0080: 69 63 65 6e 63 65 0a 20 2a 20 64 65 73 63 72 69 icence. * descri
0090: 62 65 64 20 69 6e 20 74 68 65 20 66 69 6c 65 20 bed in the file
00a0: 43 4f 50 59 49 4e 47 2e 20 43 6f 6e 74 61 63 74 COPYING. Contact
00b0: 20 74 68 65 20 61 75 74 68 6f 72 20 69 66 20 79 the author if y
00c0: 6f 75 20 64 6f 6e 27 74 20 68 61 76 65 20 74 68 ou don't have th
00d0: 69 73 0a 20 2a 20 6f 72 20 63 61 6e 27 74 20 6c is. * or can't l
00e0: 69 76 65 20 77 69 74 68 20 69 74 2e 20 54 68 65 ive with it. The
00f0: 72 65 20 69 73 20 41 42 53 4f 4c 55 54 45 4c 59 re is ABSOLUTELY
0100: 20 4e 4f 20 57 41 52 52 41 4e 54 59 2c 20 65 78 NO WARRANTY, ex
0110: 70 6c 69 63 69 74 20 6f 72 20 69 6d 70 6c 69 65 plicit or implie
0120: 64 2c 0a 20 2a 20 6f 6e 20 74 68 69 73 20 73 6f d,. * on this so
0130: 66 74 77 61 72 65 2e 0a 20 2a 2f 0a 0a 23 69 6e ftware.. */..#in
0140: 63 6c 75 64 65 20 3c 73 74 64 69 6f 2e 68 3e 0a clude <stdio.h>.
0150: 23 69 6e 63 6c 75 64 65 20 3c 73 74 64 6c 69 62 #include <stdlib
0160: 2e 68 3e 0a 0a 23 69 66 6e 64 65 66 20 52 45 45 .h>..#ifndef REE
0170: 4e 54 52 41 4e 54 0a 23 69 6e 63 6c 75 64 65 20 NTRANT.#include
0180: 22 76 61 63 61 6c 6c 2e 68 22 0a 23 65 6c 73 65 "vacall.h".#else
0190: 20 2f 2a 20 52 45 45 4e 54 52 41 4e 54 20 2a 2f /* REENTRANT */
01a0: 0a 23 69 6e 63 6c 75 64 65 20 22 76 61 63 61 6c .#include "vacal
01b0: 6c 5f 72 2e 68 22 0a 23 65 6e 64 69 66 0a 23 69 l_r.h".#endif.#i
01c0: 6e 63 6c 75 64 65 20 22 63 6f 6e 66 69 67 2e 68 nclude "config.h
01d0: 22 0a 0a 23 69 66 6e 64 65 66 20 52 45 45 4e 54 "..#ifndef REENT
01e0: 52 41 4e 54 0a 0a 2f 2a 20 54 68 69 73 20 69 73 RANT../* This is
01f0: 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 70 6f the function po
0200: 69 6e 74 65 72 20 76 61 63 61 6c 6c 28 29 2e 20 inter vacall().
0210: 41 20 66 75 6e 63 74 69 6f 6e 20 70 6f 69 6e 74 A function point
0220: 65 72 20 69 6e 64 69 72 65 63 74 69 6f 6e 20 69 er indirection i
0230: 73 0a 20 20 20 6e 65 65 64 65 64 20 62 65 63 61 s. needed beca
0240: 75 73 65 20 67 63 63 2d 33 2e 34 20 67 65 6e 65 use gcc-3.4 gene
0250: 72 61 74 65 73 20 69 6e 76 61 6c 69 64 20 63 6f rates invalid co
0260: 64 65 20 77 68 65 6e 20 74 68 65 20 61 64 64 72 de when the addr
0270: 65 73 73 20 6f 66 20 61 20 73 79 6d 62 6f 6c 0a ess of a symbol.
0280: 20 20 20 69 73 20 63 61 73 74 65 64 20 74 6f 20 is casted to
0290: 61 20 66 75 6e 63 74 69 6f 6e 20 70 6f 69 6e 74 a function point
02a0: 65 72 20 77 69 74 68 20 64 69 66 66 65 72 65 6e er with differen
02b0: 74 20 72 65 74 75 72 6e 20 74 79 70 65 2e 0a 20 t return type..
02c0: 20 20 28 68 74 74 70 3a 2f 2f 67 63 63 2e 67 6e (http://gcc.gn
02d0: 75 2e 6f 72 67 2f 6d 6c 2f 67 63 63 2d 70 61 74 u.org/ml/gcc-pat
02e0: 63 68 65 73 2f 32 30 30 33 2d 31 32 2f 6d 73 67 ches/2003-12/msg
02f0: 30 31 37 36 37 2e 68 74 6d 6c 29 20 2a 2f 0a 23 01767.html) */.#
0300: 69 66 64 65 66 20 5f 5f 63 70 6c 75 73 70 6c 75 ifdef __cplusplu
0310: 73 0a 65 78 74 65 72 6e 20 22 43 22 20 76 6f 69 s.extern "C" voi
0320: 64 20 5f 5f 76 61 63 61 6c 6c 20 28 29 3b 20 2f d __vacall (); /
0330: 2a 20 74 68 65 20 72 65 74 75 72 6e 20 74 79 70 * the return typ
0340: 65 20 69 73 20 76 61 72 69 61 62 6c 65 2c 20 6e e is variable, n
0350: 6f 74 20 76 6f 69 64 21 20 2a 2f 0a 23 65 6c 73 ot void! */.#els
0360: 65 0a 65 78 74 65 72 6e 20 76 6f 69 64 20 5f 5f e.extern void __
0370: 76 61 63 61 6c 6c 20 28 29 3b 20 2f 2a 20 74 68 vacall (); /* th
0380: 65 20 72 65 74 75 72 6e 20 74 79 70 65 20 69 73 e return type is
0390: 20 76 61 72 69 61 62 6c 65 2c 20 6e 6f 74 20 76 variable, not v
03a0: 6f 69 64 21 20 2a 2f 0a 23 65 6e 64 69 66 0a 76 oid! */.#endif.v
03b0: 6f 69 64 20 28 2a 76 61 63 61 6c 6c 29 20 28 29 oid (*vacall) ()
03c0: 20 3d 20 5f 5f 76 61 63 61 6c 6c 3b 0a 0a 2f 2a = __vacall;../*
03d0: 20 54 68 69 73 20 69 73 20 74 68 65 20 66 75 6e This is the fun
03e0: 63 74 69 6f 6e 20 63 61 6c 6c 65 64 20 62 79 20 ction called by
03f0: 76 61 63 61 6c 6c 28 29 2e 20 2a 2f 0a 23 69 66 vacall(). */.#if
0400: 20 64 65 66 69 6e 65 64 28 5f 5f 53 54 44 43 5f defined(__STDC_
0410: 5f 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 5f 5f _) || defined(__
0420: 47 4e 55 43 5f 5f 29 20 7c 7c 20 64 65 66 69 6e GNUC__) || defin
0430: 65 64 28 5f 5f 63 70 6c 75 73 70 6c 75 73 29 0a ed(__cplusplus).
0440: 76 6f 69 64 20 28 2a 20 76 61 63 61 6c 6c 5f 66 void (* vacall_f
0450: 75 6e 63 74 69 6f 6e 29 20 28 76 61 5f 61 6c 69 unction) (va_ali
0460: 73 74 29 3b 0a 23 65 6c 73 65 0a 76 6f 69 64 20 st);.#else.void
0470: 28 2a 20 76 61 63 61 6c 6c 5f 66 75 6e 63 74 69 (* vacall_functi
0480: 6f 6e 29 20 28 29 3b 0a 23 65 6e 64 69 66 0a 0a on) ();.#endif..
0490: 23 65 6e 64 69 66 0a 0a 2f 2a 20 52 6f 6f 6d 20 #endif../* Room
04a0: 66 6f 72 20 72 65 74 75 72 6e 69 6e 67 20 73 74 for returning st
04b0: 72 75 63 74 73 20 61 63 63 6f 72 64 69 6e 67 20 ructs according
04c0: 74 6f 20 74 68 65 20 70 63 63 20 6e 6f 6e 2d 72 to the pcc non-r
04d0: 65 65 6e 74 72 61 6e 74 20 73 74 72 75 63 74 20 eentrant struct
04e0: 72 65 74 75 72 6e 20 63 6f 6e 76 65 6e 74 69 6f return conventio
04f0: 6e 2e 20 2a 2f 0a 5f 5f 76 61 5f 73 74 72 75 63 n. */.__va_struc
0500: 74 5f 62 75 66 66 65 72 5f 74 20 5f 5f 76 61 5f t_buffer_t __va_
0510: 73 74 72 75 63 74 5f 62 75 66 66 65 72 3b 0a 0a struct_buffer;..
0520: 69 6e 74 20 2f 2a 20 6e 6f 20 72 65 74 75 72 6e int /* no return
0530: 20 74 79 70 65 2c 20 73 69 6e 63 65 20 74 68 69 type, since thi
0540: 73 20 6e 65 76 65 72 20 72 65 74 75 72 6e 73 20 s never returns
0550: 2a 2f 0a 23 69 66 20 64 65 66 69 6e 65 64 28 5f */.#if defined(_
0560: 5f 53 54 44 43 5f 5f 29 20 7c 7c 20 64 65 66 69 _STDC__) || defi
0570: 6e 65 64 28 5f 5f 47 4e 55 43 5f 5f 29 20 7c 7c ned(__GNUC__) ||
0580: 20 64 65 66 69 6e 65 64 28 5f 5f 63 70 6c 75 73 defined(__cplus
0590: 70 6c 75 73 29 0a 5f 5f 76 61 5f 65 72 72 6f 72 plus).__va_error
05a0: 31 20 28 65 6e 75 6d 20 5f 5f 56 41 74 79 70 65 1 (enum __VAtype
05b0: 20 73 74 61 72 74 5f 74 79 70 65 2c 20 65 6e 75 start_type, enu
05c0: 6d 20 5f 5f 56 41 74 79 70 65 20 72 65 74 75 72 m __VAtype retur
05d0: 6e 5f 74 79 70 65 29 0a 23 65 6c 73 65 0a 5f 5f n_type).#else.__
05e0: 76 61 5f 65 72 72 6f 72 31 20 28 73 74 61 72 74 va_error1 (start
05f0: 5f 74 79 70 65 2c 20 72 65 74 75 72 6e 5f 74 79 _type, return_ty
0600: 70 65 29 0a 20 20 65 6e 75 6d 20 5f 5f 56 41 74 pe). enum __VAt
0610: 79 70 65 20 73 74 61 72 74 5f 74 79 70 65 3b 0a ype start_type;.
0620: 20 20 65 6e 75 6d 20 5f 5f 56 41 74 79 70 65 20 enum __VAtype
0630: 72 65 74 75 72 6e 5f 74 79 70 65 3b 0a 23 65 6e return_type;.#en
0640: 64 69 66 0a 7b 0a 20 20 2f 2a 20 49 66 20 79 6f dif.{. /* If yo
0650: 75 20 73 65 65 20 74 68 69 73 2c 20 66 69 78 20 u see this, fix
0660: 79 6f 75 72 20 63 6f 64 65 2e 20 2a 2f 0a 20 20 your code. */.
0670: 66 70 72 69 6e 74 66 20 28 73 74 64 65 72 72 2c fprintf (stderr,
0680: 20 22 76 61 63 61 6c 6c 3a 20 76 61 5f 73 74 61 "vacall: va_sta
0690: 72 74 20 74 79 70 65 20 25 64 20 61 6e 64 20 76 rt type %d and v
06a0: 61 5f 72 65 74 75 72 6e 20 74 79 70 65 20 25 64 a_return type %d
06b0: 20 64 69 73 61 67 72 65 65 2e 5c 6e 22 2c 0a 20 disagree.\n",.
06c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
06d0: 20 20 28 69 6e 74 29 73 74 61 72 74 5f 74 79 70 (int)start_typ
06e0: 65 2c 20 28 69 6e 74 29 72 65 74 75 72 6e 5f 74 e, (int)return_t
06f0: 79 70 65 29 3b 0a 20 20 61 62 6f 72 74 28 29 3b ype);. abort();
0700: 0a 23 69 66 20 64 65 66 69 6e 65 64 28 5f 5f 63 .#if defined(__c
0710: 70 6c 75 73 70 6c 75 73 29 0a 20 20 72 65 74 75 plusplus). retu
0720: 72 6e 20 30 3b 0a 23 65 6e 64 69 66 0a 7d 0a 0a rn 0;.#endif.}..
0730: 69 6e 74 20 2f 2a 20 6e 6f 20 72 65 74 75 72 6e int /* no return
0740: 20 74 79 70 65 2c 20 73 69 6e 63 65 20 74 68 69 type, since thi
0750: 73 20 6e 65 76 65 72 20 72 65 74 75 72 6e 73 20 s never returns
0760: 2a 2f 0a 23 69 66 20 64 65 66 69 6e 65 64 28 5f */.#if defined(_
0770: 5f 53 54 44 43 5f 5f 29 20 7c 7c 20 64 65 66 69 _STDC__) || defi
0780: 6e 65 64 28 5f 5f 47 4e 55 43 5f 5f 29 20 7c 7c ned(__GNUC__) ||
0790: 20 64 65 66 69 6e 65 64 28 5f 5f 63 70 6c 75 73 defined(__cplus
07a0: 70 6c 75 73 29 0a 5f 5f 76 61 5f 65 72 72 6f 72 plus).__va_error
07b0: 32 20 28 75 6e 73 69 67 6e 65 64 20 69 6e 74 20 2 (unsigned int
07c0: 73 69 7a 65 29 0a 23 65 6c 73 65 0a 5f 5f 76 61 size).#else.__va
07d0: 5f 65 72 72 6f 72 32 20 28 73 69 7a 65 29 0a 20 _error2 (size).
07e0: 20 75 6e 73 69 67 6e 65 64 20 69 6e 74 20 73 69 unsigned int si
07f0: 7a 65 3b 0a 23 65 6e 64 69 66 0a 7b 0a 20 20 2f ze;.#endif.{. /
0800: 2a 20 49 66 20 79 6f 75 20 73 65 65 20 74 68 69 * If you see thi
0810: 73 2c 20 69 6e 63 72 65 61 73 65 20 5f 5f 56 41 s, increase __VA
0820: 5f 41 4c 49 53 54 5f 57 4f 52 44 53 3a 20 2a 2f _ALIST_WORDS: */
0830: 0a 20 20 66 70 72 69 6e 74 66 20 28 73 74 64 65 . fprintf (stde
0840: 72 72 2c 20 22 76 61 63 61 6c 6c 3a 20 73 74 72 rr, "vacall: str
0850: 75 63 74 20 6f 66 20 73 69 7a 65 20 25 75 20 74 uct of size %u t
0860: 6f 6f 20 6c 61 72 67 65 20 66 6f 72 20 70 63 63 oo large for pcc
0870: 20 73 74 72 75 63 74 20 72 65 74 75 72 6e 2e 5c struct return.\
0880: 6e 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 n",.
0890: 20 20 20 20 20 20 20 73 69 7a 65 29 3b 0a 20 20 size);.
08a0: 61 62 6f 72 74 28 29 3b 0a 23 69 66 20 64 65 66 abort();.#if def
08b0: 69 6e 65 64 28 5f 5f 63 70 6c 75 73 70 6c 75 73 ined(__cplusplus
08c0: 29 0a 20 20 72 65 74 75 72 6e 20 30 3b 0a 23 65 ). return 0;.#e
08d0: 6e 64 69 66 0a 7d 0a ndif.}.