paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 21:09:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Moved toperand type back =(

Browse Source
This commit is contained in:
michael 1999-08-02 21:01:41 +00:00
parent 19b97ee4a4
commit 4f74c54c09
2 changed files with 26 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/aasm.pas
View File

@ -28,18 +28,6 @@ unit aasm;
globtype,systems,cobjects,files,globals; globtype,systems,cobjects,files,globals;
type type
{ Types of operand }
toptype=(top_none,top_reg,top_ref,top_const,top_symbol);
toper=record
ot : longint;
case typ : toptype of
top_none : ();
top_reg : (reg:tregister);
top_ref : (ref:preference);
top_const : (val:longint);
top_symbol : (sym:pasmsymbol;symofs:longint);
end;
tait = ( tait = (
ait_none, ait_none,
@ -978,7 +966,10 @@ uses
end. end.
{ {
$Log$ $Log$
Revision 1.56 1999-08-02 20:45:47 michael Revision 1.57 1999-08-02 21:01:41 michael
* Moved toperand type back =(
Revision 1.56 1999/08/02 20:45:47 michael
* Moved toperand type to aasm * Moved toperand type to aasm
Revision 1.55 1999/08/01 23:55:55 michael Revision 1.55 1999/08/01 23:55:55 michael

23
compiler/i386base.pas
View File

@ -464,6 +464,24 @@ const
{$endif} {$endif}
{*****************************************************************************
Operands
*****************************************************************************}
{ Types of operand }
toptype=(top_none,top_reg,top_ref,top_const,top_symbol);
toper=record
ot : longint;
case typ : toptype of
top_none : ();
top_reg : (reg:tregister);
top_ref : (ref:preference);
top_const : (val:longint);
top_symbol : (sym:pasmsymbol;symofs:longint);
end;
{***************************************************************************** {*****************************************************************************
Conditions Conditions
*****************************************************************************} *****************************************************************************}
@ -989,7 +1007,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.8 1999-08-02 20:45:49 michael Revision 1.9 1999-08-02 21:01:45 michael
* Moved toperand type back =(
Revision 1.8 1999/08/02 20:45:49 michael
* Moved toperand type to aasm * Moved toperand type to aasm
Revision 1.7 1999/08/02 17:17:09 florian Revision 1.7 1999/08/02 17:17:09 florian