mirror of
				https://gitlab.com/freepascal.org/fpc/source.git
				synced 2025-11-04 08:19:36 +01:00 
			
		
		
		
	* correctly check left.location instead of left.expectloc when generating
code for not nodes, resolves #30208 git-svn-id: trunk@33906 -
This commit is contained in:
		
							parent
							
								
									c026dab430
								
							
						
					
					
						commit
						49f63d67b2
					
				
							
								
								
									
										1
									
								
								.gitattributes
									
									
									
									
										vendored
									
									
								
							
							
						
						
									
										1
									
								
								.gitattributes
									
									
									
									
										vendored
									
									
								
							@ -15115,6 +15115,7 @@ tests/webtbs/tw30166.pp svneol=native#text/plain
 | 
			
		||||
tests/webtbs/tw30179.pp svneol=native#text/pascal
 | 
			
		||||
tests/webtbs/tw30202.pp svneol=native#text/pascal
 | 
			
		||||
tests/webtbs/tw30203.pp svneol=native#text/pascal
 | 
			
		||||
tests/webtbs/tw30208.pp svneol=native#text/pascal
 | 
			
		||||
tests/webtbs/tw3023.pp svneol=native#text/plain
 | 
			
		||||
tests/webtbs/tw3028.pp svneol=native#text/plain
 | 
			
		||||
tests/webtbs/tw3038.pp svneol=native#text/plain
 | 
			
		||||
 | 
			
		||||
@ -242,7 +242,7 @@ interface
 | 
			
		||||
           { if it is a register variable, so we've to do      }
 | 
			
		||||
           { this before the case statement                    }
 | 
			
		||||
           secondpass(left);
 | 
			
		||||
           case left.expectloc of
 | 
			
		||||
           case left.location.loc of
 | 
			
		||||
             LOC_FLAGS :
 | 
			
		||||
               begin
 | 
			
		||||
                 location_reset(location,LOC_FLAGS,OS_NO);
 | 
			
		||||
 | 
			
		||||
							
								
								
									
										11
									
								
								tests/webtbs/tw30208.pp
									
									
									
									
									
										Normal file
									
								
							
							
						
						
									
										11
									
								
								tests/webtbs/tw30208.pp
									
									
									
									
									
										Normal file
									
								
							@ -0,0 +1,11 @@
 | 
			
		||||
var R: bitpacked record
 | 
			
		||||
    A, B: boolean;
 | 
			
		||||
    end;
 | 
			
		||||
begin
 | 
			
		||||
    R.A := true;
 | 
			
		||||
    R.B := false;    
 | 
			
		||||
    if not R.B then
 | 
			
		||||
      writeln('ok')
 | 
			
		||||
    else
 | 
			
		||||
      halt(1);
 | 
			
		||||
end.
 | 
			
		||||
		Loading…
	
		Reference in New Issue
	
	Block a user