FreePascal.ru

Ого, ты жив! (Не то что НЕКОТОРЫЕ. Не будем показывать пальцем.)

Видал, чего я в транке наделал? ( Новый крутой менеджер памяти , новый крутой heaptrc , крутые реализации базовых функций типа Move и CompareByte для x86/x64 (в 3.2 многие из них работают просто отвратительно: CompareByte на x64 была ...

Сдвиг на значения ≥ разрядности переменной (32 для LongWord) не определён.

Через поля TForm1. Это указатель на самом деле не на просто функцию, а на метод — он физически хранит два указателя, на функцию и на self, запоминаемый в момент @.

Нужно сделать uses SysUtils;, он занимается преобразованием ситуации, возникающей при делении на 0, в бросание исключения языка EZeroDivision.

Alexander писал(а):В Паскале нет sar, sal, а только shl, shr.

Есть! А если бы и не было, можно было бы какой-нибудь не очень сильно медленный прикол придумать, типа

И в пределах одного модуля все могут видеть всё сквозь private и protected, но в Delphi то же самое, это эквивалент «friend class» в C++. Можно выключить через strict private и strict protected, но зачем.

Да, наверное, это баг, ща зарепорчу. Можно обойти как:

type
TMyWSMsgPump_descendant = class (TWSThreadMessagePump )
protected
type
Local_TMessageDriverThread = TMessageDriverThread;
TMyDrvThread_descendant = Class(Local_TMessageDriverThread )
Public
Procedure Execute;override;
End;
end;

благо, Паскаль умеет в воспроизводимость, благодаря стандартизованной до бита математике с 32-битными флоатами
Не умеет, я пробовал сделать функцию LdExp(single) и она в зависимости от платформы могла считать точнее single, и причина, видимо, неизвестна ( пример в обратную сторону , где расчёты в ...

Это стиль кода самого Free Pascal, не более. Он далёк от общепринятого — того, в котором написаны исходники модулей Delphi.

Я себе давно сделал велосипед (не через managed record или что iskander подразумевает, а через ручную работу с RTTI и заголовком массива), который как раз в порядке багофичи не зануляет элементы (если они неуправляемые). Но мне это нужно было не потому, что я очень страдал от лишних занулений, а ...

beria писал(а):Результат
9875
12742320
19900
7437
12742320
19900

У меня, без изменений кода, x86-64, -O3:
9031
12742320
19900
9578
12742320
19900
:>

GetMem не заполняет память нулями, SetLength заполняет (или даже вызывает кастомные Initialize/Finalize, что ещё медленнее). Если использовать GetMem+FillChar, будет одинаково.

Но если ты вызвал SetLength, то ты эти элементы собираешься использовать, то есть будешь с ними делать что-то, на фоне ...

Cheb писал(а):Изпользуемый гапи - OpenGL / GL ES, что налагает ограничение: все команды на рендер - только в основном потоке.

В теории, shared contexts для того и задуманы, чтобы это обойти, они позволяют заниматься вещами вроде загрузки шейдеров и других ресурсов в отдельном потоке. Сам не пробовал...

Можно сделать коллекцию, действующие итераторы которой отслеживаются в ней же и исправляются при удалениях элементов.
Это не то чтобы очень хорошая идея, но есть интересные юзкейсы; например, список коллбэков, вызываемых как for cb in list do cb.Call, где Call может добавлять или удалять другие ...