From 7b03bac5d6171b3c1c29e38ad81fdc12373647fe Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?K=C3=A1roly=20Balogh?= Date: Sat, 22 May 2021 11:51:22 +0000 Subject: [PATCH] qlunits: remove word alignment test from sysvar test, as there are byte-sized vars, which are not aligned git-svn-id: trunk@49395 - --- packages/qlunits/tests/tsysvars.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/packages/qlunits/tests/tsysvars.pas b/packages/qlunits/tests/tsysvars.pas index cdd1750548a..ceb300a515b 100644 --- a/packages/qlunits/tests/tsysvars.pas +++ b/packages/qlunits/tests/tsysvars.pas @@ -40,7 +40,7 @@ function check_sysvar_offset(const test: offset_test): boolean; begin actual_offset:=pbyte(test.sysvar)-pbyte(@system_vars); writeln(test.name,' at: ',actual_offset,' $',hexstr(actual_offset,3)); - check_sysvar_offset:=(actual_offset = align(actual_offset,2)) and (test.offset = actual_offset); + check_sysvar_offset:=(test.offset = actual_offset); end; function test_sysvar_offsets: boolean;