Столкнулся с проблемой (видимо из-за незнания/непонимания).
FPC 3.0.0
компилю с ключами -TWin32 -Mobjfpc
Есть такая функция:
1.
2.
3.
4.
function MakeFullNumber( nSerial, nNumber: Integer ): Int64;
begin
Result := Int64( nSerial ) * $FFFFFFFF + nNumber;
end;
На делфи
1.
ShowMessage( IntToStr( MakeFullNumber( 200210, 1 ) ) );
выдает "859895402131951" - это правильно, калькулятор подтверждает.
FPC же упорно выдает какое-то странное число "-859886812597777", даже если сделать
1.
Result := Int64( Int64( Int64( nSerial ) * Int64( $FFFFFFFF ) ) + Int64( nNumber ) );
Единственное, что помогает, это переделать функцию так:
1.
2.
3.
4.
function MakeFullNumber( nSerial, nNumber: Int64 ): Int64;
begin
Result := nSerial * $FFFFFFFF + nNumber;
end;
тогда результат совпадает, но это не вариант - функция экспортится из библиотеки, которую используют.
Пока что нашел только такое г-решение проблемы:
1.
2.
3.
4.
5.
6.
7.
8.
function MakeFullNumber( nSerial, nNumber: Integer ): Int64;
var
nSerial64, nNumber64: Int64;
begin
nSerial64 := nSerial;
nNumber64 := nNumber;
Result := nSerial64 * $FFFFFFFF + nNumber64;
end;
Так тоже, естественно, правильно работает и я пока остановился на этом.
Но может кто подскажет - может есть какая-то настройка/деректива, которая включает кастинг "как в Делфи"? Я не нашел пока. И если кто объяснит такое поведение - тоже спасибо.
