mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-15 08:11:30 +02:00
* fixed bug in g_concatcopy with -dnewra
This commit is contained in:
parent
3f4ec841ad
commit
af61f830d0
@ -2129,7 +2129,7 @@ const
|
|||||||
{$ifndef newra}
|
{$ifndef newra}
|
||||||
free_scratch_reg(list,dst.base);
|
free_scratch_reg(list,dst.base);
|
||||||
{$else newra}
|
{$else newra}
|
||||||
rg.ungetregisterint(list,dest.base);
|
rg.ungetregisterint(list,dst.base);
|
||||||
{$endif newra}
|
{$endif newra}
|
||||||
if delsource then
|
if delsource then
|
||||||
tg.ungetiftemp(list,source);
|
tg.ungetiftemp(list,source);
|
||||||
@ -2702,7 +2702,10 @@ begin
|
|||||||
end.
|
end.
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.113 2003-07-06 20:25:03 jonas
|
Revision 1.114 2003-07-20 16:15:58 jonas
|
||||||
|
* fixed bug in g_concatcopy with -dnewra
|
||||||
|
|
||||||
|
Revision 1.113 2003/07/06 20:25:03 jonas
|
||||||
* fixed ppc compiler
|
* fixed ppc compiler
|
||||||
|
|
||||||
Revision 1.112 2003/07/05 20:11:42 jonas
|
Revision 1.112 2003/07/05 20:11:42 jonas
|
||||||
|
Loading…
Reference in New Issue
Block a user