Am 13.05.2011 17:41, schrieb Martin: > On 13/05/2011 15:19, Hans-Peter Diettrich wrote: >> >> Replacement of $IFs. (Around DebugLn...) > > That one is solved already, with existing macros. > rtl\inc\lnfodwrf.pp > > > > {$MACRO ON} > //{$DEFINE DEBUG_DWARF_PARSER} > {$ifdef DEBUG_DWARF_PARSER} > {$define DEBUG_WRITELN := WriteLn} > {$else} > {$define DEBUG_WRITELN := //} > {$endif} > > > and then > DEBUG_WRITELN('Skipping directory : ', s);
Or just use an inline function with ifdef as mentioned previously. An inline function with an empty procedure body shouldn't cause any additional code. _______________________________________________ fpc-devel maillist - fpc-devel@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-devel