mirror of
				https://gitlab.com/freepascal.org/lazarus/lazarus.git
				synced 2025-11-04 15:49:32 +01:00 
			
		
		
		
	fixed 1.9.9 compilation (rtlconst -> rtlconsts)
git-svn-id: trunk@6927 -
This commit is contained in:
		
							parent
							
								
									9e5168c0c5
								
							
						
					
					
						commit
						1c4a8462c7
					
				@ -205,7 +205,12 @@ type
 | 
			
		||||
 | 
			
		||||
implementation
 | 
			
		||||
 | 
			
		||||
uses SysUtils, AppUtils, RTLConst;
 | 
			
		||||
uses SysUtils, AppUtils,
 | 
			
		||||
{$IFDEF VER1_9_8}
 | 
			
		||||
  RTLConst;
 | 
			
		||||
{$ELSE}
 | 
			
		||||
  RTLConsts;
 | 
			
		||||
{$ENDIF}
 | 
			
		||||
 | 
			
		||||
const
 | 
			
		||||
{ The following strings should not be localized }
 | 
			
		||||
 | 
			
		||||
@ -145,7 +145,11 @@ Procedure Register;
 | 
			
		||||
implementation
 | 
			
		||||
 | 
			
		||||
uses
 | 
			
		||||
{$IFDEF VER1_9_8}
 | 
			
		||||
  RTLConst;
 | 
			
		||||
{$ELSE}
 | 
			
		||||
  RTLConsts;
 | 
			
		||||
{$ENDIF}
 | 
			
		||||
 | 
			
		||||
Procedure Register;
 | 
			
		||||
begin
 | 
			
		||||
 | 
			
		||||
@ -25,7 +25,8 @@ interface
 | 
			
		||||
 | 
			
		||||
{$IFNDEF VER1_0}
 | 
			
		||||
uses
 | 
			
		||||
  Classes, SysUtils, RTLConst
 | 
			
		||||
  Classes, SysUtils,
 | 
			
		||||
  {$IFDEF VER1_9_8}RTLConst{$ELSE}RTLConsts{$ENDIF}
 | 
			
		||||
  {$IFDEF EnableSessionProps}, RTTIUtils{$ENDIF};
 | 
			
		||||
 | 
			
		||||
Type
 | 
			
		||||
 | 
			
		||||
		Loading…
	
		Reference in New Issue
	
	Block a user