1. Pascal / Говнокод #12945

    +78

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    {$ifdef Profile}
  {$define __TRACE__:= try Profile_TraceCall}
  {$define __END__:=finally Profile_LeaveCall; end;}
{$else}
  {$define __TRACE__:= //}
  {$define __END__:=}
{$endif}

procedure Foo();
begin
  __TRACE__('Foo');
  ...
  __END__
end;

    FPC.

    Запостил: runewalsh, 28 Апреля 2013

    Комментарии (2) RSS

    • ava LispGovno 28.04.2013 08:30 # −1

      Паскаь не осилил такую мелочь? Для языка для ламеров - это не простительно.
      Ответить

      • ava runewalsh 28.04.2013 15:02 # 0

        Нормального препроцессора не хватает, да. Или ты о другом?
        Ответить

    Добавить комментарий