mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-18 14:49:11 +02:00
* fixed constant ansistring -> pchar
This commit is contained in:
parent
97bbe41037
commit
e0b2f65f9a
@ -601,7 +601,7 @@ implementation
|
|||||||
end;
|
end;
|
||||||
st_ansistring :
|
st_ansistring :
|
||||||
begin
|
begin
|
||||||
exprasmlist^.concat(new(pai386,op_ref_reg(A_LEA,S_L,newreference(pfrom^.location.reference),
|
exprasmlist^.concat(new(pai386,op_ref_reg(A_MOV,S_L,newreference(pfrom^.location.reference),
|
||||||
pto^.location.register)));
|
pto^.location.register)));
|
||||||
end;
|
end;
|
||||||
st_longstring:
|
st_longstring:
|
||||||
@ -1449,7 +1449,10 @@ implementation
|
|||||||
end.
|
end.
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.38 1998-11-29 12:40:19 peter
|
Revision 1.39 1998-11-29 22:37:30 peter
|
||||||
|
* fixed constant ansistring -> pchar
|
||||||
|
|
||||||
|
Revision 1.38 1998/11/29 12:40:19 peter
|
||||||
* newcnv -> not oldcnv
|
* newcnv -> not oldcnv
|
||||||
|
|
||||||
Revision 1.37 1998/11/26 21:33:06 peter
|
Revision 1.37 1998/11/26 21:33:06 peter
|
||||||
|
Loading…
Reference in New Issue
Block a user