implinline2_ant.pas 205 B

123456789101112131415161718
  1. unit implinline2_ant;
  2. {$mode objfpc}
  3. interface
  4. uses implinline2_bird;
  5. function Times123(w : word): word;
  6. implementation
  7. function Times123(w : word): word; inline;
  8. begin
  9. Result := w*123;
  10. end;
  11. end.