innr.inc 2.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106
  1. {
  2. $Id$
  3. This file is part of the Free Pascal run time library and compiler.
  4. Copyright (c) 1993,98 by the Free Pascal development team
  5. See the file COPYING.FPC, included in this distribution,
  6. for details about the copyright.
  7. This program is distributed in the hope that it will be useful,
  8. but WITHOUT ANY WARRANTY; without even the implied warranty of
  9. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  10. **********************************************************************}
  11. const
  12. in_lo_word = 1;
  13. in_hi_word = 2;
  14. in_lo_long = 3;
  15. in_hi_long = 4;
  16. { to be able to compile with ord intern or not }
  17. in_ord_char = 5;
  18. in_ord_x = 5;
  19. in_length_string = 6;
  20. in_chr_byte = 7;
  21. in_inc_byte = 8;
  22. in_inc_word = 9;
  23. in_inc_dword = 10;
  24. in_dec_byte = 11;
  25. in_dec_word = 12;
  26. in_dec_dword = 13;
  27. in_write_x = 14;
  28. in_writeln_x = 15;
  29. in_read_x = 16;
  30. in_readln_x = 17;
  31. in_concat_x = 18;
  32. in_assigned_x = 19;
  33. in_str_x_string = 20;
  34. in_ofs_x = 21;
  35. in_sizeof_x = 22;
  36. in_typeof_x = 23;
  37. in_val_x = 24;
  38. in_reset_x = 25;
  39. in_rewrite_x = 26;
  40. in_low_x = 27;
  41. in_high_x = 28;
  42. in_seg_x = 29;
  43. in_pred_x = 30;
  44. in_succ_x = 31;
  45. in_reset_typedfile = 32;
  46. in_rewrite_typedfile = 33;
  47. in_settextbuf_file_x = 34;
  48. in_inc_x = 35;
  49. in_dec_x = 36;
  50. in_include_x_y = 37;
  51. in_exclude_x_y = 38;
  52. in_break = 39;
  53. in_continue = 40;
  54. in_assert_x = 41;
  55. {
  56. $Log$
  57. Revision 1.5 1998-07-24 22:16:57 florian
  58. * internal error 10 together with array access fixed. I hope
  59. that's the final fix.
  60. Revision 1.4 1998/05/01 16:38:44 florian
  61. * handling of private and protected fixed
  62. + change_keywords_to_tp implemented to remove
  63. keywords which aren't supported by tp
  64. * break and continue are now symbols of the system unit
  65. + widestring, longstring and ansistring type released
  66. Revision 1.3 1998/04/14 23:27:03 florian
  67. + exclude/include with constant second parameter added
  68. Revision 1.2 1998/04/08 16:58:02 pierre
  69. * several bugfixes
  70. ADD ADC and AND are also sign extended
  71. nasm output OK (program still crashes at end
  72. and creates wrong assembler files !!)
  73. procsym types sym in tdef removed !!
  74. Revision 1.1.1.1 1998/03/25 11:18:12 root
  75. * Restored version
  76. Revision 1.2 1998/02/24 16:50:03 peter
  77. * stackframe ommiting generated 'ret $-4'
  78. + timer.pp bp7 version
  79. * innr.inc are now the same files
  80. Revision 1.3 1998/01/26 11:59:37 michael
  81. + Added log at the end
  82. revision 1.2
  83. date: 1997/12/01 12:08:04; author: michael; state: Exp; lines: +8 -17
  84. + added copyright reference header.
  85. ----------------------------
  86. revision 1.1
  87. date: 1997/11/27 08:33:46; author: michael; state: Exp;
  88. Initial revision
  89. ----------------------------
  90. revision 1.1.1.1
  91. date: 1997/11/27 08:33:46; author: michael; state: Exp; lines: +0 -0
  92. FPC RTL CVS start
  93. }