VPF::Переход на 64 бита и SweetDrawing - Форум программистов

Teemu

Дата 12.9.2022, 16:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 3.1.2010

Репутация: нет
Всего: нет

Приветствую. В процессе портирования одного приложения под 64 бита возникла пара багов которые из-за недостатка скиллов не могу раскопать)

Установлена Delphi 11.1. Приложение использует старую, древнюю библиотеку SweetDrawing

На 32 битной версии приложение работает отлично, но в 64 битной ловится интересный баг в этом месте:

Код


class function TSCDeUtils.Round(D: Double): Int64; //Можно поменять на Integer, результат тот же
var
  F: Double;
begin
  F := Frac(D);
  Result := Floor(D); //Баг возникает тут, обращаемся к функции Floor из стандартного системного модуля System.Math
  if Abs(F) >= 0.5 then Inc(Result);
end;

Код этой функции из системного модуля:

Код


function Floor(const X: Double): Integer;
begin  // Вот тут при дебаге возникает ошибка -> Project raised exception class $C0000005 with message 'c0000005 ACCESS_VIOLATION'.
  Result := Integer(Trunc(X));
  if Frac(X) < 0 then
    Dec(Result);
end;

В переменную X функции Floor приходит значение 36, breakpoint стоит на Begin, жму F8 и получаю описанную ошибку: "Project raised exception class $C0000005 with message 'c0000005 ACCESS_VIOLATION". Собственно, хотелось бы понять что именно не так. Объектов тут нет, модули стандартные.

Если вытащить функцию Floor из модуля System.Math и закинуть в модуль откуда эту функция вызывается, допустим, вот так, то проблема отпадает.

Код


class function TSCDeUtils.Floor2(const X: Double): Integer;
begin
  Result := Integer(Trunc(X));
  if Frac(X) < 0 then
    Dec(Result);
end;

class function TSCDeUtils.Round(D: Double): Int64;
var
  F: Double;
begin
  F := Frac(D);
  Result := Floor2(D);
  if Abs(F) >= 0.5 then Inc(Result);
end;

Дальше при определенных манипуляциях приложение всё равно крашится при обращении к c:/windows/system32/gdi32full.dll

Это сообщение отредактировал(а) Teemu - 12.9.2022, 16:13

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »