mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-19 00:49:09 +02:00
- Removed some stuff that is not used anywhere.
git-svn-id: trunk@27595 -
This commit is contained in:
parent
f105f3f667
commit
af52c874d0
@ -206,16 +206,6 @@ uses
|
|||||||
'T','F','DNZ','DNZT','DNZF','DZ','DZT','DZF');
|
'T','F','DNZ','DNZT','DNZF','DZ','DZT','DZF');
|
||||||
|
|
||||||
|
|
||||||
const
|
|
||||||
CondAsmOps=3;
|
|
||||||
CondAsmOp:array[0..CondAsmOps-1] of TasmOp=(
|
|
||||||
A_BC, A_TW, A_TWI
|
|
||||||
);
|
|
||||||
CondAsmOpStr:array[0..CondAsmOps-1] of string[7]=(
|
|
||||||
'BC','TW','TWI'
|
|
||||||
);
|
|
||||||
|
|
||||||
|
|
||||||
{*****************************************************************************
|
{*****************************************************************************
|
||||||
Flags
|
Flags
|
||||||
*****************************************************************************}
|
*****************************************************************************}
|
||||||
|
@ -224,16 +224,6 @@ const
|
|||||||
'LT', 'LE', 'EQ', 'GE', 'GT', 'NL', 'NE', 'NG', 'SO', 'NS', 'UN', 'NU',
|
'LT', 'LE', 'EQ', 'GE', 'GT', 'NL', 'NE', 'NG', 'SO', 'NS', 'UN', 'NU',
|
||||||
'T', 'F', 'DNZ', 'DNZT', 'DNZF', 'DZ', 'DZT', 'DZF');
|
'T', 'F', 'DNZ', 'DNZT', 'DNZF', 'DZ', 'DZT', 'DZF');
|
||||||
|
|
||||||
const
|
|
||||||
CondAsmOps = 3;
|
|
||||||
CondAsmOp: array[0..CondAsmOps - 1] of TasmOp = (
|
|
||||||
A_BC, A_TW, A_TWI
|
|
||||||
);
|
|
||||||
CondAsmOpStr:array[0..CondAsmOps-1] of string[7]=(
|
|
||||||
'B','TW','TWI'
|
|
||||||
);
|
|
||||||
|
|
||||||
|
|
||||||
{*****************************************************************************
|
{*****************************************************************************
|
||||||
Flags
|
Flags
|
||||||
*****************************************************************************}
|
*****************************************************************************}
|
||||||
|
Loading…
Reference in New Issue
Block a user