Return to winnt.c CVS log

Up to [GCC 2.x] / gcc / config / i386

Annotation of gcc/config/i386/winnt.c, revision 1.1

1.1     ! root        1: /* Subroutines for insn-output.c for Windows NT.
        !             2:    Contributed by Douglas Rupp ([email protected])
        !             3:    Copyright (C) 1995 Free Software Foundation, Inc.
        !             4: 
        !             5: This file is part of GNU CC.
        !             6: 
        !             7: GNU CC is free software; you can redistribute it and/or modify
        !             8: it under the terms of the GNU General Public License as published by
        !             9: the Free Software Foundation; either version 2, or (at your option)
        !            10: any later version.
        !            11: 
        !            12: GNU CC is distributed in the hope that it will be useful,
        !            13: but WITHOUT ANY WARRANTY; without even the implied warranty of
        !            14: MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
        !            15: GNU General Public License for more details.
        !            16: 
        !            17: You should have received a copy of the GNU General Public License
        !            18: along with GNU CC; see the file COPYING.  If not, write to
        !            19: the Free Software Foundation, 59 Temple Place - Suite 330,
        !            20: Boston, MA 02111-1307, USA.  */
        !            21: 
        !            22: #include <stdio.h>
        !            23: #include "config.h"
        !            24: #include "rtl.h"
        !            25: #include "regs.h"
        !            26: #include "hard-reg-set.h"
        !            27: #include "output.h"
        !            28: #include "tree.h"
        !            29: #include "flags.h"
        !            30: 
        !            31: /* Return string which is the former assembler name modified with a 
        !            32:    suffix consisting of an atsign (@) followed by the number of bytes of 
        !            33:    arguments */
        !            34: 
        !            35: char *
        !            36: gen_stdcall_suffix (decl)
        !            37:   tree decl;
        !            38: {
        !            39:   int total = 0;
        !            40:   char *asmname = IDENTIFIER_POINTER (DECL_ASSEMBLER_NAME (decl));
        !            41:   char *newsym;
        !            42: 
        !            43:   if (TYPE_ARG_TYPES (TREE_TYPE (decl)))
        !            44:     if (TREE_VALUE (tree_last (TYPE_ARG_TYPES (TREE_TYPE (decl)))) 
        !            45:         == void_type_node)
        !            46:       {
        !            47:         tree formal_type = TYPE_ARG_TYPES (TREE_TYPE (decl));
        !            48: 
        !            49:         while (TREE_VALUE (formal_type) != void_type_node)
        !            50:           {
        !            51:             total += TREE_INT_CST_LOW (TYPE_SIZE (TREE_VALUE (formal_type)));
        !            52:             formal_type = TREE_CHAIN (formal_type);
        !            53:           }
        !            54:       }
        !            55: 
        !            56:   newsym = xmalloc (strlen (asmname) + 10);
        !            57:   sprintf (newsym, "%s@%d", asmname, total/BITS_PER_UNIT);
        !            58:   return IDENTIFIER_POINTER (get_identifier (newsym));
        !            59: }
        !            60: 

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