innr.inc 3.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130
  1. {
  2. $Id$
  3. This file is part of the Free Pascal run time library and compiler.
  4. Copyright (c) 1999-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_string = 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. { Internal constant functions }
  51. in_const_trunc = 100;
  52. in_const_round = 101;
  53. in_const_frac = 102;
  54. in_const_abs = 103;
  55. in_const_int = 104;
  56. in_const_sqr = 105;
  57. in_const_odd = 106;
  58. in_const_ptr = 107;
  59. in_const_swap_word = 108;
  60. in_const_swap_long = 109;
  61. in_const_pi = 110;
  62. in_const_sqrt = 111;
  63. in_const_arctan = 112;
  64. in_const_cos = 113;
  65. in_const_exp = 114;
  66. in_const_ln = 115;
  67. in_const_sin = 116;
  68. in_lo_qword = 117;
  69. in_hi_qword = 118;
  70. in_cos_extended = 119;
  71. in_pi = 121;
  72. in_abs_extended = 122;
  73. in_sqr_extended = 123;
  74. in_sqrt_extended = 124;
  75. in_arctan_extended = 125;
  76. in_ln_extended = 126;
  77. in_sin_extended = 127;
  78. { MMX functions }
  79. { these contants are used by the mmx unit }
  80. { MMX }
  81. in_mmx_pcmpeqb = 200;
  82. in_mmx_pcmpeqw = 201;
  83. in_mmx_pcmpeqd = 202;
  84. in_mmx_pcmpgtb = 203;
  85. in_mmx_pcmpgtw = 204;
  86. in_mmx_pcmpgtd = 205;
  87. { 3DNow }
  88. { SSE }
  89. {
  90. $Log$
  91. Revision 1.11 2000-01-07 16:41:34 daniel
  92. * copyright 2000
  93. Revision 1.10 2000/01/07 16:32:24 daniel
  94. * copyright 2000 added
  95. Revision 1.9 1999/09/15 20:23:16 florian
  96. + constants for math functions
  97. Revision 1.8 1999/07/02 18:06:40 florian
  98. + qword/int64: lo/hi/swap
  99. Revision 1.7 1999/04/17 13:10:23 peter
  100. * addr() internal
  101. Revision 1.10 1998/10/05 12:32:45 peter
  102. + assert() support
  103. Revision 1.9 1998/10/02 09:24:20 peter
  104. * more constant expression evaluators
  105. Revision 1.4 1998/09/14 10:48:17 peter
  106. * FPC_ names
  107. * Heap manager is now system independent
  108. Revision 1.3 1998/09/01 17:36:19 peter
  109. + internconst
  110. }