169 похожих чатов

Const prime_size = 65521; //prime number var table: array

[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;
Это является ведь потокобезопасным кодом?

Каждый поток будет на свою ячейку в массиве отображён..., массив глобальный, один для всех

12 ответов

31 просмотр

TLS бы использовал - это точно будет потокобезопасно

Если в доке ЯВНО не написано про покобезопасность, то нет

notme- Автор вопроса
Александр (Rouse_) Багель
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 и для приложения?

Стикер

notme- Автор вопроса
Boris Usievich
Если в доке ЯВНО не написано про покобезопасность,...

😁 так это мой код, у меня нету доки, я только сам учусь )

а откуда 65521 взялось? в винде максимально - 1023 потока, в Линуксе 32767

notme- Автор вопроса
Михаил Усков
а откуда 65521 взялось? в винде максимально - 1023...

хм... интернет говорит, что лимит больше... РеймондЧен статью даже вроде писал https://devblogs.microsoft.com/oldnewthing/20050729-14/?p=34773

notme- Автор вопроса
notme
хм... интернет говорит, что лимит больше... Реймон...

Хотя прямо в этой статье он не указал максимальное ограничение и создаётся впечатление, что всё ограничено только объёмом доступной памяти

notme- Автор вопроса
notme
А в Delphi этот же код?

хз, поищи примеры работы с threadvar щас не до этого...

Похожие вопросы

Обсуждают сегодня

Какой-то там пердун в 90-х решил, что есть какая-то разная типизация. Кого вообще это волнует?
КТ315
49
void terminal_scroll() { memmove(terminal_buffer, terminal_buffer + VGA_WIDTH, buffer_size - VGA_WIDTH); memset(terminal_buffer + buffer_size - VGA_WIDTH, 0, VGA_WIDTH); ...
Егор
47
Всем привет! Подскажите, пожалуйста, в чем ошибка? Настраиваю подключение к MySQL. Либы лежат рядом с exe. Все как по "учебнику"
Евгений
16
А можете как-то проверить меня по знаниям по ассемблеру?
A A
132
Здравствуйте! У меня появилась возможность купить книгу "Изучай Haskell во имя добра!". Но я где-то слышал, что эта книга устарела. Насколько это правда??
E
22
Здравствуйте! Я вот на stepic решаю задачи на хаскеле https://stepik.org/lesson/8443/step/8?unit=1578 мой код import Data.List (isInfixOf) removing :: String -> [String] ->...
E
10
Камрады, кто тесно работал с vtv, хотел уточнить. Ширина column задаётся жёстко на этапе создания дерева или можно в рантайме ее менять программно (не мышкой)?
Ed Doc
10
да ладно ... что там неочевидного ? глянуть в исх-ки датасета и/или кверика чтобы понять в каком месте и как выполняется обращения к св-вам blablaSQL - минутное дело, даже е...
Сергей
7
Здесь для arm кто-нибудь кодит ?
Nothing
52
Всем привет, у меня есть сервер принимающий входящие HTTP подключения, как проверить, что подключение было через прокси или нет, есть какие то поля в заголовках по которым мо...
DS
8
Карта сайта