mirror of
				https://gitlab.com/freepascal.org/fpc/source.git
				synced 2025-11-04 09:02:22 +01:00 
			
		
		
		
	* fix crash with -CR
This commit is contained in:
		
							parent
							
								
									73bc40037f
								
							
						
					
					
						commit
						f4ec016665
					
				@ -1529,6 +1529,7 @@ implementation
 | 
			
		||||
                             hp:=casnode.create(left,cloadvmtaddrnode.create(ctypenode.create(resulttype)));
 | 
			
		||||
                             left:=nil;
 | 
			
		||||
                             result:=hp;
 | 
			
		||||
                             exit;
 | 
			
		||||
                           end;
 | 
			
		||||
                       end
 | 
			
		||||
 | 
			
		||||
@ -2578,7 +2579,10 @@ begin
 | 
			
		||||
end.
 | 
			
		||||
{
 | 
			
		||||
  $Log$
 | 
			
		||||
  Revision 1.173  2005-01-07 21:14:21  florian
 | 
			
		||||
  Revision 1.174  2005-01-09 15:04:36  peter
 | 
			
		||||
    * fix crash with -CR
 | 
			
		||||
 | 
			
		||||
  Revision 1.173  2005/01/07 21:14:21  florian
 | 
			
		||||
    + compiler side of variant<->interface implemented
 | 
			
		||||
 | 
			
		||||
  Revision 1.172  2005/01/06 13:40:41  florian
 | 
			
		||||
 | 
			
		||||
		Loading…
	
		Reference in New Issue
	
	Block a user