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

* fix crash

Browse Source 
* allow parameter subscription for register parameters
This commit is contained in:
peter 2003-10-07 18:21:18 +00:00
parent 9365837ecd
commit 3e6f799919
2 changed files with 16 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/i386/ra386att.pas
View File

@ -1318,7 +1318,8 @@ var
will generate buggy code. Allow it only for explicit typecasting }
if hasdot and
(not hastype) and
(tvarsym(pointer(opr.ref.symbol)).owner.symtabletype=parasymtable) then
(tvarsym(opr.localsym).owner.symtabletype=parasymtable) and
(current_procinfo.procdef.proccalloption<>pocall_register) then
Message(asmr_e_cannot_access_field_directly_for_parameters);
inc(opr.localsymofs,l)
end;
@ -2129,7 +2130,11 @@ finalization
end.
{
$Log$
Revision 1.49 2003-10-01 20:34:49 peter
Revision 1.50 2003-10-07 18:21:18 peter
* fix crash
* allow parameter subscription for register parameters
Revision 1.49 2003/10/01 20:34:49 peter
* procinfo unit contains tprocinfo
* cginfo renamed to cgbase
* moved cgmessage to verbose

12
compiler/i386/ra386int.pas
View File

@ -1363,9 +1363,11 @@ var
OPR_LOCAL :
begin
{ don't allow direct access to fields of parameters, becuase that
will generate buggy code. Allow it only for explicit typecasting }
will generate buggy code. Allow it only for explicit typecasting
and when the parameter is in a register (delphi compatible) }
if (not hastype) and
(tvarsym(pointer(opr.ref.symbol)).owner.symtabletype=parasymtable) then
(tvarsym(opr.localsym).owner.symtabletype=parasymtable) and
(current_procinfo.procdef.proccalloption<>pocall_register) then
Message(asmr_e_cannot_access_field_directly_for_parameters);
inc(opr.localsymofs,l)
end;
@ -1930,7 +1932,11 @@ finalization
end.
{
$Log$
Revision 1.54 2003-10-02 21:17:38 peter
Revision 1.55 2003-10-07 18:21:18 peter
* fix crash
* allow parameter subscription for register parameters
Revision 1.54 2003/10/02 21:17:38 peter
* fix operand order when a prefix opcode is supplied
Revision 1.53 2003/10/01 20:34:49 peter