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

* update for new push_lea_loc

Browse Source
This commit is contained in:
peter 1999-09-01 09:42:13 +00:00
parent 4a9bbef37a
commit c60bf19553
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/cg386cnv.pas
View File

@ -411,8 +411,8 @@ implementation
if gettempansistringreference(pto^.location.reference) then if gettempansistringreference(pto^.location.reference) then
decrstringref(cansistringdef,pto^.location.reference); decrstringref(cansistringdef,pto^.location.reference);
pushusedregisters(pushed,$ff); pushusedregisters(pushed,$ff);
emit_push_lea_loc(pfrom^.location); emit_push_lea_loc(pfrom^.location,true);
emit_push_lea_loc(pto^.location); emit_push_lea_loc(pto^.location,true);
emitcall('FPC_SHORTSTR_TO_ANSISTR'); emitcall('FPC_SHORTSTR_TO_ANSISTR');
maybe_loadesi; maybe_loadesi;
popusedregisters(pushed); popusedregisters(pushed);
@ -1457,7 +1457,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.85 1999-08-19 13:08:46 pierre Revision 1.86 1999-09-01 09:42:13 peter
* update for new push_lea_loc
Revision 1.85 1999/08/19 13:08:46 pierre
* emit_??? used * emit_??? used
Revision 1.84 1999/08/05 14:58:03 florian Revision 1.84 1999/08/05 14:58:03 florian