Проблема в многопоточности

[qivi]

Версия процессора... и в программу встраивать базу всех существующих процессоров (что бы сопоставить количество его ядер)? А высокоуровневый метод имеется?

[hinst]

в Windows переменная окружения NUMBER_OF_PROCESSORS

echo %NUMBER_OF_PROCESSORS%
у меня выводит 4

Как-т правд немног туповато, это же количество ядер а не процессоров, ну ничё страшного наверн

Добавлено спустя 1 минуту 53 секунды:
в Linux, говорят, выполнить nproc

[yantux]

Мне так кажется, что если с потоками всё так сложно, то лучше использовать процессы.
Потоки это шаг вправо, ша влево и ловишь глики. Тем более на разных процессорах и разных ОС.

[Vadim]

qivi
Или, если речь идёт о Линуксе - заглянуть в файл /proc/cpuinfo. Количество названий процессора будет ровно столько, сколько у него ядер.

[Лекс Айрин]

Vadim, а если у меня, допустим, что-нибудь более экзотическое?

[qivi]

Vadim, а если у меня, допустим, что-нибудь более экзотическое?

Вот и мне кажется хорошо бы иметь стандартный штатный метод в FCL что бы он возвращал количество ядер.

[Sergei I. Gorelkin]

Штатное появилось в 3.1.1:
class property TThread.ProcessorCount: longword;

Но реализация на чем-то экзотическом остается под вопросом.

[vada]

Мне нравится это LongWord

[Kitayets]

есть кусок кода на wiki - выдает кол-во физических ядер/процессоров для win/lin/macos. Я оформил в виде доп юнита и таскаю с собой.

Код: Выделить всё

unit cpucount;
interface

//code from 
//http://wiki.freepascal.org/Example_of_multi-threaded_application:_array_of_threads

//returns number of cores: a computer with two hyperthreaded cores will report 4
function GetLogicalCpuCount: Integer;
 
implementation
 
{$IF defined(windows)}
uses windows;
{$endif}
 
{$IF defined(darwin)}
uses ctypes, sysctl;
{$endif} 
 
{$IFDEF Linux}
uses ctypes;
 
const _SC_NPROCESSORS_ONLN = 83;
function sysconf(i: cint): clong; cdecl; external name 'sysconf';
{$ENDIF}
 
 
function GetLogicalCpuCount: integer;
// returns a good default for the number of threads on this system
{$IF defined(windows)}
//returns total number of processors available to system including logical hyperthreaded processors
var
  i: Integer;
  ProcessAffinityMask, SystemAffinityMask: DWORD_PTR;
  Mask: DWORD;
  SystemInfo: SYSTEM_INFO;
begin
  if GetProcessAffinityMask(GetCurrentProcess, ProcessAffinityMask, SystemAffinityMask)
  then begin
    Result := 0;
    for i := 0 to 31 do begin
      Mask := DWord(1) shl i;
      if (ProcessAffinityMask and Mask)<>0 then
        inc(Result);
    end;
  end else begin
    //can't get the affinity mask so we just report the total number of processors
    GetSystemInfo(SystemInfo);
    Result := SystemInfo.dwNumberOfProcessors;
  end;
end;
{$ELSEIF defined(UNTESTEDsolaris)}
  begin
    t = sysconf(_SC_NPROC_ONLN);
  end;
{$ELSEIF defined(freebsd) or defined(darwin)}
var
  mib: array[0..1] of cint;
  len: cint;
  t: cint;
begin
  mib[0] := CTL_HW;
  mib[1] := HW_NCPU;
  len := sizeof(t);
  fpsysctl(pchar(@mib), 2, @t, @len, Nil, 0);
  Result:=t;
end;
{$ELSEIF defined(linux)}
  begin
    Result:=sysconf(_SC_NPROCESSORS_ONLN);
  end;
 
{$ELSE}
  begin
    Result:=1;
  end;
{$ENDIF}
end.

[wavebvg]

Мне нравится это LongWord

Да, жду не дождусь, когда наступит вещественное переполнение. 4294967295 - не дождусь, по крайней мере в бытовых задачах.