home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / gccdist / gcc-src / vms / gcclib / gcclib_vms.mar < prev    next >
Encoding:
Text File  |  1991-02-27  |  795 b   |  59 lines
  1.     .TITLE    GCCLIB GNU CC compiler runtime support routines
  2.     .IDENT    /1.00/
  3.  
  4. ;
  5. ;    The following routines implement runtime functions for code
  6. ;    generated by GNU CC.
  7. ;
  8.     .PSECT    $CODE,LONG,PIC,REL,SHR,EXE,RD,NOWRT
  9. _UDIVSI3::
  10.     .ENTRY    UDIV,^M<R2>
  11.     MOVL    4(AP),R0
  12.     MOVL    8(AP),R2
  13.     BEQL    1$
  14.     CMPL    R2,#1
  15.     BLEQ    2$
  16. 1$:    CLRL    R1
  17.     EDIV    R2,R0,R0,R2
  18.     RET
  19. 2$:    BEQL    10$
  20.     CMPL    R0,R2
  21.     BGEQU    20$
  22.     CLRL    R0
  23.     RET
  24. 20$:    MOVL    #1,R0
  25. 10$:    RET
  26.  
  27.     .ALIGN    LONG
  28. _UMODSI3::
  29.     .ENTRY    UREM,^M<R2>
  30.     MOVL    4(AP),R0
  31.     MOVL    8(AP),R2
  32.     BEQL    1$
  33.     CMPL    R2,#1
  34.     BLEQ    2$
  35. 1$:    CLRL    R1
  36.     EDIV    R2,R0,R2,R0
  37.     RET
  38. 2$:    BNEQ    10$
  39.     CLRL    R0
  40.     RET
  41. 10$:    CMPL    R0,R2
  42.     BLSSU    100$
  43.     SUBL2    R2,R0
  44. 100$:    RET
  45.  
  46.     .ALIGN    LONG
  47.     .ENTRY    _LSHRSI3,^M<>
  48.     MOVL    4(AP),R0
  49.     SUBL3    8(AP),#32,R1
  50.     EXTZV    8(AP),R1,R0,R0
  51.     RET
  52.  
  53.     .ALIGN    LONG
  54.     .ENTRY    _FIXUNS_TRUNCDFSI,^M<>
  55.     CVTDL    4(AP),R0
  56.     RET
  57.  
  58.     .END
  59.