Вверх ↑
Ответов: 4234
Рейтинг: 661
#1: 2020-05-05 19:15:06 ЛС | профиль | цитата
Разбираюсь.

--- Добавлено в 2020-05-05 20:01:55

В StreamConvertor поставь Charset=Compiler.

Исправить функции StrLComp() в файле HiAsm\compiler\FPC2\src\packages\KOLx64\kol.pas.

Строка 22713:


function StrLComp(const Str1, Str2: PAnsiChar; MaxLen: Cardinal): Integer;
var
S1, S2: PAnsiChar;
begin
S1 := Str1;
S2 := Str2;
while (S1^ <> #0) and (S2^ <> #0) and (MaxLen > 0) do
begin
Result := Ord(S1^) - Ord(S2^);
if Result <> 0 then Exit;
Inc(S1);
Inc(S2);
Dec(MaxLen);
end;
Result := Ord(S1^) - Ord(S2^);
end;

Строка 22969:


function StrLComp(const Str1, Str2: PWideChar; MaxLen: Cardinal): Integer;
var
S1, S2: PWideChar;
begin
S1 := Str1;
S2 := Str2;
while (S1^ <> #0) and (S2^ <> #0) and (MaxLen > 0) do
begin
Result := Ord(S1^) - Ord(S2^);
if Result <> 0 then Exit;
Inc(S1);
Inc(S2);
Dec(MaxLen);
end;
Result := Ord(S1^) - Ord(S2^);
end;

После исправления выполнить файлы:

HiAsm\compiler\FPC2\src\_make_KOL.bat
HiAsm\compiler\FPC2\src\_make_KOL_uni.bat

карма: 22

0
Редактировалось 2 раз(а), последний 2020-05-05 20:01:55