123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161 |
- {
- $Id$
- This file is part of the Free Pascal run time library and compiler.
- Copyright (c) 1999-2000 by the Free Pascal development team
- Internal Function/Constant Evaluator numbers
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
- **********************************************************************}
- const
- { Internal functions }
- fpc_in_lo_word = 1;
- fpc_in_hi_word = 2;
- fpc_in_lo_long = 3;
- fpc_in_hi_long = 4;
- fpc_in_ord_x = 5;
- fpc_in_length_string = 6;
- fpc_in_chr_byte = 7;
- fpc_in_write_x = 14;
- fpc_in_writeln_x = 15;
- fpc_in_read_x = 16;
- fpc_in_readln_x = 17;
- fpc_in_concat_x = 18;
- fpc_in_assigned_x = 19;
- fpc_in_str_x_string = 20;
- fpc_in_ofs_x = 21;
- fpc_in_sizeof_x = 22;
- fpc_in_typeof_x = 23;
- fpc_in_val_x = 24;
- fpc_in_reset_x = 25;
- fpc_in_rewrite_x = 26;
- fpc_in_low_x = 27;
- fpc_in_high_x = 28;
- fpc_in_seg_x = 29;
- fpc_in_pred_x = 30;
- fpc_in_succ_x = 31;
- fpc_in_reset_typedfile = 32;
- fpc_in_rewrite_typedfile = 33;
- fpc_in_settextbuf_file_x = 34;
- fpc_in_inc_x = 35;
- fpc_in_dec_x = 36;
- fpc_in_include_x_y = 37;
- fpc_in_exclude_x_y = 38;
- fpc_in_break = 39;
- fpc_in_continue = 40;
- fpc_in_assert_x_y = 41;
- fpc_in_addr_x = 42;
- fpc_in_typeinfo_x = 43;
- fpc_in_setlength_x = 44;
- fpc_in_finalize_x = 45;
- fpc_in_new_x = 46;
- fpc_in_dispose_x = 47;
- fpc_in_exit = 48;
- fpc_in_copy_x = 49;
- fpc_in_initialize_x = 50;
- fpc_in_leave = 51; {macpas}
- fpc_in_cycle = 52; {macpas}
- {$ifdef INTERNCONSTINTF}
- { Internal constant functions }
- fpc_in_const_sqr = 100;
- fpc_in_const_abs = 101;
- fpc_in_const_odd = 102;
- fpc_in_const_ptr = 103;
- fpc_in_const_swap_word = 104;
- fpc_in_const_swap_long = 105;
- fpc_in_lo_qword = 106;
- fpc_in_hi_qword = 107;
- fpc_in_const_swap_qword = 108;
- fpc_in_prefetch_var = 109;
- { FPU functions }
- fpc_in_trunc_real = 120;
- fpc_in_round_real = 121;
- fpc_in_frac_real = 122;
- fpc_in_int_real = 123;
- fpc_in_exp_real = 124;
- fpc_in_cos_real = 125;
- fpc_in_pi_real = 126;
- fpc_in_abs_real = 127;
- fpc_in_sqr_real = 128;
- fpc_in_sqrt_real = 129;
- fpc_in_arctan_real = 130;
- fpc_in_ln_real = 131;
- fpc_in_sin_real = 132;
- {$else}
- { Internal constant functions }
- fpc_in_const_trunc = 100;
- fpc_in_const_round = 101;
- fpc_in_const_frac = 102;
- fpc_in_const_abs = 103;
- fpc_in_const_int = 104;
- fpc_in_const_sqr = 105;
- fpc_in_const_odd = 106;
- fpc_in_const_ptr = 107;
- fpc_in_const_swap_word = 108;
- fpc_in_const_swap_long = 109;
- fpc_in_const_pi = 110;
- fpc_in_const_sqrt = 111;
- fpc_in_const_arctan = 112;
- fpc_in_const_cos = 113;
- fpc_in_const_exp = 114;
- fpc_in_const_ln = 115;
- fpc_in_const_sin = 116;
- fpc_in_lo_qword = 117;
- fpc_in_hi_qword = 118;
- fpc_in_cos_real = 119;
- fpc_in_pi = 121;
- fpc_in_abs_real = 122;
- fpc_in_sqr_real = 123;
- fpc_in_sqrt_real = 124;
- fpc_in_arctan_real = 125;
- fpc_in_ln_real = 126;
- fpc_in_sin_real = 127;
- fpc_in_const_swap_qword = 128;
- fpc_in_prefetch_var = 129;
- {$endif}
- { MMX functions }
- { these contants are used by the mmx unit }
- { MMX }
- fpc_in_mmx_pcmpeqb = 200;
- fpc_in_mmx_pcmpeqw = 201;
- fpc_in_mmx_pcmpeqd = 202;
- fpc_in_mmx_pcmpgtb = 203;
- fpc_in_mmx_pcmpgtw = 204;
- fpc_in_mmx_pcmpgtd = 205;
- { 3DNow }
- { SSE }
- {
- $Log$
- Revision 1.9 2004-11-21 15:35:23 peter
- * float routines all use internproc and compilerproc helpers
- Revision 1.8 2004/11/17 22:19:04 peter
- internconst, internproc and some external declarations moved to interface
- Revision 1.7 2004/07/05 21:59:18 olle
- * updated according to compiler/compinnr.inc
- Revision 1.6 2004/02/02 20:39:27 florian
- + added prefetch(const mem)
- Revision 1.5 2002/11/18 18:33:51 peter
- * Swap(QWord) constant support
- Revision 1.4 2002/09/07 15:07:45 peter
- * old logs removed and tabs fixed
- }
|