mirror of
				https://gitlab.com/freepascal.org/fpc/source.git
				synced 2025-10-31 04:11:35 +01:00 
			
		
		
		
	* fixed
This commit is contained in:
		
							parent
							
								
									7c067cef8a
								
							
						
					
					
						commit
						843366e01d
					
				| @ -1,3 +1,5 @@ | |||||||
|  | { %KNOWN } | ||||||
|  | 
 | ||||||
| { Old file: tbs0243.pp } | { Old file: tbs0243.pp } | ||||||
| { Arguments of functions are computed from right to left this } | { Arguments of functions are computed from right to left this } | ||||||
| 
 | 
 | ||||||
|  | |||||||
| @ -1,3 +1,5 @@ | |||||||
|  | { %CPU=i386} | ||||||
|  | 
 | ||||||
| { Old file: tbs0313.pp } | { Old file: tbs0313.pp } | ||||||
| {  } | {  } | ||||||
| 
 | 
 | ||||||
|  | |||||||
| @ -1,13 +1,15 @@ | |||||||
|  | {$mode objfpc} | ||||||
|  | 
 | ||||||
| uses | uses | ||||||
|    sysutils; |    sysutils; | ||||||
| 
 | 
 | ||||||
| var | var | ||||||
|    s : tintset; |    s : tintegerset; | ||||||
| 
 | 
 | ||||||
| begin | begin | ||||||
|    if sizeof(s)<>sizeof(integer) then |    if sizeof(s)<>sizeof(integer) then | ||||||
|      begin |      begin | ||||||
|         writeln('Wrong size of Sysutils.TIntegerSet'); |         writeln('Wrong size of Sysutils.TIntegerSet (',sizeof(s),')'); | ||||||
|         halt(1); |         halt(1); | ||||||
|      end; |      end; | ||||||
| end. | end. | ||||||
|  | |||||||
| @ -1,3 +1,4 @@ | |||||||
|  | { %CPU=i386 } | ||||||
| {$asmmode intel} | {$asmmode intel} | ||||||
| 
 | 
 | ||||||
| var | var | ||||||
|  | |||||||
		Loading…
	
		Reference in New Issue
	
	Block a user
	 peter
						peter