Changeset 1d320bac in rtems


Ignore:
Timestamp:
Jul 9, 1997, 11:41:20 PM (24 years ago)
Author:
Joel Sherrill <joel.sherrill@…>
Branches:
4.10, 4.11, 4.8, 4.9, 5, master
Children:
250394f6
Parents:
8fabc273
Message:

This code was in the tree but not actually being compiled. There
were a number of minor problems which had to be fixed to get it
to compile including modifying the compile rule to handle C++ comments,
changing the syntax of the include statement, and getting rid of "%"
as part of register names.

Location:
c/src/lib/libcpu/m68k/m68040/fpsp
Files:
34 edited

Legend:

Unmodified
Added
Removed
  • c/src/lib/libcpu/m68k/m68040/fpsp/bindec.s

    r8fabc273 r1d320bac  
    138138//BINDEC    idnt    2,1 | Motorola 040 Floating Point Software Package
    139139
    140         .include "fpsp.defs"
     140#include "fpsp.defs"
    141141
    142142        |section        8
  • c/src/lib/libcpu/m68k/m68040/fpsp/binstr.s

    r8fabc273 r1d320bac  
    6969        |section        8
    7070
    71         .include "fpsp.defs"
     71#include "fpsp.defs"
    7272
    7373        .global binstr
  • c/src/lib/libcpu/m68k/m68040/fpsp/bugfix.s

    r8fabc273 r1d320bac  
    161161        |section        8
    162162
    163         .include "fpsp.defs"
     163#include "fpsp.defs"
    164164
    165165        |xref   fpsp_fmt_error
  • c/src/lib/libcpu/m68k/m68040/fpsp/decbin.s

    r8fabc273 r1d320bac  
    7878        |section        8
    7979
    80         .include "fpsp.defs"
     80#include "fpsp.defs"
    8181
    8282//
  • c/src/lib/libcpu/m68k/m68040/fpsp/do_func.s

    r8fabc273 r1d320bac  
    3131        |section        8
    3232
    33         .include "fpsp.defs"
     33#include "fpsp.defs"
    3434
    3535        |xref   t_dz2
  • c/src/lib/libcpu/m68k/m68040/fpsp/gen_except.s

    r8fabc273 r1d320bac  
    3838        |section 8
    3939
    40         .include "fpsp.defs"
     40#include "fpsp.defs"
    4141
    4242        |xref   real_trace
  • c/src/lib/libcpu/m68k/m68040/fpsp/get_op.s

    r8fabc273 r1d320bac  
    6363        |section        8
    6464
    65         .include "fpsp.defs"
     65#include "fpsp.defs"
    6666
    6767        .global PIRN,PIRZRM,PIRP
  • c/src/lib/libcpu/m68k/m68040/fpsp/kernel_ex.s

    r8fabc273 r1d320bac  
    2121        |section    8
    2222
    23         .include "fpsp.defs"
     23#include "fpsp.defs"
    2424
    2525mns_inf:  .long 0xffff0000,0x00000000,0x00000000
  • c/src/lib/libcpu/m68k/m68040/fpsp/res_func.s

    r8fabc273 r1d320bac  
    2525        |section        8
    2626
    27         .include "fpsp.defs"
     27#include "fpsp.defs"
    2828
    2929sp_bnds:        .short  0x3f81,0x407e
  • c/src/lib/libcpu/m68k/m68040/fpsp/round.s

    r8fabc273 r1d320bac  
    1717        |section        8
    1818
    19         .include "fpsp.defs"
     19#include "fpsp.defs"
    2020
    2121//
  • c/src/lib/libcpu/m68k/m68040/fpsp/rtems_skel.s

    r8fabc273 r1d320bac  
    4646//SKELETON      idnt    2,1 | Motorola 040 Floating Point Software Package
    4747
    48         .include "fpsp.defs"
     48#include "fpsp.defs"
    4949
    5050//
     
    5555        .global SYM(_fpspEntry_dz)
    5656SYM(_fpspEntry_dz):
    57         link            %a6,#-LOCAL_SIZE
    58         fsave           -(%sp)
    59         bclrb           #E1,E_BYTE(%a6)
    60         frestore        (%sp)+
    61         unlk            %a6
     57        link            a6,#-LOCAL_SIZE
     58        fsave           -(sp)
     59        bclrb           #E1,E_BYTE(a6)
     60        frestore        (sp)+
     61        unlk            a6
    6262        jmp             ([SYM(M68040FPSPUserExceptionHandlers)+3*4],za0)
    6363
     
    8686        .global real_inex
    8787SYM(_fpspEntry_inex):
    88         link            %a6,#-LOCAL_SIZE
    89         fsave           -(%sp)
    90         cmpib           #VER_40,(%sp)           //test version number
     88        link            a6,#-LOCAL_SIZE
     89        fsave           -(sp)
     90        cmpib           #VER_40,(sp)            //test version number
    9191        bnes            not_fmt40
    92         fmovel          %fpsr,-(%sp)
    93         btstb           #E1,E_BYTE(%a6)         //test for E1 set
     92        fmovel          fpsr,-(sp)
     93        btstb           #E1,E_BYTE(a6)          //test for E1 set
    9494        beqs            not_b1232
    95         btstb           #snan_bit,2(%sp) //test for snan
     95        btstb           #snan_bit,2(sp) //test for snan
    9696        beq             inex_ckofl
    97         addl            #4,%sp
    98         frestore        (%sp)+
    99         unlk            %a6
     97        addl            #4,sp
     98        frestore        (sp)+
     99        unlk            a6
    100100        bra             snan
    101101inex_ckofl:
    102         btstb           #ovfl_bit,2(%sp) //test for ovfl
     102        btstb           #ovfl_bit,2(sp) //test for ovfl
    103103        beq             inex_ckufl
    104         addl            #4,%sp
    105         frestore        (%sp)+
    106         unlk            %a6
     104        addl            #4,sp
     105        frestore        (sp)+
     106        unlk            a6
    107107        bra             SYM(_fpspEntry_ovfl)
    108108inex_ckufl:
    109         btstb           #unfl_bit,2(%sp) //test for unfl
     109        btstb           #unfl_bit,2(sp) //test for unfl
    110110        beq             not_b1232
    111         addl            #4,%sp
    112         frestore        (%sp)+
    113         unlk            %a6
     111        addl            #4,sp
     112        frestore        (sp)+
     113        unlk            a6
    114114        bra             SYM(_fpspEntry_unfl)
    115115
     
    119119//
    120120not_b1232:
    121         addl            #4,%sp
    122         frestore        (%sp)+
    123         unlk            %a6
     121        addl            #4,sp
     122        frestore        (sp)+
     123        unlk            a6
    124124
    125125real_inex:
    126         link            %a6,#-LOCAL_SIZE
    127         fsave           -(%sp)
     126        link            a6,#-LOCAL_SIZE
     127        fsave           -(sp)
    128128not_fmt40:
    129         bclrb           #E3,E_BYTE(%a6)         //clear and test E3 flag
     129        bclrb           #E3,E_BYTE(a6)          //clear and test E3 flag
    130130        beqs            inex_cke1
    131131//
     
    133133// to b1238_fix.
    134134//
    135         moveml          %d0/%d1,USER_DA(%a6)
    136         bfextu          CMDREG1B(%a6){#6:#3},%d0                //get dest reg no
    137         bclrb           %d0,FPR_DIRTY_BITS(%a6) //clr dest dirty bit
     135        moveml          d0/d1,USER_DA(a6)
     136        bfextu          CMDREG1B(a6){#6:#3},d0          //get dest reg no
     137        bclrb           d0,FPR_DIRTY_BITS(a6)   //clr dest dirty bit
    138138        bsrl            b1238_fix               //test for bug1238 case
    139         moveml          USER_DA(%a6),%d0/%d1
     139        moveml          USER_DA(a6),d0/d1
    140140        bras            inex_done
    141141inex_cke1:
    142         bclrb           #E1,E_BYTE(%a6)
     142        bclrb           #E1,E_BYTE(a6)
    143143inex_done:
    144         frestore        (%sp)+
    145         unlk            %a6
     144        frestore        (sp)+
     145        unlk            a6
    146146        jmp     ([SYM(M68040FPSPUserExceptionHandlers)+2*4],za0)
    147147       
     
    154154        jmp     fpsp_ovfl
    155155real_ovfl:
    156         link            %a6,#-LOCAL_SIZE
    157         fsave           -(%sp)
    158         bclrb           #E3,E_BYTE(%a6)         //clear and test E3 flag
     156        link            a6,#-LOCAL_SIZE
     157        fsave           -(sp)
     158        bclrb           #E3,E_BYTE(a6)          //clear and test E3 flag
    159159        bnes            ovfl_done
    160         bclrb           #E1,E_BYTE(%a6)
     160        bclrb           #E1,E_BYTE(a6)
    161161ovfl_done:
    162         frestore        (%sp)+
    163         unlk            %a6
     162        frestore        (sp)+
     163        unlk            a6
    164164        jmp     ([SYM(M68040FPSPUserExceptionHandlers)+6*4],za0)
    165165       
     
    172172        jmp     fpsp_unfl
    173173real_unfl:
    174         link            %a6,#-LOCAL_SIZE
    175         fsave           -(%sp)
    176         bclrb           #E3,E_BYTE(%a6)         //clear and test E3 flag
     174        link            a6,#-LOCAL_SIZE
     175        fsave           -(sp)
     176        bclrb           #E3,E_BYTE(a6)          //clear and test E3 flag
    177177        bnes            unfl_done
    178         bclrb           #E1,E_BYTE(%a6)
     178        bclrb           #E1,E_BYTE(a6)
    179179unfl_done:
    180         frestore        (%sp)+
    181         unlk            %a6
     180        frestore        (sp)+
     181        unlk            a6
    182182        jmp     ([SYM(M68040FPSPUserExceptionHandlers)+4*4],za0)
    183183       
     
    191191        jmp     fpsp_snan
    192192real_snan:
    193         link            %a6,#-LOCAL_SIZE
    194         fsave           -(%sp)
    195         bclrb           #E1,E_BYTE(%a6) //snan is always an E1 exception
    196         frestore        (%sp)+
    197         unlk            %a6
     193        link            a6,#-LOCAL_SIZE
     194        fsave           -(sp)
     195        bclrb           #E1,E_BYTE(a6)  //snan is always an E1 exception
     196        frestore        (sp)+
     197        unlk            a6
    198198        jmp     ([SYM(M68040FPSPUserExceptionHandlers)+7*4],za0)
    199199
     
    206206        jmp     fpsp_operr
    207207real_operr:
    208         link            %a6,#-LOCAL_SIZE
    209         fsave           -(%sp)
    210         bclrb           #E1,E_BYTE(%a6) //operr is always an E1 exception
    211         frestore        (%sp)+
    212         unlk            %a6
     208        link            a6,#-LOCAL_SIZE
     209        fsave           -(sp)
     210        bclrb           #E1,E_BYTE(a6)  //operr is always an E1 exception
     211        frestore        (sp)+
     212        unlk            a6
    213213        jmp     ([SYM(M68040FPSPUserExceptionHandlers)+5*4],za0)
    214214       
     
    223223        jmp     fpsp_bsun
    224224real_bsun:
    225         link            %a6,#-LOCAL_SIZE
    226         fsave           -(%sp)
    227         bclrb           #E1,E_BYTE(%a6) //bsun is always an E1 exception
    228         fmovel          %FPSR,-(%sp)
    229         bclrb           #nan_bit,(%sp)
    230         fmovel          (%sp)+,%FPSR
    231         frestore        (%sp)+
    232         unlk            %a6
     225        link            a6,#-LOCAL_SIZE
     226        fsave           -(sp)
     227        bclrb           #E1,E_BYTE(a6)  //bsun is always an E1 exception
     228        fmovel          fpsr,-(sp)
     229        bclrb           #nan_bit,(sp)
     230        fmovel          (sp)+,fpsr
     231        frestore        (sp)+
     232        unlk            a6
    233233        jmp     ([SYM(M68040FPSPUserExceptionHandlers)+1*4],za0)
    234234
     
    254254        jmp     fpsp_unsupp
    255255real_unsupp:
    256         link            %a6,#-LOCAL_SIZE
    257         fsave           -(%sp)
    258         bclrb           #E1,E_BYTE(%a6) //unsupp is always an E1 exception
    259         frestore        (%sp)+
    260         unlk            %a6
     256        link            a6,#-LOCAL_SIZE
     257        fsave           -(sp)
     258        bclrb           #E1,E_BYTE(a6)  //unsupp is always an E1 exception
     259        frestore        (sp)+
     260        unlk            a6
    261261        jmp     ([SYM(M68040FPSPUserExceptionHandlers)+8*4],za0)
    262262
     
    310310        .global mem_write
    311311mem_write:
    312         btstb   #5,EXC_SR(%a6)  //check for supervisor state
     312        btstb   #5,EXC_SR(a6)   //check for supervisor state
    313313        beqs    user_write
    314314super_write:
    315         moveb   (%a0)+,(%a1)+
    316         subql   #1,%d0
     315        moveb   (a0)+,(a1)+
     316        subql   #1,d0
    317317        bnes    super_write
    318318        rts
    319319user_write:
    320         movel   %d1,-(%sp)      //preserve d1 just in case
    321         movel   %d0,-(%sp)
    322         movel   %a1,-(%sp)
    323         movel   %a0,-(%sp)
     320        movel   d1,-(sp)        //preserve d1 just in case
     321        movel   d0,-(sp)
     322        movel   a1,-(sp)
     323        movel   a0,-(sp)
    324324        jsr             copyout
    325         addw    #12,%sp
    326         movel   (%sp)+,%d1
     325        addw    #12,sp
     326        movel   (sp)+,d1
    327327        rts
    328328//
     
    347347        .global mem_read
    348348mem_read:
    349         btstb   #5,EXC_SR(%a6)  //check for supervisor state
     349        btstb   #5,EXC_SR(a6)   //check for supervisor state
    350350        beqs    user_read
    351351super_read:
    352         moveb   (%a0)+,(%a1)+
    353         subql   #1,%d0
     352        moveb   (a0)+,(a1)+
     353        subql   #1,d0
    354354        bnes    super_read
    355355        rts
    356356user_read:
    357         movel   %d1,-(%sp)      //preserve d1 just in case
    358         movel   %d0,-(%sp)
    359         movel   %a1,-(%sp)
    360         movel   %a0,-(%sp)
     357        movel   d1,-(sp)        //preserve d1 just in case
     358        movel   d0,-(sp)
     359        movel   a1,-(sp)
     360        movel   a0,-(sp)
    361361        jsr             copyin
    362         addw    #12,%sp
    363         movel   (%sp)+,%d1
     362        addw    #12,sp
     363        movel   (sp)+,d1
    364364        rts
    365365
     
    370370//
    371371copyout:
    372         movel   4(%sp),%a0      // source
    373         movel   8(%sp),%a1      // destination
    374         movel   12(%sp),%d0     // count
    375         subl    #1,%d0          // dec count by 1 for dbra
    376         movel   #1,%d1
    377         movec   %d1,%DFC                // set dfc for user data space
     372        movel   4(sp),a0        // source
     373        movel   8(sp),a1        // destination
     374        movel   12(sp),d0       // count
     375        subl    #1,d0           // dec count by 1 for dbra
     376        movel   #1,d1
     377        movec   d1,dfc          // set dfc for user data space
    378378moreout:
    379         moveb   (%a0)+,%d1      // fetch supervisor byte
    380         movesb  %d1,(%a1)+      // write user byte
    381         dbf     %d0,moreout
     379        moveb   (a0)+,d1        // fetch supervisor byte
     380        movesb  d1,(a1)+        // write user byte
     381        dbf     d0,moreout
    382382        rts
    383383
    384384copyin:
    385         movel   4(%sp),%a0      // source
    386         movel   8(%sp),%a1      // destination
    387         movel   12(%sp),%d0     // count
    388         subl    #1,%d0          // dec count by 1 for dbra
    389         movel   #1,%d1
    390         movec   %d1,%SFC                // set sfc for user space
     385        movel   4(sp),a0        // source
     386        movel   8(sp),a1        // destination
     387        movel   12(sp),d0       // count
     388        subl    #1,d0           // dec count by 1 for dbra
     389        movel   #1,d1
     390        movec   d1,sfc          // set sfc for user space
    391391morein:
    392         movesb  (%a0)+,%d1      // fetch user byte
    393         moveb   %d1,(%a1)+      // write supervisor byte
    394         dbf     %d0,morein
     392        movesb  (a0)+,d1        // fetch user byte
     393        moveb   d1,(a1)+        // write supervisor byte
     394        dbf     d0,morein
    395395        rts
    396396
  • c/src/lib/libcpu/m68k/m68040/fpsp/satan.s

    r8fabc273 r1d320bac  
    5252        |section        8
    5353
    54         .include "fpsp.defs"
     54#include "fpsp.defs"
    5555       
    5656BOUNDS1:        .long 0x3FFB8000,0x4002FFFF
  • c/src/lib/libcpu/m68k/m68040/fpsp/scale.s

    r8fabc273 r1d320bac  
    3030        |section        8
    3131
    32         .include "fpsp.defs"
     32#include "fpsp.defs"
    3333
    3434        |xref   t_ovfl2
  • c/src/lib/libcpu/m68k/m68040/fpsp/setox.s

    r8fabc273 r1d320bac  
    340340        |section        8
    341341
    342         .include "fpsp.defs"
     342#include "fpsp.defs"
    343343
    344344L2:     .long   0x3FDC0000,0x82E30865,0x4361C4C6,0x00000000
  • c/src/lib/libcpu/m68k/m68040/fpsp/sgetem.s

    r8fabc273 r1d320bac  
    3333        |section 8
    3434
    35         .include "fpsp.defs"
     35#include "fpsp.defs"
    3636
    3737        |xref   nrm_set
  • c/src/lib/libcpu/m68k/m68040/fpsp/sint.s

    r8fabc273 r1d320bac  
    6060        |section        8
    6161
    62         .include "fpsp.defs"
     62#include "fpsp.defs"
    6363
    6464        |xref   dnrm_lp
  • c/src/lib/libcpu/m68k/m68040/fpsp/slogn.s

    r8fabc273 r1d320bac  
    7272        |section        8
    7373
    74         .include "fpsp.defs"
     74#include "fpsp.defs"
    7575
    7676BOUNDS1:  .long 0x3FFEF07D,0x3FFF8841
  • c/src/lib/libcpu/m68k/m68040/fpsp/smovecr.s

    r8fabc273 r1d320bac  
    2424        |section 8
    2525
    26         .include "fpsp.defs"
     26#include "fpsp.defs"
    2727
    2828        |xref   nrm_set
  • c/src/lib/libcpu/m68k/m68040/fpsp/srem_mod.s

    r8fabc273 r1d320bac  
    7575        |section    8
    7676
    77         .include "fpsp.defs"
     77#include "fpsp.defs"
    7878
    7979        .set    Mod_Flag,L_SCR3
  • c/src/lib/libcpu/m68k/m68040/fpsp/ssin.s

    r8fabc273 r1d320bac  
    9292        |section        8
    9393
    94         .include "fpsp.defs"
     94#include "fpsp.defs"
    9595
    9696BOUNDS1:        .long 0x3FD78000,0x4004BC7E
  • c/src/lib/libcpu/m68k/m68040/fpsp/stan.s

    r8fabc273 r1d320bac  
    5959        |section        8
    6060
    61         .include "fpsp.defs"
     61#include "fpsp.defs"
    6262
    6363BOUNDS1:        .long 0x3FD78000,0x4004BC7E
  • c/src/lib/libcpu/m68k/m68040/fpsp/stanh.s

    r8fabc273 r1d320bac  
    5858        |section        8
    5959       
    60         .include "fpsp.defs"
     60#include "fpsp.defs"
    6161
    6262        .set    X,FP_SCR5
  • c/src/lib/libcpu/m68k/m68040/fpsp/sto_res.s

    r8fabc273 r1d320bac  
    2929        |section        8
    3030
    31         .include "fpsp.defs"
     31#include "fpsp.defs"
    3232
    3333        .global sto_cos
  • c/src/lib/libcpu/m68k/m68040/fpsp/stwotox.s

    r8fabc273 r1d320bac  
    8585        |section        8
    8686
    87         .include "fpsp.defs"
     87#include "fpsp.defs"
    8888
    8989BOUNDS1:        .long 0x3FB98000,0x400D80C0 // ... 2^(-70),16480
  • c/src/lib/libcpu/m68k/m68040/fpsp/util.s

    r8fabc273 r1d320bac  
    2525        |section        8
    2626
    27         .include "fpsp.defs"
     27#include "fpsp.defs"
    2828
    2929        |xref   mem_read
  • c/src/lib/libcpu/m68k/m68040/fpsp/x_bsun.s

    r8fabc273 r1d320bac  
    2222        |section        8
    2323
    24         .include "fpsp.defs"
     24#include "fpsp.defs"
    2525
    2626        |xref   real_bsun
  • c/src/lib/libcpu/m68k/m68040/fpsp/x_fline.s

    r8fabc273 r1d320bac  
    2222        |section        8
    2323
    24         .include "fpsp.defs"
     24#include "fpsp.defs"
    2525
    2626        |xref   real_fline
  • c/src/lib/libcpu/m68k/m68040/fpsp/x_operr.s

    r8fabc273 r1d320bac  
    5252        |section        8
    5353
    54         .include "fpsp.defs"
     54#include "fpsp.defs"
    5555
    5656        |xref   mem_write
  • c/src/lib/libcpu/m68k/m68040/fpsp/x_ovfl.s

    r8fabc273 r1d320bac  
    4444        |section        8
    4545
    46         .include "fpsp.defs"
     46#include "fpsp.defs"
    4747
    4848        |xref   ovf_r_x2
  • c/src/lib/libcpu/m68k/m68040/fpsp/x_snan.s

    r8fabc273 r1d320bac  
    3131        |section        8
    3232
    33         .include "fpsp.defs"
     33#include "fpsp.defs"
    3434
    3535        |xref   get_fline
  • c/src/lib/libcpu/m68k/m68040/fpsp/x_store.s

    r8fabc273 r1d320bac  
    2323        .byte   0x80,0x40,0x20,0x10,0x08,0x04,0x02,0x01
    2424
    25         .include "fpsp.defs"
     25#include "fpsp.defs"
    2626
    2727        |xref   mem_write
  • c/src/lib/libcpu/m68k/m68040/fpsp/x_unfl.s

    r8fabc273 r1d320bac  
    3030        |section        8
    3131
    32         .include "fpsp.defs"
     32#include "fpsp.defs"
    3333
    3434        |xref   denorm
  • c/src/lib/libcpu/m68k/m68040/fpsp/x_unimp.s

    r8fabc273 r1d320bac  
    3131        |section        8
    3232
    33         .include "fpsp.defs"
     33#include "fpsp.defs"
    3434
    3535        |xref   get_op
  • c/src/lib/libcpu/m68k/m68040/fpsp/x_unsupp.s

    r8fabc273 r1d320bac  
    3232        |section        8
    3333
    34         .include "fpsp.defs"
     34#include "fpsp.defs"
    3535
    3636        |xref   get_op
Note: See TracChangeset for help on using the changeset viewer.