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

* allow also 8 byte string constants in assembler, resolves #28640

Browse Source 
git-svn-id: trunk@49066 -
This commit is contained in:
florian 2021-03-27 17:13:14 +00:00
parent 308aee42a0
commit 6218254e53
5 changed files with 41 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -18146,6 +18146,8 @@ tests/webtbs/tw2853e.pp svneol=native#text/plain
tests/webtbs/tw2859.pp svneol=native#text/plain
tests/webtbs/tw28593.pp svneol=native#text/plain
tests/webtbs/tw28632.pp -text svneol=native#text/plain
tests/webtbs/tw28640.pp svneol=native#text/pascal
tests/webtbs/tw28640a.pp svneol=native#text/pascal
tests/webtbs/tw28641.pp svneol=native#text/plain
tests/webtbs/tw2865.pp svneol=native#text/plain
tests/webtbs/tw28650.pp svneol=native#text/pascal

5
compiler/raatt.pas
View File

@ -1594,6 +1594,11 @@ unit raatt;
4 :
l:=ord(actasmpattern[4]) + ord(actasmpattern[3]) shl 8 +
Ord(actasmpattern[2]) shl 16 + ord(actasmpattern[1]) shl 24;
8 :
begin
move(actasmpattern[1],l,8);
l:=SwapEndian(l);
end;
else
Message1(asmr_e_invalid_string_as_opcode_operand,actasmpattern);
end;

5
compiler/x86/rax86int.pas
View File

@ -1494,6 +1494,11 @@ Unit Rax86int;
4 :
l:=ord(actasmpattern[4]) + ord(actasmpattern[3]) shl 8 +
Ord(actasmpattern[2]) shl 16 + ord(actasmpattern[1]) shl 24;
8 :
begin
move(actasmpattern[1],l,8);
l:=SwapEndian(l);
end;
else
Message1(asmr_e_invalid_string_as_opcode_operand,actasmpattern);
end;

15
tests/webtbs/tw28640.pp Normal file
View File

@ -0,0 +1,15 @@
{ %cpu=x86_64 }
function test : int64;assembler;
{$ASMMODE INTEL}
asm
MOV RAX,'=TXEHTAP' // FAIL: LONG STRING "PATHEXT="
end;
var
s : string[8];
l : int64 absolute s[1];
begin
l:=test;
s[0]:=#8;
if s<>'PATHEXT=' then
halt(1);
end.

14
tests/webtbs/tw28640a.pp Normal file
View File

@ -0,0 +1,14 @@
{ %cpu=x86_64 }
function test : int64;assembler;
asm
MOV $'=TXEHTAP',%RAX // FAIL: LONG STRING "PATHEXT="
end;
var
s : string[8];
l : int64 absolute s[1];
begin
l:=test;
s[0]:=#8;
if s<>'PATHEXT=' then
halt(1);
end.