[0..prime_size-1] of DWORD;
function get_data(thread_id: DWORD): DWROD;
begin
Result:=table[thread_id mod 65521];
end;
function set_data(thread_id: DWORD; data: DWORD): DWROD;
begin
table[thread_id mod 65521]:=data;
end;
Это является ведь потокобезопасным кодом?
Каждый поток будет на свою ячейку в массиве отображён..., массив глобальный, один для всех
TLS бы использовал - это точно будет потокобезопасно
Если в доке ЯВНО не написано про покобезопасность, то нет
library Project1; {$mode delphi} uses Generics.Collections; type TFuncStack = TStack<DWORD>; threadvar // А ThreadVar'ы инициалзируются 0 или там мусор? FuncStack: TFuncStack; procedure Add(v: DWORD); begin if not Assigned(FuncStack) then FuncStack:=TFuncStack.Create; FuncStack.Push(v); end; exports Add; end. Я с TLS не работал, а через прослойку в виде абстракции из конструкций языка вообще не понимаю как точно это будет работать Вот пример выше... при таком объявлении если буду вызывать из DLL функцию Add из разных "внешних" потоков - то для каждого потока переменная FuncStack будет своя? Или тут нужно чтобы как раз RTL был един и для DLL и для приложения?
Стикер
😁 так это мой код, у меня нету доки, я только сам учусь )
в лазаре хз - не смотрел
а откуда 65521 взялось? в винде максимально - 1023 потока, в Линуксе 32767
хм... интернет говорит, что лимит больше... РеймондЧен статью даже вроде писал https://devblogs.microsoft.com/oldnewthing/20050729-14/?p=34773
Хотя прямо в этой статье он не указал максимальное ограничение и создаётся впечатление, что всё ограничено только объёмом доступной памяти
А в Delphi этот же код?
хз, поищи примеры работы с threadvar щас не до этого...
Обсуждают сегодня