mirror of
				https://gitlab.com/freepascal.org/fpc/source.git
				synced 2025-11-04 07:43:04 +01:00 
			
		
		
		
	* updated to show better the problem
This commit is contained in:
		
							parent
							
								
									d898286434
								
							
						
					
					
						commit
						71224455b8
					
				@ -2,16 +2,16 @@ unit test;
 | 
			
		||||
 | 
			
		||||
  interface
 | 
			
		||||
 | 
			
		||||
    procedure x;
 | 
			
		||||
    procedure x(l : longint);
 | 
			
		||||
 | 
			
		||||
  implementation
 | 
			
		||||
 | 
			
		||||
    procedure crash;
 | 
			
		||||
 | 
			
		||||
      begin
 | 
			
		||||
         x; { called with pascal calling conventions }
 | 
			
		||||
         x(1234); { called with pascal calling conventions }
 | 
			
		||||
      end;
 | 
			
		||||
 | 
			
		||||
   procedure x;external;cdecl;
 | 
			
		||||
   procedure x(l : longint);external;cdecl;
 | 
			
		||||
 | 
			
		||||
end.
 | 
			
		||||
 | 
			
		||||
		Loading…
	
		Reference in New Issue
	
	Block a user