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

* fixed char_to_string which did not set the .loc

Browse Source
This commit is contained in:
peter 1998-10-27 11:12:45 +00:00
parent e591bca4bb
commit fbf69c5127
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/cg386cnv.pas
View File

@ -609,9 +609,7 @@ implementation
{ return a reference }
clear_location(p^.location);
p^.location.loc:=LOC_MEM;
{ first get the memory for the string }
stringdispose(p^.location.reference.symbol);
gettempofsizereference(256,p^.location.reference);
{ calc the length of the array }
@ -639,7 +637,8 @@ implementation
procedure second_char_to_string(p,hp : ptree;convtyp : tconverttype);
begin
stringdispose(p^.location.reference.symbol);
clear_location(p^.location);
p^.location.loc:=LOC_MEM;
gettempofsizereference(256,p^.location.reference);
{ call loadstring with correct left and right }
p^.right:=p^.left;
@ -1331,7 +1330,10 @@ implementation
end.
{
$Log$
Revision 1.29 1998-10-26 15:18:41 peter
Revision 1.30 1998-10-27 11:12:45 peter
* fixed char_to_string which did not set the .loc
Revision 1.29 1998/10/26 15:18:41 peter
* fixed fldcw,fstcw for as 2.9.1
Revision 1.28 1998/10/08 17:17:11 pierre