|
@@ -995,6 +995,7 @@ implementation
|
|
|
is_widestring(p^.resulttype) then
|
|
is_widestring(p^.resulttype) then
|
|
|
begin
|
|
begin
|
|
|
hregister:=getexplicitregister32(R_EAX);
|
|
hregister:=getexplicitregister32(R_EAX);
|
|
|
|
|
+ emit_reg_reg(A_MOV,S_L,R_EAX,hregister);
|
|
|
if gettempansistringreference(hr) then
|
|
if gettempansistringreference(hr) then
|
|
|
decrstringref(p^.resulttype,hr);
|
|
decrstringref(p^.resulttype,hr);
|
|
|
exprasmlist^.concat(new(pai386,op_reg_ref(A_MOV,S_L,hregister,
|
|
exprasmlist^.concat(new(pai386,op_reg_ref(A_MOV,S_L,hregister,
|
|
@@ -1165,9 +1166,15 @@ implementation
|
|
|
end.
|
|
end.
|
|
|
{
|
|
{
|
|
|
$Log$
|
|
$Log$
|
|
|
- Revision 1.91 1999-06-14 17:47:47 peter
|
|
|
|
|
|
|
+ Revision 1.92 1999-06-16 09:32:45 peter
|
|
|
* merged
|
|
* merged
|
|
|
|
|
|
|
|
|
|
+ Revision 1.91 1999/06/14 17:47:47 peter
|
|
|
|
|
+ * merged
|
|
|
|
|
+
|
|
|
|
|
+ Revision 1.90.2.2 1999/06/16 09:30:44 peter
|
|
|
|
|
+ * fixed loading of ansistring when eax was already used
|
|
|
|
|
+
|
|
|
Revision 1.90.2.1 1999/06/14 17:24:42 peter
|
|
Revision 1.90.2.1 1999/06/14 17:24:42 peter
|
|
|
* fixed saving of registers with decr_ansistr
|
|
* fixed saving of registers with decr_ansistr
|
|
|
|
|
|
peter