From abc1bcca24c49e6b5d0f19bbe8f0939fe3e9707c Mon Sep 17 00:00:00 2001 From: florian Date: Thu, 5 Jan 2006 09:40:04 +0000 Subject: [PATCH] * fixed previous commit ... git-svn-id: trunk@2175 - --- compiler/ncgutil.pas | 1 + compiler/nutils.pas | 17 +---------------- 2 files changed, 2 insertions(+), 16 deletions(-) diff --git a/compiler/ncgutil.pas b/compiler/ncgutil.pas index 11f082e521..265ad21099 100644 --- a/compiler/ncgutil.pas +++ b/compiler/ncgutil.pas @@ -1893,6 +1893,7 @@ implementation cg.g_restore_standard_registers(list); end; + procedure gen_got_load(list : taasmoutput); begin { if loading got is necessary for more cpus, it can be moved diff --git a/compiler/nutils.pas b/compiler/nutils.pas index 04d5027ad9..60377f52c1 100644 --- a/compiler/nutils.pas +++ b/compiler/nutils.pas @@ -47,6 +47,7 @@ interface tforeachprocmethod = (pm_preprocess,pm_postprocess); + foreachnodefunction = function(var n: tnode; arg: pointer): foreachnoderesult of object; staticforeachnodefunction = function(var n: tnode; arg: pointer): foreachnoderesult; @@ -642,20 +643,4 @@ implementation until not(treechanged); 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.