mirror of
				https://gitlab.com/freepascal.org/fpc/source.git
				synced 2025-11-04 02:19:22 +01:00 
			
		
		
		
	* Recommitted.
This commit is contained in:
		
							parent
							
								
									c27447d620
								
							
						
					
					
						commit
						461661c69c
					
				@ -374,8 +374,9 @@ begin
 | 
				
			|||||||
      start:=getrealtime-start;
 | 
					      start:=getrealtime-start;
 | 
				
			||||||
      Message2(general_i_abslines_compiled,tostr(status.compiledlines),tostr(trunc(start))+'.'+tostr(trunc(frac(start)*10)));
 | 
					      Message2(general_i_abslines_compiled,tostr(status.compiledlines),tostr(trunc(start))+'.'+tostr(trunc(frac(start)*10)));
 | 
				
			||||||
    end;
 | 
					    end;
 | 
				
			||||||
 | 
					{***Obsolete
 | 
				
			||||||
   clearnodes;
 | 
					   clearnodes;
 | 
				
			||||||
 | 
					***}
 | 
				
			||||||
   done_symtable;
 | 
					   done_symtable;
 | 
				
			||||||
{$ifdef TP}
 | 
					{$ifdef TP}
 | 
				
			||||||
   Comment(V_Info,'Memory: '+tostr(MemAvail)+' Bytes Free');
 | 
					   Comment(V_Info,'Memory: '+tostr(MemAvail)+' Bytes Free');
 | 
				
			||||||
@ -391,7 +392,10 @@ begin
 | 
				
			|||||||
end.
 | 
					end.
 | 
				
			||||||
{
 | 
					{
 | 
				
			||||||
  $Log$
 | 
					  $Log$
 | 
				
			||||||
  Revision 1.16  1998-06-17 14:10:17  peter
 | 
					  Revision 1.17  1998-06-23 08:59:22  daniel
 | 
				
			||||||
 | 
					  * Recommitted.
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  Revision 1.16  1998/06/17 14:10:17  peter
 | 
				
			||||||
    * small os2 fixes
 | 
					    * small os2 fixes
 | 
				
			||||||
    * fixed interdependent units with newppu (remake3 under linux works now)
 | 
					    * fixed interdependent units with newppu (remake3 under linux works now)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
				
			|||||||
		Loading…
	
		Reference in New Issue
	
	Block a user