innr.inc 2.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101
  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. {
  55. $Log$
  56. Revision 1.4 1998-05-01 16:38:44 florian
  57. * handling of private and protected fixed
  58. + change_keywords_to_tp implemented to remove
  59. keywords which aren't supported by tp
  60. * break and continue are now symbols of the system unit
  61. + widestring, longstring and ansistring type released
  62. Revision 1.3 1998/04/14 23:27:03 florian
  63. + exclude/include with constant second parameter added
  64. Revision 1.2 1998/04/08 16:58:02 pierre
  65. * several bugfixes
  66. ADD ADC and AND are also sign extended
  67. nasm output OK (program still crashes at end
  68. and creates wrong assembler files !!)
  69. procsym types sym in tdef removed !!
  70. Revision 1.1.1.1 1998/03/25 11:18:12 root
  71. * Restored version
  72. Revision 1.2 1998/02/24 16:50:03 peter
  73. * stackframe ommiting generated 'ret $-4'
  74. + timer.pp bp7 version
  75. * innr.inc are now the same files
  76. Revision 1.3 1998/01/26 11:59:37 michael
  77. + Added log at the end
  78. revision 1.2
  79. date: 1997/12/01 12:08:04; author: michael; state: Exp; lines: +8 -17
  80. + added copyright reference header.
  81. ----------------------------
  82. revision 1.1
  83. date: 1997/11/27 08:33:46; author: michael; state: Exp;
  84. Initial revision
  85. ----------------------------
  86. revision 1.1.1.1
  87. date: 1997/11/27 08:33:46; author: michael; state: Exp; lines: +0 -0
  88. FPC RTL CVS start
  89. }