anchor.diff:  { ITERATEFOLDER }
   procedure IterateFolder(inFolder : shortstring );
   var
  - dp : libc.PDIR;
  - ep : libc.Pdirent;
  -
  + dp : pDIR;
  + ep : Pdirent;
   begin
    inFolder:=inFolder + #0;
  -
  - dp:=libc.opendir(PChar(@inFolder[1 ] ) );
  -
  + dp:= fpopendir(PChar(@inFolder[1 ]));
    if dp <> NIL then
     begin
      repeat
  -    ep:=libc.readdir(dp );
  -
  +    ep:= fpreaddir(dp^);
       if ep <> NIL then
        ProcessObject(strpas(ep.d_name ) );
  -
      until ep = NIL;
  -
  -   libc.closedir(dp );
  -
  -  end;
  -
  +   fpclosedir(dp^);
  +  end;
   end;
   
   { CREATEMAKEFILE }
  
positive.code: {target:linux}
  {linux_console_app}
  //
  // AggPas 2.4 RM3 Helper utility application
  // Milan Marusinec alias Milano (c) 2006 - 2008
  //
  program
   find_compilers_linux ;
  
  uses
   SysUtils ,
   agg_basics ,
   file_utils_ ,
   libc ;
  
  {$I agg_mode.inc }
  {$- }
  type
   src_key = record
     key ,
     val : string[99 ];
  
    end;
  
  const
  
negative.code:  else
    writeln('ERROR: Not enough memory for the pool buffer !' ); 
  
  end.
  
  