paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 06:19:28 +02: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}
firstniln, {niln}
firsterror, {errorn}
firstnothing, {typen}
firsttype, {typen}
firsthnew, {hnewn}
firsthdispose, {hdisposen}
firstnew, {newn}
@ -350,7 +350,10 @@ implementation
end.
{
$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
}

17
compiler/tcld.pas
View File

@ -30,6 +30,7 @@ interface
procedure firstassignment(var p : ptree);
procedure firstfuncret(var p : ptree);
procedure firstarrayconstruct(var p : ptree);
procedure firsttype(var p : ptree);
implementation
@ -381,10 +382,24 @@ implementation
end;
{*****************************************************************************
Type
*****************************************************************************}
procedure firsttype(var p : ptree);
begin
{ do nothing, p^.resulttype is already set }
end;
end.
{
$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
}