mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 22:28:01 +02:00
82 lines
2.1 KiB
PHP
82 lines
2.1 KiB
PHP
{
|
|
$Id$
|
|
This file is part of the Free Pascal run time library and compiler.
|
|
Copyright (c) 1993,98 by the Free Pascal development team
|
|
|
|
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
|
|
in_lo_word = 1;
|
|
in_hi_word = 2;
|
|
in_lo_long = 3;
|
|
in_hi_long = 4;
|
|
{ to be able to compile with ord intern or not }
|
|
in_ord_char = 5;
|
|
in_ord_x = 5;
|
|
in_length_string = 6;
|
|
in_chr_byte = 7;
|
|
in_inc_byte = 8;
|
|
in_inc_word = 9;
|
|
in_inc_dword = 10;
|
|
in_dec_byte = 11;
|
|
in_dec_word = 12;
|
|
in_dec_dword = 13;
|
|
in_write_x = 14;
|
|
in_writeln_x = 15;
|
|
in_read_x = 16;
|
|
in_readln_x = 17;
|
|
in_concat_x = 18;
|
|
in_assigned_x = 19;
|
|
in_str_x_string = 20;
|
|
in_ofs_x = 21;
|
|
in_sizeof_x = 22;
|
|
in_typeof_x = 23;
|
|
in_val_x = 24;
|
|
in_reset_x = 25;
|
|
in_rewrite_x = 26;
|
|
in_low_x = 27;
|
|
in_high_x = 28;
|
|
in_seg_x = 29;
|
|
in_pred_x = 30;
|
|
in_succ_x = 31;
|
|
in_reset_typedfile = 32;
|
|
in_rewrite_typedfile = 33;
|
|
in_settextbuf_file_x = 34;
|
|
in_inc_x = 35;
|
|
in_dec_x = 36;
|
|
|
|
{
|
|
$Log$
|
|
Revision 1.1 1998-03-25 11:18:12 root
|
|
Initial revision
|
|
|
|
Revision 1.2 1998/02/24 16:50:03 peter
|
|
* stackframe ommiting generated 'ret $-4'
|
|
+ timer.pp bp7 version
|
|
* innr.inc are now the same files
|
|
|
|
Revision 1.3 1998/01/26 11:59:37 michael
|
|
+ Added log at the end
|
|
|
|
revision 1.2
|
|
date: 1997/12/01 12:08:04; author: michael; state: Exp; lines: +8 -17
|
|
+ added copyright reference header.
|
|
----------------------------
|
|
revision 1.1
|
|
date: 1997/11/27 08:33:46; author: michael; state: Exp;
|
|
Initial revision
|
|
----------------------------
|
|
revision 1.1.1.1
|
|
date: 1997/11/27 08:33:46; author: michael; state: Exp; lines: +0 -0
|
|
FPC RTL CVS start
|
|
=============================================================================
|
|
}
|
|
|