paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-07 15:07:50 +01:00
Code Issues Packages Projects Releases Wiki Activity

* moved deallocation of registers used in reference that points to string after

Browse Source 
copyshortstring (this routine doesn't require extra regs)
This commit is contained in:
Jonas Maebe 2000-01-13 16:52:47 +00:00
parent 5910b48cbe
commit 04a3db19c2
2 changed files with 14 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/cg386add.pas
View File

@ -240,10 +240,10 @@ implementation
{ string in register would be funny }
{ therefore produce a temporary string }
{ release the registers }
del_reference(p^.left^.location.reference);
gettempofsizereference(256,href);
copyshortstring(href,p^.left^.location.reference,255,false);
{ release the registers }
del_reference(p^.left^.location.reference);
ungetiftemp(p^.left^.location.reference);
{ does not hurt: }
@ -2145,11 +2145,6 @@ implementation
if p^.right^.location.loc=LOC_CMMXREGISTER then
begin
emit_reg_reg(A_MOVQ,S_NO,p^.right^.location.register,R_MM7);
{$ifndef noAllocEdi}
{ where does the result of this (R_EDI) get used?? No }
{ allocinfo for EDI added, because it doesn't seem to be }
{ used anyway }
{$endif noAllocEdi}
emit_reg_reg(op,S_NO,p^.location.register,R_MM0);
emit_reg_reg(A_MOVQ,S_NO,R_MM7,p^.location.register);
end
@ -2210,7 +2205,11 @@ implementation
end.
{
$Log$
Revision 1.88 2000-01-09 19:44:53 florian
Revision 1.89 2000-01-13 16:52:47 jonas
* moved deallocation of registers used in reference that points to string after
copyshortstring (this routine doesn't require extra regs)
Revision 1.88 2000/01/09 19:44:53 florian
* bug in secondadd(subn) with swaped mmx operands fixed
Revision 1.87 2000/01/09 16:35:39 jonas
@ -2310,4 +2309,4 @@ end.
Revision 1.63 1999/05/31 20:35:45 peter
* ansistring fixes, decr_ansistr called after all temp ansi reuses
}
}

8
compiler/cg386cnv.pas
View File

@ -363,9 +363,9 @@ implementation
st_shortstring:
begin
gettempofsizereference(pto^.resulttype^.size,pto^.location.reference);
del_reference(pfrom^.location.reference);
copyshortstring(pto^.location.reference,pfrom^.location.reference,
pstringdef(pto^.resulttype)^.len,false);
del_reference(pfrom^.location.reference);
ungetiftemp(pfrom^.location.reference);
end;
st_longstring:
@ -1533,7 +1533,11 @@ implementation
end.
{
$Log$
Revision 1.100 2000-01-09 12:35:00 jonas
Revision 1.101 2000-01-13 16:52:48 jonas
* moved deallocation of registers used in reference that points to string after
copyshortstring (this routine doesn't require extra regs)
Revision 1.100 2000/01/09 12:35:00 jonas
* changed edi allocation to use getexplicitregister32/ungetregister
(adapted tgeni386 a bit for this) and enabled it by default
* fixed very big and stupid bug of mine in cg386mat that broke the