Не компилируется в fpc под Linux

[Mavlyudov]

При пеерводе программы из-под винды в линукс возникла проблема.
Код не кмпилируется. В коде ничего не менял.
Под win32 средствами free pascal компилируется без проблем.

Код: Выделить всё

PROGRAM TEST1;

TYPE
FUNIN = FUNCTION : INTEGER;
VAR
SGETMAXY : FUNIN;
K7:INTEGER;
BEGIN
K7:=SGETMAXY DIV 50;
END.

Под Ubuntu выдает ошибку

Код: Выделить всё

TEST1.PAS(12,5) Warning: Variable "SGETMAXY" does not seem to be initialized
TEST1.PAS(12,5) Error: Incompatible types: got "<procedure variable type of function:SmallInt;Register>" expected "SmallInt"
TEST1.PAS(14) Fatal: There were 1 errors compiling module, stopping
Fatal: Compilation aborted


Как поправить?

[Дож]

Проинициализировать SGETMAXY.

[Mavlyudov]

Дож
Как? Вообще это отдельный модуль, я для простоты переделал в программу.
В винде компилируется.

[Дож]

SGETMAXY := nil;

А, у вас не компилируется из-за ошибки, а не варнинга... Не сразу заметил. Тогда ещё попробуйте добавить скобочки

Код: Выделить всё

K7:=SGETMAXY() DIV 50;


[Vadim]

При пеерводе программы из-под винды в линукс возникла проблема.
Код не кмпилируется. В коде ничего не менял.
Под win32 средствами free pascal компилируется без проблем.

Ваша неправда, в винде этот код тоже не компилируется. Такое впечатление, что у Вас на компе одно, а сюда нам Вы выкладываете совсем другое. И как по Вашему мы сможем определить в чём ошибка? Постарайтесь быть внимательнее, иначе все Ваши вопросы будут оставаться гласом вопиющего в пустыне...
Конкретно по выложенному коду:
Вне зависимости от успехов компиляции, этот дурной код работать не будет.
SGETMAXY - у Вас имеет процедурный тип. Прежде чем использовать переменную (любого типа) ей нужно присвоить значение, соответствующее её типу. Вы этого не сделали! Ошибка именно в этом. Хотя компилятор по этому поводу выдал всего лишь предупреждение (warning), но это как раз ошибка. Компилятору, по идее, абсолютно всё равно, есть у Вас в переменной какое-нибудь значение или только мусор, поэтому он и оформил этот момент как предупреждение. Однако с Вашей стороны - это ошибка.
И, как сказал Дож, поставьте там скобочки, чтобы компилятор знал, что это уже не переменная, а именно функция. Потому что компилятору нужны точные указания, а то, что Вы имели в виду, Вы сами то знаете, а вот компилятору сказать об этом забыли. За что он Вам плюху и выдал...

[Dakor]

Как поправить?

Код: Выделить всё

PROGRAM TEST1;

TYPE
FUNIN = FUNCTION : INTEGER;

function MyFunc: Integer;
begin
  MyFunc:= 100; // здесь Ваш расчет нужного значения
end;

VAR
SGETMAXY : FUNIN;
K7:INTEGER;
BEGIN
SGETMAXY:= @MyFunc;
K7:=SGETMAXY DIV 50;
END.

Процедурный тип мало объявить, нужно написать и соответствующую функцию, адрес которой и присвоить переменной процедурного типа.

[Mavlyudov]

Vadim
Компилируется в винде! Я записал видео в подтверждение: https://youtu.be/KL39Oz9ltZ4.
Но, я вспомнил, что версия компилятора ppc386 у меня довольно старая на винде.
Если в видео не видно, то приведу тут:

Код: Выделить всё

Free Pascal Compiler version 1.0.10 [2003/06/27] for i386
Copyright (c) 1993-2003 by Florian Klaempfl
Hint: Path "d:\sss\units\win32\" not found
Hint: Path "d:\sss\units\win32\rtl\" not found
Target OS: Win32 for i386
Compiling test1.pas
syswin32.pp(3,1) Hint: Conditional I386 was set at startup in last compilation of syswin32.pp
test1.pas(9,13) Warning: Variable SGETMAXY does not seem to be initialized
test1.pas(7,1) Note: Local variable K7 is assigned but never used
Linking test1.exe
10 Lines compiled, 0.3 sec

А параметры bat-файла, которым компилирую такие:

Код: Выделить всё

\SSS\cmp\ppc386 -Sd -Sg -Un -O1 -Xs %1 -FU\S000\MOD -Fo\S000\MOD -WG -WN

Версия минимального моего компилятора тут https://dropmefiles.com/1YM5J

[Vadim]

Но, я вспомнил, что версия компилятора ppc386 у меня довольно старая на винде.

Вот я и говорю - у Вас там одно, а у нас здесь совершенно другое. Если мы будем беседовать без знания таких основополагающих нюансов, то вряд ли будем ясно понимать друг друга... Могу по этому поводу сказать, что разработчики с тех пор, когда была версия 1.0.10, поняли, что от программистов трудно ожидать понимания того, что они делают, поэтому проверку кода в компиляторе ужесточили.
Безотносительно версии компилятора. Всё, что я Вам говорил, по поводу приведённого Вами в начале кода, не перестаёт быть справедливым. Учтите это.

[Дож]

Mavlyudov,

Компилируется в винде! Я записал видео в подтверждение: https://youtu.be/KL39Oz9ltZ4.

уберите ключик -Sd и выдаст ту же ошибку, что и в линуксе.

[alexs]

Mavlyudov
Всё дело в волшебных пузырьках - добавь скобки:

Код: Выделить всё

PROGRAM TEST1;
TYPE
  FUNIN = FUNCTION : INTEGER;
VAR
  SGETMAXY : FUNIN;
  K7:INTEGER;
BEGIN
  K7:=SGETMAXY() DIV 50;
END.