paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-25 19:50:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

* check for top_ref instead of OT_MEMORY in needaddrprefix

Browse Source
This commit is contained in:
peter 2004-03-16 16:19:19 +00:00
parent 4f32f8ca93
commit 38373b90d8
1 changed files with 16 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
compiler/x86/aasmcpu.pas
View File

@ -1291,19 +1291,18 @@ implementation
function taicpu.needaddrprefix(opidx:byte):boolean;
begin
needaddrprefix:=false;
if (OT_MEMORY and (not oper[opidx]^.ot))=0 then
begin
if (
(oper[opidx]^.ref^.index<>NR_NO) and
(getsubreg(oper[opidx]^.ref^.index)<>R_SUBD)
) or
(
(oper[opidx]^.ref^.base<>NR_NO) and
(getsubreg(oper[opidx]^.ref^.base)<>R_SUBD)
) then
needaddrprefix:=true;
end;
result:=(oper[opidx]^.typ=top_ref) and
(oper[opidx]^.ref^.refaddr=addr_no) and
(
(
(oper[opidx]^.ref^.index<>NR_NO) and
(getsubreg(oper[opidx]^.ref^.index)<>R_SUBD)
) or
(
(oper[opidx]^.ref^.base<>NR_NO) and
(getsubreg(oper[opidx]^.ref^.base)<>R_SUBD)
)
);
end;
@ -1969,7 +1968,10 @@ implementation
end.
{
$Log$
Revision 1.54 2004-03-15 08:44:51 michael
Revision 1.55 2004-03-16 16:19:19 peter
* check for top_ref instead of OT_MEMORY in needaddrprefix
Revision 1.54 2004/03/15 08:44:51 michael
+ Fix from peter: fixes crash when inlining assembler code referencing local vars
Revision 1.53 2004/03/04 17:25:38 peter