contrib/gcc/libgcc1.c

   1 /* Subroutines needed by GCC output code on some machines.  */
   2 /* Compile this file with the Unix C compiler!  */
   3 /* Copyright (C) 1987, 1988, 1992, 1994, 1995 Free Software Foundation, Inc.
   4
   5 This file is free software; you can redistribute it and/or modify it
   6 under the terms of the GNU General Public License as published by the
   7 Free Software Foundation; either version 2, or (at your option) any
   8 later version.
   9
  10 In addition to the permissions in the GNU General Public License, the
  11 Free Software Foundation gives you unlimited permission to link the
  12 compiled version of this file with other programs, and to distribute
  13 those programs without any restriction coming from the use of this
  14 file.  (The General Public License restrictions do apply in other
  15 respects; for example, they cover modification of the file, and
  16 distribution when not linked into another program.)
  17
  18 This file is distributed in the hope that it will be useful, but
  19 WITHOUT ANY WARRANTY; without even the implied warranty of
  20 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  21 General Public License for more details.
  22
  23 You should have received a copy of the GNU General Public License
  24 along with this program; see the file COPYING.  If not, write to
  25 the Free Software Foundation, 59 Temple Place - Suite 330,
  26 Boston, MA 02111-1307, USA.  */
  27
  28 /* As a special exception, if you link this library with other files,
  29    some of which are compiled with GCC, to produce an executable,
  30    this library does not by itself cause the resulting executable
  31    to be covered by the GNU General Public License.
  32    This exception does not however invalidate any other reasons why
  33    the executable file might be covered by the GNU General Public License.  */
  34
  35 #include "config.h"
  36
  37 /* Don't use `fancy_abort' here even if config.h says to use it.  */
  38 #ifdef abort
  39 #undef abort
  40 #endif
  41
  42 /* On some machines, cc is really GCC.  For these machines, we can't
  43    expect these functions to be properly compiled unless GCC open codes
  44    the operation (which is precisely when the function won't be used).
  45    So allow tm.h to specify ways of accomplishing the operations
  46    by defining the macros perform_*.
  47
  48    On a machine where cc is some other compiler, there is usually no
  49    reason to define perform_*.  The other compiler normally has other ways
  50    of implementing all of these operations.
  51
  52    In some cases a certain machine may come with GCC installed as cc
  53    or may have some other compiler.  Then it may make sense for tm.h
  54    to define perform_* only if __GNUC__ is defined.  */
  55
  56 #ifndef perform_mulsi3
  57 #define perform_mulsi3(a, b) return a * b
  58 #endif
  59
  60 #ifndef perform_divsi3
  61 #define perform_divsi3(a, b) return a / b
  62 #endif
  63
  64 #ifndef perform_udivsi3
  65 #define perform_udivsi3(a, b) return a / b
  66 #endif
  67
  68 #ifndef perform_modsi3
  69 #define perform_modsi3(a, b) return a % b
  70 #endif
  71
  72 #ifndef perform_umodsi3
  73 #define perform_umodsi3(a, b) return a % b
  74 #endif
  75
  76 #ifndef perform_lshrsi3
  77 #define perform_lshrsi3(a, b) return a >> b
  78 #endif
  79
  80 #ifndef perform_ashrsi3
  81 #define perform_ashrsi3(a, b) return a >> b
  82 #endif
  83
  84 #ifndef perform_ashlsi3
  85 #define perform_ashlsi3(a, b) return a << b
  86 #endif
  87
  88 #ifndef perform_adddf3
  89 #define perform_adddf3(a, b) return a + b
  90 #endif
  91
  92 #ifndef perform_subdf3
  93 #define perform_subdf3(a, b) return a - b
  94 #endif
  95
  96 #ifndef perform_muldf3
  97 #define perform_muldf3(a, b) return a * b
  98 #endif
  99
 100 #ifndef perform_divdf3
 101 #define perform_divdf3(a, b) return a / b
 102 #endif
 103
 104 #ifndef perform_addsf3
 105 #define perform_addsf3(a, b) return INTIFY (a + b)
 106 #endif
 107
 108 #ifndef perform_subsf3
 109 #define perform_subsf3(a, b) return INTIFY (a - b)
 110 #endif
 111
 112 #ifndef perform_mulsf3
 113 #define perform_mulsf3(a, b) return INTIFY (a * b)
 114 #endif
 115
 116 #ifndef perform_divsf3
 117 #define perform_divsf3(a, b) return INTIFY (a / b)
 118 #endif
 119
 120 #ifndef perform_negdf2
 121 #define perform_negdf2(a) return -a
 122 #endif
 123
 124 #ifndef perform_negsf2
 125 #define perform_negsf2(a) return INTIFY (-a)
 126 #endif
 127
 128 #ifndef perform_fixdfsi
 129 #define perform_fixdfsi(a) return (nongcc_SI_type) a;
 130 #endif
 131
 132 #ifndef perform_fixsfsi
 133 #define perform_fixsfsi(a) return (nongcc_SI_type) a
 134 #endif
 135
 136 #ifndef perform_floatsidf
 137 #define perform_floatsidf(a) return (double) a
 138 #endif
 139
 140 #ifndef perform_floatsisf
 141 #define perform_floatsisf(a)  return INTIFY ((float) a)
 142 #endif
 143
 144 #ifndef perform_extendsfdf2
 145 #define perform_extendsfdf2(a)  return a
 146 #endif
 147
 148 #ifndef perform_truncdfsf2
 149 #define perform_truncdfsf2(a)  return INTIFY (a)
 150 #endif
 151
 152 /* Note that eqdf2 returns a value for "true" that is == 0,
 153    nedf2 returns a value for "true" that is != 0,
 154    gtdf2 returns a value for "true" that is > 0,
 155    and so on.  */
 156
 157 #ifndef perform_eqdf2
 158 #define perform_eqdf2(a, b) return !(a == b)
 159 #endif
 160
 161 #ifndef perform_nedf2
 162 #define perform_nedf2(a, b) return a != b
 163 #endif
 164
 165 #ifndef perform_gtdf2
 166 #define perform_gtdf2(a, b) return a > b
 167 #endif
 168
 169 #ifndef perform_gedf2
 170 #define perform_gedf2(a, b) return (a >= b) - 1
 171 #endif
 172
 173 #ifndef perform_ltdf2
 174 #define perform_ltdf2(a, b) return -(a < b)
 175 #endif
 176
 177 #ifndef perform_ledf2
 178 #define perform_ledf2(a, b) return 1 - (a <= b)
 179 #endif
 180
 181 #ifndef perform_eqsf2
 182 #define perform_eqsf2(a, b) return !(a == b)
 183 #endif
 184
 185 #ifndef perform_nesf2
 186 #define perform_nesf2(a, b) return a != b
 187 #endif
 188
 189 #ifndef perform_gtsf2
 190 #define perform_gtsf2(a, b) return a > b
 191 #endif
 192
 193 #ifndef perform_gesf2
 194 #define perform_gesf2(a, b) return (a >= b) - 1
 195 #endif
 196
 197 #ifndef perform_ltsf2
 198 #define perform_ltsf2(a, b) return -(a < b)
 199 #endif
 200
 201 #ifndef perform_lesf2
 202 #define perform_lesf2(a, b) return 1 - (a <= b);
 203 #endif
 204 \f
 205 /* Define the C data type to use for an SImode value.  */
 206
 207 #ifndef nongcc_SI_type
 208 #define nongcc_SI_type long int
 209 #endif
 210
 211 /* Define the C data type to use for a value of word size */
 212 #ifndef nongcc_word_type
 213 #define nongcc_word_type nongcc_SI_type
 214 #endif
 215
 216 /* Define the type to be used for returning an SF mode value
 217    and the method for turning a float into that type.
 218    These definitions work for machines where an SF value is
 219    returned in the same register as an int.  */
 220
 221 #ifndef FLOAT_VALUE_TYPE
 222 #define FLOAT_VALUE_TYPE int
 223 #endif
 224
 225 #ifndef INTIFY
 226 #define INTIFY(FLOATVAL)  (intify.f = (FLOATVAL), intify.i)
 227 #endif
 228
 229 #ifndef FLOATIFY
 230 #define FLOATIFY(INTVAL)  ((INTVAL).f)
 231 #endif
 232
 233 #ifndef FLOAT_ARG_TYPE
 234 #define FLOAT_ARG_TYPE union flt_or_int
 235 #endif
 236
 237 union flt_or_value { FLOAT_VALUE_TYPE i; float f; };
 238
 239 union flt_or_int { int i; float f; };
 240
 241
 242 #ifdef L_mulsi3
 243 nongcc_SI_type
 244 __mulsi3 (a, b)
 245      nongcc_SI_type a, b;
 246 {
 247   perform_mulsi3 (a, b);
 248 }
 249 #endif
 250
 251 #ifdef L_udivsi3
 252 nongcc_SI_type
 253 __udivsi3 (a, b)
 254      unsigned nongcc_SI_type a, b;
 255 {
 256   perform_udivsi3 (a, b);
 257 }
 258 #endif
 259
 260 #ifdef L_divsi3
 261 nongcc_SI_type
 262 __divsi3 (a, b)
 263      nongcc_SI_type a, b;
 264 {
 265   perform_divsi3 (a, b);
 266 }
 267 #endif
 268
 269 #ifdef L_umodsi3
 270 nongcc_SI_type
 271 __umodsi3 (a, b)
 272      unsigned nongcc_SI_type a, b;
 273 {
 274   perform_umodsi3 (a, b);
 275 }
 276 #endif
 277
 278 #ifdef L_modsi3
 279 nongcc_SI_type
 280 __modsi3 (a, b)
 281      nongcc_SI_type a, b;
 282 {
 283   perform_modsi3 (a, b);
 284 }
 285 #endif
 286
 287 #ifdef L_lshrsi3
 288 nongcc_SI_type
 289 __lshrsi3 (a, b)
 290      unsigned nongcc_SI_type a, b;
 291 {
 292   perform_lshrsi3 (a, b);
 293 }
 294 #endif
 295
 296 #ifdef L_ashrsi3
 297 nongcc_SI_type
 298 __ashrsi3 (a, b)
 299      nongcc_SI_type a, b;
 300 {
 301   perform_ashrsi3 (a, b);
 302 }
 303 #endif
 304
 305 #ifdef L_ashlsi3
 306 nongcc_SI_type
 307 __ashlsi3 (a, b)
 308      nongcc_SI_type a, b;
 309 {
 310   perform_ashlsi3 (a, b);
 311 }
 312 #endif
 313 \f
 314 #ifdef L_divdf3
 315 double
 316 __divdf3 (a, b)
 317      double a, b;
 318 {
 319   perform_divdf3 (a, b);
 320 }
 321 #endif
 322
 323 #ifdef L_muldf3
 324 double
 325 __muldf3 (a, b)
 326      double a, b;
 327 {
 328   perform_muldf3 (a, b);
 329 }
 330 #endif
 331
 332 #ifdef L_negdf2
 333 double
 334 __negdf2 (a)
 335      double a;
 336 {
 337   perform_negdf2 (a);
 338 }
 339 #endif
 340
 341 #ifdef L_adddf3
 342 double
 343 __adddf3 (a, b)
 344      double a, b;
 345 {
 346   perform_adddf3 (a, b);
 347 }
 348 #endif
 349
 350 #ifdef L_subdf3
 351 double
 352 __subdf3 (a, b)
 353      double a, b;
 354 {
 355   perform_subdf3 (a, b);
 356 }
 357 #endif
 358
 359 /* Note that eqdf2 returns a value for "true" that is == 0,
 360    nedf2 returns a value for "true" that is != 0,
 361    gtdf2 returns a value for "true" that is > 0,
 362    and so on.  */
 363
 364 #ifdef L_eqdf2
 365 nongcc_word_type
 366 __eqdf2 (a, b)
 367      double a, b;
 368 {
 369   /* Value == 0 iff a == b.  */
 370   perform_eqdf2 (a, b);
 371 }
 372 #endif
 373
 374 #ifdef L_nedf2
 375 nongcc_word_type
 376 __nedf2 (a, b)
 377      double a, b;
 378 {
 379   /* Value != 0 iff a != b.  */
 380   perform_nedf2 (a, b);
 381 }
 382 #endif
 383
 384 #ifdef L_gtdf2
 385 nongcc_word_type
 386 __gtdf2 (a, b)
 387      double a, b;
 388 {
 389   /* Value > 0 iff a > b.  */
 390   perform_gtdf2 (a, b);
 391 }
 392 #endif
 393
 394 #ifdef L_gedf2
 395 nongcc_word_type
 396 __gedf2 (a, b)
 397      double a, b;
 398 {
 399   /* Value >= 0 iff a >= b.  */
 400   perform_gedf2 (a, b);
 401 }
 402 #endif
 403
 404 #ifdef L_ltdf2
 405 nongcc_word_type
 406 __ltdf2 (a, b)
 407      double a, b;
 408 {
 409   /* Value < 0 iff a < b.  */
 410   perform_ltdf2 (a, b);
 411 }
 412 #endif
 413
 414 #ifdef L_ledf2
 415 nongcc_word_type
 416 __ledf2 (a, b)
 417      double a, b;
 418 {
 419   /* Value <= 0 iff a <= b.  */
 420   perform_ledf2 (a, b);
 421 }
 422 #endif
 423 \f
 424 #ifdef L_fixdfsi
 425 nongcc_SI_type
 426 __fixdfsi (a)
 427      double a;
 428 {
 429   perform_fixdfsi (a);
 430 }
 431 #endif
 432
 433 #ifdef L_fixsfsi
 434 nongcc_SI_type
 435 __fixsfsi (a)
 436      FLOAT_ARG_TYPE a;
 437 {
 438   union flt_or_value intify;
 439   perform_fixsfsi (FLOATIFY (a));
 440 }
 441 #endif
 442
 443 #ifdef L_floatsidf
 444 double
 445 __floatsidf (a)
 446      nongcc_SI_type a;
 447 {
 448   perform_floatsidf (a);
 449 }
 450 #endif
 451
 452 #ifdef L_floatsisf
 453 FLOAT_VALUE_TYPE
 454 __floatsisf (a)
 455      nongcc_SI_type a;
 456 {
 457   union flt_or_value intify;
 458   perform_floatsisf (a);
 459 }
 460 #endif
 461 \f
 462 #ifdef L_addsf3
 463 FLOAT_VALUE_TYPE
 464 __addsf3 (a, b)
 465      FLOAT_ARG_TYPE a, b;
 466 {
 467   union flt_or_value intify;
 468   perform_addsf3 (FLOATIFY (a), FLOATIFY (b));
 469 }
 470 #endif
 471
 472 #ifdef L_negsf2
 473 FLOAT_VALUE_TYPE
 474 __negsf2 (a)
 475      FLOAT_ARG_TYPE a;
 476 {
 477   union flt_or_value intify;
 478   perform_negsf2 (FLOATIFY (a));
 479 }
 480 #endif
 481
 482 #ifdef L_subsf3
 483 FLOAT_VALUE_TYPE
 484 __subsf3 (a, b)
 485      FLOAT_ARG_TYPE a, b;
 486 {
 487   union flt_or_value intify;
 488   perform_subsf3 (FLOATIFY (a), FLOATIFY (b));
 489 }
 490 #endif
 491
 492 #ifdef L_eqsf2
 493 nongcc_word_type
 494 __eqsf2 (a, b)
 495      FLOAT_ARG_TYPE a, b;
 496 {
 497   union flt_or_int intify;
 498   /* Value == 0 iff a == b.  */
 499   perform_eqsf2 (FLOATIFY (a), FLOATIFY (b));
 500 }
 501 #endif
 502
 503 #ifdef L_nesf2
 504 nongcc_word_type
 505 __nesf2 (a, b)
 506      FLOAT_ARG_TYPE a, b;
 507 {
 508   union flt_or_int intify;
 509   /* Value != 0 iff a != b.  */
 510   perform_nesf2 (FLOATIFY (a), FLOATIFY (b));
 511 }
 512 #endif
 513
 514 #ifdef L_gtsf2
 515 nongcc_word_type
 516 __gtsf2 (a, b)
 517      FLOAT_ARG_TYPE a, b;
 518 {
 519   union flt_or_int intify;
 520   /* Value > 0 iff a > b.  */
 521   perform_gtsf2 (FLOATIFY (a), FLOATIFY (b));
 522 }
 523 #endif
 524
 525 #ifdef L_gesf2
 526 nongcc_word_type
 527 __gesf2 (a, b)
 528      FLOAT_ARG_TYPE a, b;
 529 {
 530   union flt_or_int intify;
 531   /* Value >= 0 iff a >= b.  */
 532   perform_gesf2 (FLOATIFY (a), FLOATIFY (b));
 533 }
 534 #endif
 535
 536 #ifdef L_ltsf2
 537 nongcc_word_type
 538 __ltsf2 (a, b)
 539      FLOAT_ARG_TYPE a, b;
 540 {
 541   union flt_or_int intify;
 542   /* Value < 0 iff a < b.  */
 543   perform_ltsf2 (FLOATIFY (a), FLOATIFY (b));
 544 }
 545 #endif
 546
 547 #ifdef L_lesf2
 548 nongcc_word_type
 549 __lesf2 (a, b)
 550      FLOAT_ARG_TYPE a, b;
 551 {
 552   union flt_or_int intify;
 553   /* Value <= 0 iff a <= b.  */
 554   perform_lesf2 (FLOATIFY (a), FLOATIFY (b));
 555 }
 556 #endif
 557
 558 #ifdef L_mulsf3
 559 FLOAT_VALUE_TYPE
 560 __mulsf3 (a, b)
 561      FLOAT_ARG_TYPE a, b;
 562 {
 563   union flt_or_value intify;
 564   perform_mulsf3 (FLOATIFY (a), FLOATIFY (b));
 565 }
 566 #endif
 567
 568 #ifdef L_divsf3
 569 FLOAT_VALUE_TYPE
 570 __divsf3 (a, b)
 571      FLOAT_ARG_TYPE a, b;
 572 {
 573   union flt_or_value intify;
 574   perform_divsf3 (FLOATIFY (a), FLOATIFY (b));
 575 }
 576 #endif
 577
 578 #ifdef L_truncdfsf2
 579 FLOAT_VALUE_TYPE
 580 __truncdfsf2 (a)
 581      double a;
 582 {
 583   union flt_or_value intify;
 584   perform_truncdfsf2 (a);
 585 }
 586 #endif
 587
 588 #ifdef L_extendsfdf2
 589 double
 590 __extendsfdf2 (a)
 591      FLOAT_ARG_TYPE a;
 592 {
 593   union flt_or_value intify;
 594   perform_extendsfdf2 (FLOATIFY (a));
 595 }
 596 #endif