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

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.