- Код: Выделить всё
macro put_short(s, w)
begin
{put_byte(s, (byte)((w) & 0xff));}
s.pending_buf^[s.pending] := byte((w) and $ff);
inc(s.pending);
{put_byte(s, (byte)((word)(w) >> 8));}
s.pending_buf^[s.pending] := byte(word(w) shr 8);;
inc(s.pending);
end
Я понимаю что нормальной систем макросов и препроцессора в FPC нет и подобный код не рабочий - но может это следы использования какого-то внешнего средства... Никто не в курсе? А то выглядит очень вкусно и полезно, как в С/С++.