mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-28 22:40:30 +02:00
* Fixed ungetreference
This commit is contained in:
parent
eee67f89ea
commit
5912bc972c
@ -654,8 +654,8 @@ unit rgobj;
|
||||
procedure trgobj.ungetreference(list : taasmoutput; const ref : treference);
|
||||
|
||||
begin
|
||||
ungetregister(list,ref.base);
|
||||
ungetregister(list,ref.index);
|
||||
ungetregisterint(list,ref.base);
|
||||
ungetregisterint(list,ref.index);
|
||||
end;
|
||||
|
||||
|
||||
@ -1208,7 +1208,10 @@ end.
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.24 2003-02-19 22:39:56 daniel
|
||||
Revision 1.25 2003-02-26 20:50:45 daniel
|
||||
* Fixed ungetreference
|
||||
|
||||
Revision 1.24 2003/02/19 22:39:56 daniel
|
||||
* Fixed a few issues
|
||||
|
||||
Revision 1.23 2003/02/19 22:00:14 daniel
|
||||
|
Loading…
Reference in New Issue
Block a user