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

* new line inserted :)

Browse Source 
git-svn-id: trunk@2174 -
This commit is contained in:
florian 2006-01-05 09:36:48 +00:00
parent 1851481694
commit c9870d4aa3
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/nutils.pas
View File

@ -47,7 +47,6 @@ interface
tforeachprocmethod = (pm_preprocess,pm_postprocess); tforeachprocmethod = (pm_preprocess,pm_postprocess);
foreachnodefunction = function(var n: tnode; arg: pointer): foreachnoderesult of object; foreachnodefunction = function(var n: tnode; arg: pointer): foreachnoderesult of object;
staticforeachnodefunction = function(var n: tnode; arg: pointer): foreachnoderesult; staticforeachnodefunction = function(var n: tnode; arg: pointer): foreachnoderesult;
@ -643,4 +642,20 @@ implementation
until not(treechanged); until not(treechanged);
end; end;
function doaddnode(var n : tnode; arg: pointer): foreachnoderesult;
begin
end;
{
function createnodelist(var l : tlist;
begin
if assigned(l) then
l.clear
else
l:=tlist.create;
}
end. end.