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

* fixed type node which was always set to void :(

Browse Source
This commit is contained in:
peter 1998-09-24 15:13:44 +00:00
parent 3d947ea74d
commit 01ec56bec4
2 changed files with 21 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/pass_1.pas
View File

@ -236,7 +236,7 @@ implementation
firstinline, {inlinen} firstinline, {inlinen}
firstniln, {niln} firstniln, {niln}
firsterror, {errorn} firsterror, {errorn}
firstnothing, {typen} firsttype, {typen}
firsthnew, {hnewn} firsthnew, {hnewn}
firsthdispose, {hdisposen} firsthdispose, {hdisposen}
firstnew, {newn} firstnew, {newn}
@ -350,7 +350,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.94 1998-09-23 20:42:22 peter Revision 1.95 1998-09-24 15:13:44 peter
* fixed type node which was always set to void :(
Revision 1.94 1998/09/23 20:42:22 peter
* splitted pass_1 * splitted pass_1
} }

17
compiler/tcld.pas
View File

@ -30,6 +30,7 @@ interface
procedure firstassignment(var p : ptree); procedure firstassignment(var p : ptree);
procedure firstfuncret(var p : ptree); procedure firstfuncret(var p : ptree);
procedure firstarrayconstruct(var p : ptree); procedure firstarrayconstruct(var p : ptree);
procedure firsttype(var p : ptree);
implementation implementation
@ -381,10 +382,24 @@ implementation
end; end;
{*****************************************************************************
Type
*****************************************************************************}
procedure firsttype(var p : ptree);
begin
{ do nothing, p^.resulttype is already set }
end;
end. end.
{ {
$Log$ $Log$
Revision 1.1 1998-09-23 20:42:24 peter Revision 1.2 1998-09-24 15:13:48 peter
* fixed type node which was always set to void :(
Revision 1.1 1998/09/23 20:42:24 peter
* splitted pass_1 * splitted pass_1
} }