Текущий архив: 2004.05.23;
Скачать: CL | DM;

Вниз

Ошибка: already in skipping mode.   Найти похожие ветки 

← →
SAGE   (2003-12-19 15:52) [0]

При попытке конвертнуть KOL 1.87 в FPC с помощью FPC2KOL:

Error in line 41: -} - already in skipping mode.

---

← →
Vladimir Kladov   (2003-12-19 16:46) [1]

Ну и ничего страшного. Пока можно ручками на всех 4 или 5 строках заменить на {+}. Обновление будет совсем скоро, заодно и порпавлю компилируемость в PAS_VERSION.

---

← →
Gandalf ©   (2003-12-19 17:20) [2]

И не только в Win32... Есть там такое дело - надо в указаной строке поменять минус {-} на плюс {+} - если не ошибаюсь. И еще там баг - Кладов случайно вырезал Win32 ParamStr. Потому надо довать (заменить) строки с ParamStr и ParamCount на:

{#IF not[DELPHI]}{-}
function ParamStr( Idx: Integer ): String;
var
 P, P1: PChar;
 Buffer: array[ 0..260 ] of Char;
begin
 if Idx = 0 then
   SetString( Result, Buffer, GetModuleFileName( 0, Buffer, Sizeof( Buffer ) ) )
 else
 begin
   P := GetCommandLine;
   repeat
     P := SkipSpaces( P );
     P1 := P;
     P := SkipParam(P);
     if Idx = 0 then Break;
     Dec(Idx);
   until (Idx < 0) or (P = P1);
   Result := Copy( P1, 1, P - P1 );
   if Length( Result ) >= 2 then
   if (Result[ 1 ] = """) and (Result[ Length( Result ) ] = """) then
     Result := Copy( Result, 2, Length( Result ) - 2 );
 end;
end;
{+}{#END}

{#IF [KYLIX]}{++}(*
function ParamStr( Idx: Integer ): String;
type
 PCharArray = array[0..0] of PChar;
begin
 if Index < ArgCount then
   Result := PCharArray(ArgValues^)[Index]
 else
   Result := "";
end;
*){--}{#END}

{#IF [LINUX]}{++}(*
function ParamStr( Idx: Integer ): String;
begin
 Result:=System.ParamStr(Idx);
end;
*){--}{#END}

{#IF [WIN32]}{++}(*
function ParamStr( Idx: Integer ): String;
begin
 Result:=System.ParamStr(Idx);
end;
*){--}{#END}

{#IF not[DELPHI]}{-}
function ParamCount: Integer;
var
 S: string;
begin
 Result := 0;
 while True do
 begin
   S := ParamStr(Result + 1);
   if S = "" then Break;
   Inc(Result);
 end;
end;
{+}{#END}

{#IF [KYLIX]}{++}(*
function ParamCount: Integer;
begin
 if ArgCount > 1 then
   Result := ArgCount - 1
 else Result := 0;
end;
*){--}{#END}

{#IF [LINUX]}{++}(*
function ParamCount: Integer;
begin
 Result:=System.ParamCount;
end;
*){--}{#END}

{#IF [WIN32]}{++}(*
function ParamCount: Integer;
begin
 Result:=System.ParamCount;
end;
*){--}{#END}


ЗЫ: И там вообще уже много новых корректив появилось, надеюсь на днях поделиться.

---

Страницы: 1 вся ветка

Текущий архив: 2004.05.23;
Скачать: CL | DM;

Наверх

Память: 0.45 MB
Время: 0.039 c