mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-14 21:33:17 +02:00
* Changed no longer correct fillchar of reference into location_reset
This commit is contained in:
parent
cdcba3d975
commit
0815444fb5
@ -47,6 +47,8 @@ Implementation
|
|||||||
{ pass 1 }
|
{ pass 1 }
|
||||||
nbas,
|
nbas,
|
||||||
{ parser }
|
{ parser }
|
||||||
|
rgobj,
|
||||||
|
{ register allocator }
|
||||||
scanner,
|
scanner,
|
||||||
rautils,ra386,ag386int,
|
rautils,ra386,ag386int,
|
||||||
{ codegen }
|
{ codegen }
|
||||||
@ -1553,7 +1555,7 @@ Begin
|
|||||||
begin
|
begin
|
||||||
l:=opr.val;
|
l:=opr.val;
|
||||||
opr.typ:=OPR_REFERENCE;
|
opr.typ:=OPR_REFERENCE;
|
||||||
Fillchar(opr.ref,sizeof(treference),0);
|
reference_reset(opr.ref);
|
||||||
opr.Ref.Offset:=l;
|
opr.Ref.Offset:=l;
|
||||||
end;
|
end;
|
||||||
BuildReference;
|
BuildReference;
|
||||||
@ -1980,7 +1982,10 @@ finalization
|
|||||||
end.
|
end.
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.40 2003-02-19 22:00:16 daniel
|
Revision 1.41 2003-02-26 22:57:44 daniel
|
||||||
|
* Changed no longer correct fillchar of reference into location_reset
|
||||||
|
|
||||||
|
Revision 1.40 2003/02/19 22:00:16 daniel
|
||||||
* Code generator converted to new register notation
|
* Code generator converted to new register notation
|
||||||
- Horribily outdated todo.txt removed
|
- Horribily outdated todo.txt removed
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user