paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 23:24:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* support [eax].constant as reference

Browse Source
This commit is contained in:
peter 2002-09-16 19:07:00 +00:00
parent 76eb5b4a1f
commit e15a0ac67c
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/i386/ra386int.pas
View File

@ -1365,7 +1365,10 @@ var
{ now the next one must the be the dot }
if actasmtoken<>AS_DOT then
begin
Message(asmr_e_building_record_offset);
{ if it is not a dot then we expect a constant
value as offset }
if not SearchIConstant(expr,l) then
Message(asmr_e_building_record_offset);
expr:='';
end;
end
@ -1959,7 +1962,10 @@ finalization
end.
{
$Log$
Revision 1.34 2002-09-03 16:26:28 daniel
Revision 1.35 2002-09-16 19:07:00 peter
* support [eax].constant as reference
Revision 1.34 2002/09/03 16:26:28 daniel
* Make Tprocdef.defs protected
Revision 1.33 2002/08/17 09:23:47 florian