paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 09:09:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

* restype wasn't copied for some constant nodetypes in getcopy

Browse Source
This commit is contained in:
Jonas Maebe 2001-08-06 10:18:39 +00:00
parent 239d2d6fee
commit 820836e42a
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ncon.pas
View File

@ -359,6 +359,7 @@ implementation
begin
n:=tordconstnode(inherited getcopy);
n.value:=value;
n.restype := restype;
getcopy:=n;
end;
@ -402,6 +403,7 @@ implementation
begin
n:=tpointerconstnode(inherited getcopy);
n.value:=value;
n.restype := restype;
getcopy:=n;
end;
@ -591,6 +593,7 @@ implementation
end
else
n.value_set:=nil;
n.restype := restype;
n.lab_set:=lab_set;
getcopy:=n;
end;
@ -657,7 +660,10 @@ begin
end.
{
$Log$
Revision 1.19 2001-07-08 21:00:15 peter
Revision 1.20 2001-08-06 10:18:39 jonas
* restype wasn't copied for some constant nodetypes in getcopy
Revision 1.19 2001/07/08 21:00:15 peter
* various widestring updates, it works now mostly without charset
mapping supported