mirror of
				https://gitlab.com/freepascal.org/fpc/source.git
				synced 2025-11-04 08:19:36 +01:00 
			
		
		
		
	* removed notes
This commit is contained in:
		
							parent
							
								
									276a486a28
								
							
						
					
					
						commit
						e60344ccf7
					
				@ -69,13 +69,13 @@ Function CheckSequence(p: Pai; Reg: TRegister; Var Found: Longint; Var RegInfo:
 | 
			
		||||
 is returned}
 | 
			
		||||
Var hp2, hp3{, EndMod}: Pai;
 | 
			
		||||
    PrevNonRemovablePai: Pai;
 | 
			
		||||
    Cnt, OldNrOfMods: Longint;
 | 
			
		||||
    {Cnt,} OldNrOfMods: Longint;
 | 
			
		||||
    OrgRegInfo, HighRegInfo: TRegInfo;
 | 
			
		||||
    HighFound, OrgRegFound: Byte;
 | 
			
		||||
    RegCounter: TRegister;
 | 
			
		||||
    OrgRegResult: Boolean;
 | 
			
		||||
    TmpResult: Boolean;
 | 
			
		||||
    TmpState: Byte;
 | 
			
		||||
    {TmpState: Byte;}
 | 
			
		||||
Begin {CheckSequence}
 | 
			
		||||
  Reg := Reg32(Reg);
 | 
			
		||||
  TmpResult := False;
 | 
			
		||||
@ -1181,7 +1181,10 @@ End.
 | 
			
		||||
 | 
			
		||||
{
 | 
			
		||||
 $Log$
 | 
			
		||||
 Revision 1.58  2000-04-29 16:57:44  jonas
 | 
			
		||||
 Revision 1.59  2000-06-01 11:01:20  peter
 | 
			
		||||
   * removed notes
 | 
			
		||||
 | 
			
		||||
 Revision 1.58  2000/04/29 16:57:44  jonas
 | 
			
		||||
   * fixed incompatibility with range chcking code, -O2 and higher
 | 
			
		||||
     now work correctly together with -Cr
 | 
			
		||||
 | 
			
		||||
@ -1328,4 +1331,4 @@ End.
 | 
			
		||||
 Revision 1.24  1999/08/25 11:59:58  jonas
 | 
			
		||||
   * changed pai386, paippc and paiapha (same for tai*) to paicpu (taicpu)
 | 
			
		||||
 | 
			
		||||
}
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
@ -1343,8 +1343,10 @@ Begin {checks whether the two ops are equal}
 | 
			
		||||
End;
 | 
			
		||||
 | 
			
		||||
Function InstructionsEquivalent(p1, p2: Pai; Var RegInfo: TRegInfo): Boolean;
 | 
			
		||||
{$ifdef csdebug}
 | 
			
		||||
var
 | 
			
		||||
  hp: pai;
 | 
			
		||||
{$endif csdebug}
 | 
			
		||||
Begin {checks whether two Paicpu instructions are equal}
 | 
			
		||||
  If Assigned(p1) And Assigned(p2) And
 | 
			
		||||
     (Pai(p1)^.typ = ait_instruction) And
 | 
			
		||||
@ -2335,7 +2337,10 @@ End.
 | 
			
		||||
 | 
			
		||||
{
 | 
			
		||||
 $Log$
 | 
			
		||||
 Revision 1.87  2000-04-29 16:56:45  jonas
 | 
			
		||||
 Revision 1.88  2000-06-01 11:01:20  peter
 | 
			
		||||
   * removed notes
 | 
			
		||||
 | 
			
		||||
 Revision 1.87  2000/04/29 16:56:45  jonas
 | 
			
		||||
   * destroyreg overwrote some memory if the reg was an FPU register
 | 
			
		||||
 | 
			
		||||
 Revision 1.86  2000/04/10 12:45:56  jonas
 | 
			
		||||
@ -2433,4 +2438,4 @@ End.
 | 
			
		||||
 Revision 1.62  1999/10/07 16:07:35  jonas
 | 
			
		||||
   * small bugfix in ArrayRefsEq
 | 
			
		||||
 | 
			
		||||
}
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
		Loading…
	
		Reference in New Issue
	
	Block a user