Return to xforward.c CVS log

Up to [GCC 2.x] / gcc / objc

Annotation of gcc/objc/xforward.c, revision 1.1

1.1     ! root        1: /* GNU Objective C Runtime forward tests program
        !             2:    Copyright (C) 1993 Free Software Foundation, Inc.
        !             3: 
        !             4: Author: Kresten Krab Thorup
        !             5: 
        !             6: This file is part of GNU CC.
        !             7: 
        !             8: GNU CC is free software; you can redistribute it and/or modify it under the
        !             9:    terms of the GNU General Public License as published by the Free Software
        !            10:    Foundation; either version 2, or (at your option) any later version.
        !            11: 
        !            12: GNU CC is distributed in the hope that it will be useful, but WITHOUT ANY
        !            13:    WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
        !            14:    FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
        !            15:    details.
        !            16: 
        !            17: You should have received a copy of the GNU General Public License along with
        !            18:    GNU CC; see the file COPYING.  If not, write to the Free Software
        !            19:    Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
        !            20: 
        !            21: 
        !            22: #include <stdio.h>
        !            23: #include "gstddef.h"
        !            24: 
        !            25: static char* flags = "";
        !            26: 
        !            27: void try_func (a, b)
        !            28:      size_t a;
        !            29:      size_t b;
        !            30: {
        !            31:    if ((a==5432) && (b==12))
        !            32:      printf(flags);
        !            33:    exit (0);
        !            34: }
        !            35: 
        !            36: void do_apply (xx, y)
        !            37:      void* xx;
        !            38:      size_t y;
        !            39: {
        !            40:   __builtin_apply((void*)try_func, xx, 200) ;
        !            41: }
        !            42: 
        !            43: #define try(what)       \
        !            44:       what[0] = 5432;   \
        !            45:       what[1] = 12;     \
        !            46:       do_apply(af, 1234)
        !            47: 
        !            48: void test_apply (a, b) 
        !            49:      size_t a;
        !            50:      size_t b;
        !            51: {
        !            52:   union frame {
        !            53:     struct { size_t* args; } a;
        !            54:     struct { size_t* args; size_t regs[2]; } b;
        !            55:     struct { size_t* args; void* struct_return; size_t regs[2]; } c;
        !            56:   } *af;
        !            57:   af = __builtin_apply_args();
        !            58:   if ((af->b.regs[0] == 2345) && (af->b.regs[1] == 6789))
        !            59:     { flags=" -DREG_ARGS\n";  try (af->b.regs); }
        !            60:   if ((af->c.regs[0] == 2345) && (af->c.regs[1] == 6789))
        !            61:     { flags=" -DREG_ARGS -DSTRUCT_RETURN\n"; try (af->c.regs); }
        !            62:   if ((af->a.args[0] == 2345) && (af->a.args[1] == 6789))
        !            63:     { flags=" -DSTACK_ARGS\n"; try (af->a.args); }
        !            64:   exit (0);
        !            65: }
        !            66: 
        !            67: void main () 
        !            68: {
        !            69:   test_apply (2345, 6789);
        !            70: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.