Subversion Repositories tendra.SVN

Rev

Rev 2 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2 Rev 7
Line -... Line 1...
- 
 
 1 
/*
- 
 
 2 
 * Copyright (c) 2002-2005 The TenDRA Project <http://www.tendra.org/>.
- 
 
 3 
 * All rights reserved.
- 
 
 4 
 *
- 
 
 5 
 * Redistribution and use in source and binary forms, with or without
- 
 
 6 
 * modification, are permitted provided that the following conditions are met:
- 
 
 7 
 *
- 
 
 8 
 * 1. Redistributions of source code must retain the above copyright notice,
- 
 
 9 
 *    this list of conditions and the following disclaimer.
- 
 
 10 
 * 2. Redistributions in binary form must reproduce the above copyright notice,
- 
 
 11 
 *    this list of conditions and the following disclaimer in the documentation
- 
 
 12 
 *    and/or other materials provided with the distribution.
- 
 
 13 
 * 3. Neither the name of The TenDRA Project nor the names of its contributors
- 
 
 14 
 *    may be used to endorse or promote products derived from this software
- 
 
 15 
 *    without specific, prior written permission.
- 
 
 16 
 *
- 
 
 17 
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS
- 
 
 18 
 * IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
- 
 
 19 
 * THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
- 
 
 20 
 * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR
- 
 
 21 
 * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
- 
 
 22 
 * EXEMPLARY OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
- 
 
 23 
 * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
- 
 
 24 
 * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
- 
 
 25 
 * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
- 
 
 26 
 * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
- 
 
 27 
 * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
- 
 
 28 
 *
- 
 
 29 
 * $Id$
- 
 
 30 
 */
1 
/*
 31 
/*
2 
    		 Crown Copyright (c) 1997
 32 
    		 Crown Copyright (c) 1997
3 
 
 33 
 
4 
    This TenDRA(r) Computer Program is subject to Copyright
 34 
    This TenDRA(r) Computer Program is subject to Copyright
5 
    owned by the United Kingdom Secretary of State for Defence
 35 
    owned by the United Kingdom Secretary of State for Defence
Line 61... Line 91...
61 
 
 91 
 
62 
 
 92 
 
63 
/* VARIABLES */
 93 
/* VARIABLES */
64 
/* All variables initialised, jmf */
 94 
/* All variables initialised, jmf */
65 
 
 95 
 
66 
char * local_prefix = ".L";
 96 
char *local_prefix = ".L";
67 
char * name_prefix = "";
 97 
char *name_prefix = "";
68 
 
 98 
 
69 
/* PROCEDURES */
 99 
/* PROCEDURES */
70 
 
 100 
 
71 
/* is the result of a procedure delivering
 101 
/* is the result of a procedure delivering
72 
   this shape produced in registers. */
 102 
   this shape produced in registers. */
73 
int reg_result
 103 
int
74 
    PROTO_N ( (sha) )
 - 
 
75 
    PROTO_T ( shape sha )
 104 
reg_result(shape sha)
76 
{
 105 
{
77 
  unsigned char  n = name(sha);
 106 
  unsigned char n = name(sha);
78 
  if (gcc_compatible) {
 107 
  if (gcc_compatible) {
79 
    int sz = shape_size(sha);
 108 
    int sz = shape_size(sha);
80 
    if (n == nofhd)
 109 
    if (n == nofhd) {
81 
      return 0;
 110 
      return 0;
- 
 
 111 
    }
82 
    if (n == cpdhd && sz > 32 && sz != 64)
 112 
    if (n == cpdhd && sz > 32 && sz != 64) {
83 
      return 0;
 113 
      return 0;
- 
 
 114 
    }
84 
    return 1;
 115 
    return 1;
85 
  };
 116 
  }
86 
 
 117 
 
87 
  if (n == cpdhd || n == nofhd)
 118 
  if (n == cpdhd || n == nofhd) {
88 
    return 0;
 119 
    return 0;
- 
 
 120 
  }
89 
  return 1;
 121 
  return 1;
90 
}
 122 
}