Quelle  x_ovfl.S   Sprache: Sparc

|
| x_ovfl.sa 3.5 7/1/91
|
| fpsp_ovfl --- FPSP handler for overflow exception
|
| Overflow occurs when a floating-point intermediate result is
  large tobe  infloating-point  register,
|  when storing tomemory,the ofaf
|  registeraretoo large berepresented  java.lang.StringIndexOutOfBoundsException: Index 54 out of bounds for length 54
  format
|
| the rounding:
|
    with sign intermediate.
| RZLargest number the of the
  is affected  For 68881 compatibility, the
| following values should bestored  the destination, java.lang.StringIndexOutOfBoundsException: Index 61 out of bounds for length 61
| on the current rounding mode:
|
|| -
|  RZLargest magnitude ,  the sign 
| R  pos,+. For overflow  largest
      pos,  largest number. neg,
|  trap disabledcode.In theexceptional
      pos, infinity  neg ,  largest withabias $60  from .
 number
|
  enabledresults
java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1
   to   available  users exception
| with a bias of $6000 subtracted from the|file, nthis directory.
|
|

 CopyrightC , Inc 90
|   All Rights Reserved
|
|       For details on the license for this file, please see the
|       file, README, in this same directory.

X_OVFL: |idnt    2,1 | Motorola 040 Floating Point Software Package

 |section 8

#include "fpsp.h"

 xref ovf_r_x2
 |xref ovf_r_x3
 |xref|xref ovf_r_x2
 |xrefxrefovf_r_x3
 |xref real_inex
 |xref fpsp_done
 |xref g_opcls
 |xref b1238_fix

 .global fpsp_ovfl
fpsp_ovfl:
 link  %a6,#-LOCAL_SIZE
 fsave   |xrefstore
  xrefreal_ovfl
  |xrefreal_inex
 fmoveml |xreffpsp_done

|
| The 040 doesn't set the AINEX bit in the FPSR, the following
| line|xref g_opcls
|
 bsetb #ainex_bit,FPSR_AEXCEPT(%a6)
|
 bsrl
|
fpsp_ovfl:
|
 btstb #ovfl_bit,FPCR_ENABLE(%a6)
ck_inex
|moveml  d0-d1/a0-a1USER_DA(a6)
 tstb#,(%a6)
   %/%fpsr%,USER_FPCRa6
|
 bclrb  %d0,FPR_DIRTY_BITS(%a6) |  04 doesnt setthe  inthe,the
java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1
  srl  denormalizeround& intermjava.lang.StringIndexOutOfBoundsException: Index 52 out of bounds for length 52
  bts#,FPCR_ENABLEa6
no_e3_1
java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1
mx(a6,%%fp3
  USER_FPCR%),fpcrfpsr/fpiar
 frestore (%a7)+
 unlk  %a6
 bral  real_ovfl
|
|It is possible have inex2orinex1 exceptionswith the
|ovflIfthe enablebit is set theFPCRand either
 orl #,E_BYTE%6)
| real inex handler.
|
ck_inex:
| move.b no_e3_1:
   USER_DA%a6,d0-/%%a1
|andib $,%0
 fmovemlUSER_FPCR(%a6,%pcr%psrfpiar
 beqsovfl_exit
|
  enabled reported and  must  aninexact.
java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 1
take_inexjava.lang.StringIndexOutOfBoundsException: Index 10 out of bounds for length 10
   #,E_BYTE%)
 beqsinex2 inex1 ,  must up branch the
 bfextu  (a6{:3,d0get regno
 bclrb  %d0,FPR_DIRTY_BITS(%a6) |clr dest dirty bit
 bsrl
|.  (%),d0
 orl  #sx_mask,E_BYTE(%a6)
no_e3_2:
 moveb|.b  $3%java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17
moveml(%),d0-d1%a0-%
 fmovemx
 fmoveml tstbE3E_BYTEa6
  (%a7)
   %java.lang.StringIndexOutOfBoundsException: Index 10 out of bounds for length 10
 bralreal_inex

ovfl_exit:
 bclrb #E3,E_BYTE(   b1238_fix
 beqs e1_set
|
| Clear dirty bit on dest resister in:
|    INEX_VEC+1()
|
 bfextu  CMDREG3B(%a6){#6:#  USER_FP0%)%%fp3
  USER_FPCR),fpcr%/%fpiar
 bsrlb1238_fix  | forbug1238case

 movel  USER_FPSR(%a6),FPSR_SHADOW(%a6)
 orl  #sx_mask,E_BYTE(%
 moveml  USER_DA(%a6),%d0-bral 
 fmovemx :
 fmoveml bclrb E3E_BYTEa6 testand  E3
 frestore  e1_set
 unlk|Clear bit dest in framebefore branching
 bral
e1_set
 moveml USER_DA(a6%%d1%%a1
 fmovemxbclrb%,(%a6)| dest bit
 fmoveml USER_FPCR(%a6),%bsrl b1238_fix| for case
 unlk USER_FPSR%),(%)
 orl%%//fpiar

|
| ovf_adj
|
ovf_adj
|
| a0point theoperand
|
  (a6,%d1a0-
  ovf_e1

 lea WBTEMP(%a6),%a0
   (a6%/%/%java.lang.StringIndexOutOfBoundsException: Index 42 out of bounds for length 42
ovf_e1
 

:
 bclrb #sign_bit,LOCAL_EX(%a0)
 sne beqsjava.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for length 12

 bsrl ETEMPa6)a0
 cmpiw :
   #sign_bit,LOCAL_EX%0

|
| bsrlg_opcls |  in
cmpiw3%  checkforopclass3
|
(%a6)L_SCR1a6
 bsrljava.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1
  L_SCR1%),FPSR_CC%)
 bral store  |stores to memory or  are to  ' 'for opclass3.

c011
 bsrl |  pointing result
b storestores  orregister

 :