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

* fix check for register subscription of reference parameter

Browse Source
This commit is contained in:
peter 2003-10-20 19:29:35 +00:00
parent 6ec273a878
commit 10f32e68cd
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/i386/ra386att.pas
View File

@ -1159,7 +1159,8 @@ Begin
Begin
{ Check if there is already a base (mostly ebp,esp) than this is
not allowed,becuase it will give crashing code }
if (opr.ref.base<>NR_NO) then
if ((opr.typ=OPR_REFERENCE) and (opr.ref.base<>NR_NO)) or
((opr.typ=OPR_LOCAL) and (opr.localsym.localloc.loc<>LOC_REGISTER)) then
message(asmr_e_cannot_index_relative_var);
opr.ref.base:=actasmregister;
Consume(AS_REGISTER);
@ -2139,7 +2140,10 @@ finalization
end.
{
$Log$
Revision 1.51 2003-10-16 21:29:24 peter
Revision 1.52 2003-10-20 19:29:35 peter
* fix check for register subscription of reference parameter
Revision 1.51 2003/10/16 21:29:24 peter
+ __HIGH() to retrieve high value
Revision 1.50 2003/10/07 18:21:18 peter