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

* fixed constant ansistring -> pchar

Browse Source
This commit is contained in:
peter 1998-11-29 22:37:30 +00:00
parent 97bbe41037
commit e0b2f65f9a
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/cg386cnv.pas
View File

@ -601,7 +601,7 @@ implementation
end;
st_ansistring :
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)));
end;
st_longstring:
@ -1449,7 +1449,10 @@ implementation
end.
{
$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
Revision 1.37 1998/11/26 21:33:06 peter