paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 08:59:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed previous commit ...

Browse Source 
git-svn-id: trunk@2175 -
This commit is contained in:
florian 2006-01-05 09:40:04 +00:00
parent c9870d4aa3
commit abc1bcca24
2 changed files with 2 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/ncgutil.pas
View File

@ -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

17
compiler/nutils.pas
View File

@ -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.