compinnr.inc 4.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142
  1. {
  2. $Id$
  3. This file is part of the Free Pascal run time library and compiler.
  4. Copyright (c) 1998-2000 by the Free Pascal development team
  5. Internal Function/Constant Evaluator numbers
  6. See the file COPYING.FPC, included in this distribution,
  7. for details about the copyright.
  8. This program is distributed in the hope that it will be useful,
  9. but WITHOUT ANY WARRANTY; without even the implied warranty of
  10. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  11. **********************************************************************}
  12. const
  13. { Internal functions }
  14. in_lo_word = 1;
  15. in_hi_word = 2;
  16. in_lo_long = 3;
  17. in_hi_long = 4;
  18. in_ord_x = 5;
  19. in_length_x = 6;
  20. in_chr_byte = 7;
  21. in_write_x = 14;
  22. in_writeln_x = 15;
  23. in_read_x = 16;
  24. in_readln_x = 17;
  25. in_concat_x = 18;
  26. in_assigned_x = 19;
  27. in_str_x_string = 20;
  28. in_ofs_x = 21;
  29. in_sizeof_x = 22;
  30. in_typeof_x = 23;
  31. in_val_x = 24;
  32. in_reset_x = 25;
  33. in_rewrite_x = 26;
  34. in_low_x = 27;
  35. in_high_x = 28;
  36. in_seg_x = 29;
  37. in_pred_x = 30;
  38. in_succ_x = 31;
  39. in_reset_typedfile = 32;
  40. in_rewrite_typedfile = 33;
  41. in_settextbuf_file_x = 34;
  42. in_inc_x = 35;
  43. in_dec_x = 36;
  44. in_include_x_y = 37;
  45. in_exclude_x_y = 38;
  46. in_break = 39;
  47. in_continue = 40;
  48. in_assert_x_y = 41;
  49. in_addr_x = 42;
  50. in_typeinfo_x = 43;
  51. in_setlength_x = 44;
  52. in_finalize_x = 45;
  53. in_new_x = 46;
  54. in_dispose_x = 47;
  55. { Internal constant functions }
  56. in_const_trunc = 100;
  57. in_const_round = 101;
  58. in_const_frac = 102;
  59. in_const_abs = 103;
  60. in_const_int = 104;
  61. in_const_sqr = 105;
  62. in_const_odd = 106;
  63. in_const_ptr = 107;
  64. in_const_swap_word = 108;
  65. in_const_swap_long = 109;
  66. in_const_pi = 110;
  67. in_const_sqrt = 111;
  68. in_const_arctan = 112;
  69. in_const_cos = 113;
  70. in_const_exp = 114;
  71. in_const_ln = 115;
  72. in_const_sin = 116;
  73. in_lo_qword = 117;
  74. in_hi_qword = 118;
  75. in_cos_extended = 119;
  76. in_pi = 121;
  77. in_abs_extended = 122;
  78. in_sqr_extended = 123;
  79. in_sqrt_extended = 124;
  80. in_arctan_extended = 125;
  81. in_ln_extended = 126;
  82. in_sin_extended = 127;
  83. { MMX functions }
  84. { these contants are used by the mmx unit }
  85. { MMX }
  86. in_mmx_pcmpeqb = 200;
  87. in_mmx_pcmpeqw = 201;
  88. in_mmx_pcmpeqd = 202;
  89. in_mmx_pcmpgtb = 203;
  90. in_mmx_pcmpgtw = 204;
  91. in_mmx_pcmpgtd = 205;
  92. { 3DNow }
  93. { SSE }
  94. {
  95. $Log$
  96. Revision 1.6 2002-05-16 19:46:35 carl
  97. + defines.inc -> fpcdefs.inc to avoid conflicts if compiling by hand
  98. + try to fix temp allocation (still in ifdef)
  99. + generic constructor calls
  100. + start of tassembler / tmodulebase class cleanup
  101. Revision 1.4 2001/10/24 11:51:39 marco
  102. * Make new/dispose system functions instead of keywords
  103. Revision 1.3 2001/07/09 21:15:40 peter
  104. * Length made internal
  105. * Add array support for Length
  106. Revision 1.2 2000/11/09 17:46:54 florian
  107. * System.TypeInfo fixed
  108. + System.Finalize implemented
  109. + some new keywords for interface support added
  110. Revision 1.1 2000/11/04 16:48:32 florian
  111. * innr.inc renamed to make compiler compilation easier because the rtl contains
  112. a file of the same name
  113. Revision 1.4 2000/10/21 18:16:11 florian
  114. * a lot of changes:
  115. - basic dyn. array support
  116. - basic C++ support
  117. - some work for interfaces done
  118. ....
  119. Revision 1.3 2000/08/16 13:06:06 florian
  120. + support of 64 bit integer constants
  121. Revision 1.2 2000/07/13 11:32:43 michael
  122. + removed logs
  123. }