mirror of
				https://gitlab.com/freepascal.org/fpc/source.git
				synced 2025-11-04 08:19:36 +01:00 
			
		
		
		
	* fixed paraloc def when changing the size to OS_32
git-svn-id: trunk@40566 -
This commit is contained in:
		
							parent
							
								
									97bc58d248
								
							
						
					
					
						commit
						6e453a1477
					
				@ -556,7 +556,10 @@ unit cpupara;
 | 
			
		||||
                    (side=callerside) and
 | 
			
		||||
                    is_ordinal(paradef) and
 | 
			
		||||
                    (paradef.size<4) then
 | 
			
		||||
                   paraloc^.size:=OS_32;
 | 
			
		||||
                   begin
 | 
			
		||||
                     paraloc^.size:=OS_32;
 | 
			
		||||
                     paraloc^.def:=u32inttype;
 | 
			
		||||
                   end;
 | 
			
		||||
 | 
			
		||||
                 { in case it's a composite, "The argument is passed as though
 | 
			
		||||
                   it had been loaded into the registers from a double-word-
 | 
			
		||||
 | 
			
		||||
		Loading…
	
		Reference in New Issue
	
	Block a user