cpubase.pas 7.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252
  1. {
  2. $Id$
  3. Copyright (C) 1997 by Florian Klaempfl
  4. this unit implements an asmlistitem class for the DEC Alpha
  5. This program is free software; you can redistribute it and/or modify
  6. it under the terms of the GNU General Public License as published by
  7. the Free Software Foundation; either version 2 of the License, or
  8. (at your option) any later version.
  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. See the
  12. GNU General Public License for more details.
  13. You should have received a copy of the GNU General Public License
  14. along with this program; if not, write to the Free Software
  15. Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  16. ****************************************************************************
  17. }
  18. unit cpubase;
  19. interface
  20. uses
  21. strings,systems,cobjects,globals,aasm,cpuinfo;
  22. type
  23. tasmop = (A_ADDF,A_ADDG,A_ADDL,A_ADDQ,
  24. A_ADDS,A_ADDT,A_AMASK,A_AND,A_BEQ,A_BGE,
  25. A_BGT,A_BIC,A_BIS,A_BLBC,A_BLBS,A_BLE,
  26. A_BLT,A_BNE,A_BR,A_BSR,A_CALL_PAL,A_CMOVEQ,
  27. A_CMOVGE,A_CMOVGT,A_CMOVLBC,A_CMOVLBS,A_CMOVLE,A_CMOVLT,
  28. A_CMOVNE,A_CMPBGE,A_CMPEQ,A_CMPGEQ,A_CMPGLE,A_CMPGLT,
  29. A_CMPLE,A_CMPLT,A_CMPTEQ,A_CMPTLE,A_CMPTLT,A_CMPTUN,
  30. A_CMPULE,A_CMPULT,A_CPYS,A_CPYSE,A_CPYSN,A_CTLZ,
  31. A_CTPOP,A_CTTZ,A_CVTDG,A_CVTGD,A_CVTGF,A_CVTGQ,
  32. A_CVTLQ,A_CVTQF,A_CVTQG,A_CVTQL,A_CVTQS,A_CVTQT,
  33. A_CVTST,A_CVTTQ,A_CVTTS,A_DIVF,A_DIVG,A_DIVS,
  34. A_DIVT,A_ECB,A_EQV,A_EXCB,A_EXTBL,A_EXTLH,
  35. A_EXTLL,A_EXTQH,A_EXTQL,A_EXTWH,A_EXTWL,A_FBEQ,
  36. A_FBGE,A_FBGT,A_FBLE,A_FBLT,A_FBNE,A_FCMOVEQ,
  37. A_FCMOVGE,A_FCMOVGT,A_FCMOVLE,A_FCMOVLT,A_FCMOVNE,A_FETCH,
  38. A_FETCH_M,A_FTOIS,A_FTOIT,A_IMPLVER,A_INSBL,A_INSLH,
  39. A_INSLL,A_INSQH,A_INSQL,A_INSWH,A_INSWL,A_ITOFF,
  40. A_ITOFS,A_ITOFT,A_JMP,A_JSR,A_JSR_COROUTINE,A_LDA,
  41. A_LDAH,A_LDBU,A_LDWU,A_LDF,A_LDG,A_LDL,
  42. A_LDL_L,A_LDQ,A_LDQ_L,A_LDQ_U,A_LDS,A_LDT,
  43. A_MAXSB8,A_MAXSW4,A_MAXUB8,A_MAXUW4,A_MB,A_MF_FPCR,
  44. A_MINSB8,A_MINSW4,A_MINUB8,A_MINUW4,A_MSKBL,A_MSKLH,
  45. A_MSKLL,A_MSKQH,A_MSKQL,A_MSKWH,A_MSKWL,A_MT_FPCR,
  46. A_MULF,A_MULG,A_MULL,A_MULQ,
  47. A_MULS,A_MULT,A_ORNOT,A_PERR,A_PKLB,A_PKWB,
  48. A_RC,A_RET,A_RPCC,A_RS,A_S4ADDL,A_S4ADDQ,
  49. A_S4SUBL,A_S4SUBQ,A_S8ADDL,A_S8ADDQ,A_S8SUBL,A_S8SUBQ,
  50. A_SEXTB,A_SEXTW,A_SLL,A_SQRTF,A_SQRTG,A_SQRTS,
  51. A_SQRTT,A_SRA,A_SRL,A_STB,A_STF,A_STG,
  52. A_STS,A_STL,A_STL_C,A_STQ,A_STQ_C,A_STQ_U,
  53. A_STT,A_STW,A_SUBF,A_SUBG,A_SUBL,
  54. A_SUBQ,A_SUBS,A_SUBT,A_TRAPB,A_UMULH,
  55. A_UNPKBL,A_UNPKBW,A_WH64,A_WMB,A_XOR,A_ZAP,
  56. A_ZAPNOT);
  57. Const
  58. firstop = low(tasmop);
  59. lastop = high(tasmop);
  60. type
  61. TAsmCond =
  62. (
  63. C_None,C_A,C_AE,C_B,C_BE,C_C,C_E,C_G,C_GE,C_L,C_LE,C_NA,C_NAE,
  64. C_NB,C_NBE,C_NC,C_NE,C_NG,C_NGE,C_NL,C_NLE,C_NO,C_NP,C_NS,C_NZ,C_O,C_P,
  65. C_PE,C_PO,C_S,C_Z
  66. );
  67. Type
  68. { ALL registers }
  69. TRegister = (R_NO, { R_NO is Mandatory, signifies no register }
  70. R_0,R_1,R_2,R_3,R_4,R_5,R_6,R_7,R_8,R_9,
  71. R_10,R_11,R_12,R_13,R_14,R_15,R_16,R_17,R_18,R_19,
  72. R_20,R_21,R_22,R_23,R_24,R_25,R_26,R_27,R_28,R_29,
  73. R_30,R_31,
  74. R_F0,R_F1,R_F2,R_F3,R_F4,R_F5,R_F6,R_F7,R_F8,R_F9,
  75. R_F10,R_F11,R_F12,R_F13,R_F14,R_F15,R_F16,R_F17,R_F18,R_F19,
  76. R_F20,R_F21,R_F22,R_F23,R_F24,R_F25,R_F26,R_F27,R_F28,R_F29,
  77. R_F30,R_F31);
  78. TRegisterset = Set of TRegister;
  79. { Constants describing the registers }
  80. Const
  81. Firstreg = R_0;
  82. LastReg = R_F31;
  83. stack_pointer = R_30;
  84. frame_pointer = R_15;
  85. self_pointer = R_16;
  86. accumulator = R_0;
  87. { sizes }
  88. pointersize = 8;
  89. extended_size = 16;
  90. intregs = [R_0..R_31];
  91. fpuregs = [R_F0..R_F31];
  92. mmregs = [];
  93. availabletempregsint = [R_0..R_14,R_16..R_25,R_28];
  94. availabletempregsfpu = [R_F0..R_F30];
  95. availabletempregsmm = [];
  96. c_countusableregsint = 26;
  97. c_countusableregsfpu = 31;
  98. c_countusableregsmm = 0;
  99. registers_saved_on_cdecl = [R_9..R_14,R_F2..R_F9];
  100. maxvarregs = 6;
  101. varregs : Array [1..maxvarregs] of Tregister =
  102. (R_9,R_10,R_11,R_12,R_13,R_14);
  103. Type
  104. TReference = record
  105. offset : aword;
  106. symbol : pasmsymbol;
  107. base : tregister;
  108. is_immediate : boolean;
  109. { the boundary to which the reference is surely aligned }
  110. alignment : byte;
  111. end;
  112. PReference = ^TReference;
  113. tloc = (LOC_INVALID,
  114. LOC_REGISTER,
  115. LOC_MEM,
  116. LOC_REFERENCE,
  117. LOC_JUMP,
  118. LOC_CREGISTER,
  119. LOC_CONST);
  120. tlocation = record
  121. case loc : tloc of
  122. LOC_REFERENCE,LOC_MEM : (reference : treference);
  123. LOC_REGISTER : (register : tregister);
  124. end;
  125. {*****************************************************************************
  126. Operands
  127. *****************************************************************************}
  128. { Types of operand }
  129. toptype=(top_none,top_reg,top_ref,top_const,top_symbol);
  130. toper=record
  131. ot : longint;
  132. case typ : toptype of
  133. top_none : ();
  134. top_reg : (reg:tregister);
  135. top_ref : (ref:preference);
  136. top_const : (val:longint);
  137. top_symbol : (sym:pasmsymbol;symofs:longint);
  138. end;
  139. Const
  140. { offsets for the integer and floating point registers }
  141. INT_REG = 0;
  142. FLOAT_REG = 32;
  143. { operator qualifiers }
  144. OQ_CHOPPED_ROUNDING = $01; { /C }
  145. OQ_ROUNDING_MODE_DYNAMIC = $02; { /D }
  146. OQ_ROUND_TOWARD_MINUS_INFINITY = $04; { /M }
  147. OQ_INEXACT_RESULT_ENABLE = $08; { /I }
  148. OQ_SOFTWARE_COMPLETION_ENABLE = $10; { /S }
  149. OQ_FLOATING_UNDERFLOW_ENABLE = $20; { /U }
  150. OQ_INTEGER_OVERFLOW_ENABLE = $40; { /V }
  151. { resets all values of ref to defaults }
  152. procedure reset_reference(var ref : treference);
  153. { set mostly used values of a new reference }
  154. function new_reference(base : tregister;offset : longint) : preference;
  155. procedure disposereference(var r : preference);
  156. function reg2str(r : tregister) : string;
  157. implementation
  158. uses
  159. verbose;
  160. function reg2str(r : tregister) : string;
  161. begin
  162. if r in [R_0..R_31] then
  163. reg2str:='R'+tostr(longint(r)-longint(R_0))
  164. else if r in [R_F0..R_F31] then
  165. reg2str:='F'+tostr(longint(r)-longint(R_F0))
  166. else internalerror(38991);
  167. end;
  168. procedure reset_reference(var ref : treference);
  169. begin
  170. FillChar(ref,sizeof(treference),0);
  171. end;
  172. function new_reference(base : tregister;offset : longint) : preference;
  173. var
  174. r : preference;
  175. begin
  176. new(r);
  177. FillChar(r^,sizeof(treference),0);
  178. r^.offset:=offset;
  179. r^.alignment:=8;
  180. new_reference:=r;
  181. end;
  182. procedure disposereference(var r : preference);
  183. begin
  184. dispose(r);
  185. r:=Nil;
  186. end;
  187. end.
  188. {
  189. $Log$
  190. Revision 1.5 1999-08-03 17:09:48 florian
  191. * the alpha compiler can be compiled now
  192. Revision 1.4 1999/08/03 15:52:40 michael
  193. * Additional changes
  194. Revision 1.3 1999/08/03 00:35:54 michael
  195. + Added varregs
  196. Revision 1.2 1999/08/02 17:16:44 michael
  197. + Changes for alpha
  198. Revision 1.1 1999/08/01 23:18:36 michael
  199. + Fixes for new code generator
  200. Revision 1.2 1998/09/09 20:14:00 peter
  201. - dup files already used elsewhere
  202. }