paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 18:47:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

* set localalignmin to 4 on x86_64-win64, there is no reason to leave it at 8 (same as linux)

Browse Source 
* adapt tasm23b

git-svn-id: trunk@38554 -
This commit is contained in:
florian 2018-03-17 21:30:49 +00:00
parent efa950a021
commit aa4af19027
2 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/systems/i_win.pas
View File

@ -152,7 +152,7 @@ unit i_win;
constalignmax : 16;
varalignmin : 0;
varalignmax : 16;
localalignmin : 8;
localalignmin : 4;
localalignmax : 16;
recordalignmin : 0;
recordalignmax : 8;

22
tests/test/tasm23b.pp
View File

@ -29,22 +29,22 @@ var
locl: longword;
asm
mov eax, locl { mov еax, [rbp-08] }
mov eax, fs:locl { mov еax, fs:[rbp-08] }
mov eax, [fs:locl] { mov еax, fs:[rbp-08] }
mov eax, [fs:[locl]] { mov еax, fs:[rbp-08] }
mov eax, fs:locl[5] { mov еax, fs:[rbp-03] }
mov eax, fs:5[locl] { mov еax, fs:[rbp-03] }
mov eax, fs:locl { mov еax, fs:[rbp-04] }
mov eax, [fs:locl] { mov еax, fs:[rbp-04] }
mov eax, [fs:[locl]] { mov еax, fs:[rbp-04] }
mov eax, fs:locl[5] { mov еax, fs:[rbp+01] }
mov eax, fs:5[locl] { mov еax, fs:[rbp+01] }
end;
procedure t2_verify; assembler;
var
locl: longword;
asm
mov eax, [rbp-08] { mov еax, locl }
mov eax, fs:[rbp-08] { mov еax, fs:locl }
mov eax, fs:[rbp-08] { mov еax, [fs:locl] }
mov eax, fs:[rbp-08] { mov еax, [fs:[locl]] }
mov eax, fs:[rbp-03] { mov еax, fs:locl[5] }
mov eax, fs:[rbp-03] { mov еax, fs:5[locl] }
mov eax, [rbp-04] { mov еax, locl }
mov eax, fs:[rbp-04] { mov еax, fs:locl }
mov eax, fs:[rbp-04] { mov еax, [fs:locl] }
mov eax, fs:[rbp-04] { mov еax, [fs:[locl]] }
mov eax, fs:[rbp+01] { mov еax, fs:locl[5] }
mov eax, fs:[rbp+01] { mov еax, fs:5[locl] }
end;
{ This version works in all i8086 memory models }