home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 113 / EnigmaAmiga113CD.iso / software / sviluppo / glquake_src / macrosppc.i < prev    next >
Text File  |  2000-01-07  |  4KB  |  238 lines
  1. # 
  2. # Copyright (C) 1996-1997 Id Software, Inc. 
  3. # 
  4. # This program is free software; you can redistribute it and/or 
  5. # modify it under the terms of the GNU General Public License 
  6. # as published by the Free Software Foundation; either version 2 
  7. # of the License, or (at your option) any later version. 
  8. # 
  9. # This program is distributed in the hope that it will be useful, 
  10. # but WITHOUT ANY WARRANTY; without even the implied warranty of 
  11. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.   
  12. # 
  13. # See the GNU General Public License for more details. 
  14. # 
  15. # You should have received a copy of the GNU General Public License 
  16. # along with this program; if not, write to the Free Software 
  17. # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA. 
  18. # 
  19.  
  20. ##
  21. ## Quake for AMIGA
  22. ##
  23. ## macrosPPC.i
  24. ##
  25. ## Macros used in all PPC assembler sources of Quake.
  26. ## Define WOS for WarpOS/PowerOpen ABI, otherwise code for
  27. ## PowerUp/SVR4 will be generated.
  28. ##
  29. ## Define NOLR, if the init/exit macros must not save/restore the LR.
  30. ##
  31.  
  32. # ABI-specific macros
  33.  
  34. .ifdef    WOS
  35. # WarpOS/PowerOpen
  36.  
  37. .macro    xrefv    # cross reference to an elementary data type
  38.     .extern    _\1
  39. .endm
  40.  
  41. .macro    xrefa    # cross reference to an object's address
  42.     .extern    @__\1
  43. .endm
  44.  
  45. .macro    funcdef    # global function definition
  46.     .text
  47.     .globl    _\1
  48.     .globl    _\1__r
  49. _\1:
  50. _\1__r:
  51. .endm
  52.  
  53. .macro    lab    # label definition
  54. _\1:
  55. .endm
  56.  
  57. .macro    init    # init stack frame: nParams,localSize,nGPR,nFPR
  58. .set    param,    24
  59. .set    local,    24+(\1*4)
  60. .set    gb,    (local+\2+3)&~3
  61. .set    fb,    (gb+\3*4+7)&~7
  62. .set    sfsize,    (fb+\4*8+15)&~15
  63. .ifndef    NOLR
  64.     mflr    r0
  65.     stw    r0,8(r1)
  66. .endif
  67.     stwu    r1,-sfsize(r1)
  68. .endm
  69.  
  70. .macro    exit    # free stack frame and return
  71.     addi    r1,r1,sfsize
  72. .ifndef    NOLR
  73.     lwz    r0,8(r1)
  74.     mtlr    r0
  75. .endif
  76.     blr
  77. .endm
  78.  
  79. .macro    funcend    # set function type and size
  80.         .type   _\1,@function
  81.         .size   _\1,$-_\1
  82. .endm
  83.  
  84. .ifndef    NOLR
  85. .macro    call    # call sub routine
  86.     bl    _\1
  87. .endm
  88.  
  89. .macro    mcall    # call math subroutine
  90. .ifdef    __STORM__
  91.     bl    _\1__r
  92. .else
  93.     bl    _\1
  94. .endif
  95. .endm
  96. .endif
  97.  
  98. .macro    lxa    # load external object's address
  99.     lwz    \1,@__\2(r2)
  100. .endm
  101.  
  102. .macro    lla    # load local object's address
  103.     la    \1,_\2(r2)
  104. .endm
  105.  
  106. .macro    lw    # load word
  107.     lwz    \1,_\2(r2)
  108. .endm
  109.  
  110. .macro    sw    # store word
  111.     stw    \1,_\2(r2)
  112. .endm
  113.  
  114. .macro    lf    # load double float
  115.     lfd    \1,_\2(r2)
  116. .endm
  117.  
  118. .macro    ls    # load single float
  119.     lfs    \1,_\2(r2)
  120. .endm
  121.  
  122. .macro    ss    # store single float
  123.     stfs    \1,_\2(r2)
  124. .endm
  125.  
  126.  
  127. .else
  128. # SVR4/ELF (PowerUp)
  129.  
  130. .macro    xrefv    # cross reference to an elementary data type
  131.     .extern    \1
  132. .endm
  133.  
  134. .macro    xrefa    # cross reference to an object's address
  135.     .extern    \1
  136. .endm
  137.  
  138. .macro    funcdef    # global function definition
  139.     .text
  140.     .globl    \1
  141. \1:
  142. .endm
  143.  
  144. .macro    lab    # label definition
  145. \1:
  146. .endm
  147.  
  148. .macro    init    # init stack frame: nParams,localSize,nGPR,nFPR
  149. .set    param,    8
  150. .set    local,    8+(\1*4)
  151. .set    save14,    (local+\2+3)&~3
  152. .set    gb,    save14+4
  153. .set    fb,    (gb+\3*4+7)&~7
  154. .set    sfsize,    (fb+\4*8+15)&~15
  155. .ifndef    NOLR
  156.     mflr    r0
  157.     stw    r0,4(r1)
  158. .endif
  159.     stwu    r1,-sfsize(r1)
  160.     stw    r14,save14(r1)
  161. .endm
  162.  
  163. .macro    exit    # free stack frame and return
  164.     lwz    r14,save14(r1)
  165.     addi    r1,r1,sfsize
  166. .ifndef    NOLR
  167.     lwz    r0,4(r1)
  168.     mtlr    r0
  169. .endif
  170.     blr
  171. .endm
  172.  
  173. .macro    funcend    # set function type and size
  174.         .type   \1,@function
  175.         .size   \1,$-\1
  176. .endm
  177.  
  178. .ifndef    NOLR
  179. .macro    call    # call sub routine
  180.     bl    \1
  181. .endm
  182.  
  183. .macro    mcall    # call math subroutine
  184.     bl    \1
  185. .endm
  186. .endif
  187.  
  188. .macro    lxa    # load external object's address
  189.     lis    \1,\2@ha
  190.     addi    \1,\1,\2@l
  191. .endm
  192.  
  193. .macro    lla    # load local object's address
  194.     lis    \1,\2@ha
  195.     addi    \1,\1,\2@l
  196. .endm
  197.  
  198. .macro    lw    # load word
  199.     lis    r14,\2@ha
  200.     lwz    \1,\2@l(r14)
  201. .endm
  202.  
  203. .macro    sw    # store word
  204.     lis    r14,\2@ha
  205.     stw    \1,\2@l(r14)
  206. .endm
  207.  
  208. .macro    lf    # load double float
  209.     lis    r14,\2@ha
  210.     lfd    \1,\2@l(r14)
  211. .endm
  212.  
  213. .macro    ls    # load single float
  214.     lis    r14,\2@ha
  215.     lfs    \1,\2@l(r14)
  216. .endm
  217.  
  218. .macro    ss    # store single float
  219.     lis    r14,\2@ha
  220.     stfs    \1,\2@l(r14)
  221. .endm
  222.  
  223. .endif
  224.  
  225.  
  226. #
  227. # ABI-independant macros
  228. #
  229.  
  230. # int2dbl: Convert Signed Integer to Double Precision Floating Point
  231. .macro    int2dbl    # destFPR,srcGPR,trash,
  232.         # StkFrameOffs=0x4330000000000000,FPR=0x4330000080000000
  233.     xoris    \3,\2,0x8000
  234.     stw    \3,\4+4(r1)
  235.     lfd    \1,\4(r1)
  236.     fsub    \1,\1,\5
  237. .endm
  238.