innr.inc 2.4 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192
  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. {
  53. $Log$
  54. Revision 1.3 1998-04-14 23:27:03 florian
  55. + exclude/include with constant second parameter added
  56. Revision 1.2 1998/04/08 16:58:02 pierre
  57. * several bugfixes
  58. ADD ADC and AND are also sign extended
  59. nasm output OK (program still crashes at end
  60. and creates wrong assembler files !!)
  61. procsym types sym in tdef removed !!
  62. Revision 1.1.1.1 1998/03/25 11:18:12 root
  63. * Restored version
  64. Revision 1.2 1998/02/24 16:50:03 peter
  65. * stackframe ommiting generated 'ret $-4'
  66. + timer.pp bp7 version
  67. * innr.inc are now the same files
  68. Revision 1.3 1998/01/26 11:59:37 michael
  69. + Added log at the end
  70. revision 1.2
  71. date: 1997/12/01 12:08:04; author: michael; state: Exp; lines: +8 -17
  72. + added copyright reference header.
  73. ----------------------------
  74. revision 1.1
  75. date: 1997/11/27 08:33:46; author: michael; state: Exp;
  76. Initial revision
  77. ----------------------------
  78. revision 1.1.1.1
  79. date: 1997/11/27 08:33:46; author: michael; state: Exp; lines: +0 -0
  80. FPC RTL CVS start
  81. }