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

+ register32 is now written by tnode.dowrite

Browse Source 
* fixed write of value of tconstnode
This commit is contained in:
florian 2002-08-22 11:21:44 +00:00
parent 9df674734c
commit ac29d65fc4
2 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ncon.pas
View File

@ -482,7 +482,7 @@ implementation
begin
inherited _dowrite;
system.write(writenodeindention,',value = ',value);
system.write(',value = ',value);
end;
{$endif}
@ -912,7 +912,11 @@ begin
end.
{
$Log$
Revision 1.39 2002-08-18 20:06:23 peter
Revision 1.40 2002-08-22 11:21:44 florian
+ register32 is now written by tnode.dowrite
* fixed write of value of tconstnode
Revision 1.39 2002/08/18 20:06:23 peter
* inlining is now also allowed in interface
* renamed write/load to ppuwrite/ppuload
* tnode storing in ppu

7
compiler/node.pas
View File

@ -617,6 +617,7 @@ implementation
else
write(',resulttype = <nil>');
write(',location.loc = ',ord(location.loc));
write(',registersint = ',registers32);
write(',registersfpu = ',registersfpu);
end;
@ -972,7 +973,11 @@ implementation
end.
{
$Log$
Revision 1.38 2002-08-19 19:36:44 peter
Revision 1.39 2002-08-22 11:21:45 florian
+ register32 is now written by tnode.dowrite
* fixed write of value of tconstnode
Revision 1.38 2002/08/19 19:36:44 peter
* More fixes for cross unit inlining, all tnodes are now implemented
* Moved pocall_internconst to po_internconst because it is not a
calling type at all and it conflicted when inlining of these small