Компилятор игнорирует директиву $F

@Kertis138 · Регистрация: 25.02.2016

Author24 — интернет-сервис помощи студентам

Здравствуйте!
Компилятор игнорирует директиву $F.
Проверял код в PascalABС, там все работает.

Вот сама программа:

Pascal

type proc =procedure();
{$F+}
procedure foo();
begin
 write('Hello');
end;
{$F-}
 
procedure boo(p:proc);
begin
 p();
end;
 
begin
    boo(foo);
end.

Подскажите, как это исправить в Free Pascal
Вот что выдает компилятор:

Pascal

1
2
3

testpas.pas(15,12) Error: Incompatible type for arg no. 1: Got "untyped", expected "<procedure variable type of procedure;Register>"
testpas.pas(16,4) Fatal: There were 1 errors compiling module, stopping
testpas.pas(0) Fatal: Compilation aborted

@volvo · 27.02.2016, 17:53

Не нужна тут директива {$F}. Синтаксис FPC требует:

Pascal

1	boo(@foo);

, и все работает

@Kertis138 · 27.02.2016, 18:02 **[ТС]**

volvo, Спасибо

@Kertis138 6 / 6 / 1 Регистрация: 25.02.2016 Сообщений: 335
	27.02.2016, 18:02 [ТС]	3
	volvo, Спасибо 0

Опции темы