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

* better handling of CREGISTER in subscript nodes

Browse Source
This commit is contained in:
florian 2003-06-02 22:35:45 +00:00
parent ae80816ac2
commit bfd89a3fd3
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ncgmem.pas
View File

@ -279,6 +279,7 @@ implementation
begin begin
location_reset(location,LOC_REFERENCE,def_cgsize(resulttype.def)); location_reset(location,LOC_REFERENCE,def_cgsize(resulttype.def));
case left.location.loc of case left.location.loc of
LOC_CREGISTER,
LOC_REGISTER: LOC_REGISTER:
begin begin
if not rg.isaddressregister(left.location.register) then if not rg.isaddressregister(left.location.register) then
@ -291,7 +292,6 @@ implementation
else else
location.reference.base := left.location.register; location.reference.base := left.location.register;
end; end;
LOC_CREGISTER,
LOC_CREFERENCE, LOC_CREFERENCE,
LOC_REFERENCE: LOC_REFERENCE:
begin begin
@ -824,7 +824,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.56 2003-06-01 21:38:06 peter Revision 1.57 2003-06-02 22:35:45 florian
* better handling of CREGISTER in subscript nodes
Revision 1.56 2003/06/01 21:38:06 peter
* getregisterfpu size parameter added * getregisterfpu size parameter added
* op_const_reg size parameter added * op_const_reg size parameter added
* sparc updates * sparc updates