Có thể hoặc hợp lý để thực hiện khóa kiểm tra kép ở Delphi?

Question

Như tôi được biết, có hai loại phổ biến của thực tiễn để đảm bảo sự an toàn thread lười biếng-khởi:

1. đúp kiểm tra khóa (Marks biến như dễ bay hơi để tránh đặt bộ nhớ)
2. InterlockedCompareExchangePointer

Dường như VCL sử dụng phương pháp thứ hai. Có lý do gì không?

class function TEncoding.GetUTF8: TEncoding; 
var 
    LEncoding: TEncoding; 
begin 
    if FUTF8Encoding = nil then 
    begin 
    LEncoding := TUTF8Encoding.Create; 
    if InterlockedCompareExchangePointer(Pointer(FUTF8Encoding), LEncoding, nil) <> nil then 
     LEncoding.Free; 
    end; 
    Result := FUTF8Encoding; 
end; 

hoặc có phương pháp nào tốt hơn không?

Cảm ơn!

Answer 1

Không có nhiều sự khác biệt về tốc độ. Trong cả hai cách tiếp cận, trường toàn cục được kiểm tra đầu tiên nếu nó được khởi tạo và khởi tạo chỉ được thực hiện khi được yêu cầu. Do đó, phần lớn thời gian hàm sẽ chỉ làm so sánh, nhảy, di chuyển, mà không có bất kỳ khởi tạo nào.

Khi khởi tạo được thực hiện, InterlockedCompareEtc có hai ưu điểm so với khóa.

1. Nhanh hơn.
2. Mã ngắn hơn (không cần phải khởi tạo khóa vv).

Tôi tìm cách tiếp cận InterlockedCompareEtc "neater" và sử dụng nó trong mã của mình. Nhưng khóa sẽ hoạt động tốt như nhau.