Аналог сишного типа данных

[fedan]

int128_t

https://www.freepascal.org/docs-html/rtl/sysutils/int128rec.html

Правда единственное применение это InterlockedCompareExchange128

[Vadim]

fedan
Большое спасибо!

[Vadim]

Что-то мне никак не приходит в голову, как можно в Паскале объявить такую сишную константу:

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

#define UNWEIGHTED           ((int *) 2)

Про типизированные константы я знаю, но их значения можно менять.
Как правильно сделать константу?

[fedan]

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

const
   UNWEIGHTED = PInteger(2);


[Vadim]

fedan
А прочитать значение потом можно будет?

[fedan]

Нет. Скорее получишь Access violation. Это адрес 0x00000002 (i386)
И как бы это константа - флаг для чего-то, указывающего что оно UNWEIGHTED

[Vadim]

fedan
Так мне с этой константой надо сравнивать ответы функций. Если значение константы получить не удастся, то как же её использовать?

[fedan]

А функции возвращают указатель или целое число?

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

if myFunc1 = UNWEIGHTED then
  ...

if Pinteger(myFunc2) = UNWEIGHTED then
  ...


Что вообще за проект, он в паблике есть?

[wavebvg]

https://www.freepascal.org/docs-html/rt ... 28rec.html

[Vadim]

fedan
Тут я неполную информацию дал. Функция возвращает чёрте-то... Целочисленный массив. Который, естественно, указатель, но вот сравнивается он именно с такой константой.

Что вообще за проект, он в паблике есть?

Проект - застрелиться и не встать ( ) - более-менее автоматизированный перевод сишных заголовков в паскалевские. Делается на примере OpenMPI.
Проекта-переводчика в паблике пока нет - там пока ещё чёрт ногу сломит, а OpenMPI (в процессе работы) здесь:
https://github.com/VadimAnIsaev/FreePascal-MPI

[fedan]

https://github.com/open-mpi/ompi?

[Vadim]

fedan
Ага.

[fedan]

Ну, вот например
можно преобразовать к такому
в C/C++ const int sourceweights[] = const int* sourceweights

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

{$POINTERMATH ON}
...
// sourceweights: PInteger вместо массива
// } else if (MPI_UNWEIGHTED != sourceweights && sourceweights[i] < 0) {
end else if (MPI_UNWEIGHTED <> sourceweights) and (sourceweights[i] < 0) then begin


Тут проверяется что массив sourceweights не является невзвешенным и содержит веса больше 0.

[Vadim]

fedan
Остаётся только вопрос, а будет ли такое работать в паскале:

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

Const
  MPI_UNWEIGHTED = PInteger(2);

...

Var
  arr: array of Integer;

...

  If arr = MPI_UNWEIGHTED Then
    ...

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

[Дож]

будет ли такое работать в паскале

Зависит от того что называть словом "работать". Если подразумевается какой-то смысл у кода, то нет -- т.к. arr является Managed типом, то в него нельзя записать произвольную пользовательскую константу, а, значит, и сравнивать с произвольной пользовательской константой нет смысла.