* Uses SysUtils to make executable bigger. Otherwise string pointers for FindResource can be less than $10000. They are treated as IDs in such case and the test will fail. · 7da7908441 - Gogs

* Uses SysUtils to make executable bigger. Otherwise string pointers for FindResource can be less than $10000. They are treated as IDs in such case and the test will fail.

git-svn-id: branches/targetandroid@23433 -

yury 12 years ago

parent

862b608eb8

commit

7da7908441

1 changed files with 2 additions and 0 deletions

Split View Show Diff Stats

						
							+ 2
							
							- 0
						
tests/test/units/system/tres.pp
							 
								View File
							
				@@ -4,6 +4,8 @@
			
				 {$mode objfpc}
			
				+uses sysutils;
			
				+
			
				 {$R tres1.res}
			
				 procedure Fail(const Msg: string);