function InterlockedIncrement64(var V: Int64): Int64;
asm
        PUSH    EBP
        PUSH    EBX
        MOV     EBP,EAX
        MOV     EDX,[EBP+4]
        MOV     EAX,[EBP]
@@Spin:
        MOV     EBX,EAX
        MOV     ECX,EDX
        ADD     EBX,1
        ADC     ECX,0
   LOCK CMPXCHG8B       [EBP]
        JNZ     @@Spin

        MOV     EAX,EBX
        MOV     EDX,ECX

        POP     EBX
        POP     EBP
end;

unit System.SyncObjs;
class function TInterlocked.Add(var Target: Int64; Increment: Int64): Int64;

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы