paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-22 04:51:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

qlunits: remove word alignment test from sysvar test, as there are byte-sized vars, which are not aligned

Browse Source 
git-svn-id: trunk@49395 -
This commit is contained in:
Károly Balogh 2021-05-22 11:51:22 +00:00
parent 94693e5f70
commit 7b03bac5d6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/qlunits/tests/tsysvars.pas
View File

@ -40,7 +40,7 @@ var
begin begin
actual_offset:=pbyte(test.sysvar)-pbyte(@system_vars); actual_offset:=pbyte(test.sysvar)-pbyte(@system_vars);
writeln(test.name,' at: ',actual_offset,' $',hexstr(actual_offset,3)); 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; end;
function test_sysvar_offsets: boolean; function test_sysvar_offsets: boolean;