Сборка FreePascal в Delphi ?

[defecator]

Привет всем !

Реально ли собрать FreePascal в Delphi ?
Не собирается, зараза

[Mr.Smart]

Нереально

[defecator]

У меня версия 1.0 есть, она собирается на раз.
Надо только подшаманить там в нескольких файлах, а так собирается в Delphi 7 без проблем.

[Mr.Smart]

Версия 2.x.x очень сильно отличается от версии 1.0

[alexs]

А зачем?

[defecator]

Ну, хочется мне собрать его в Delphi, и использовать не как отдельный продукт, а в составе своей программы в качестве компилирующего ядра. Сейчас используется версия FP 1.0, она в Delphi 5/7 компилируется совершенно нормально (после не очень больших допилок).

Теперь буду пробовать адаптировать 2.x, может быть, получится. По крайней мере, в моем случае, овчинка выделки стоит.
Тем более, что по сравнению с 1.х, версия 2.х не представляет собой того хаоса исходников, которое наблюдается в 1.х

[Дож]

А скомпилить в отдельную dll и вызывать из Delphi?

[defecator]

Это я сделаю, если не получится адаптировать под Delphi
Но хотелось бы обойтись без дополнительных файлов

[скалогрыз]

Ну, хочется мне собрать его в Delphi, и использовать не как отдельный продукт, а в составе своей программы в качестве компилирующего ядра. Сейчас используется версия FP 1.0, она в Delphi 5/7 компилируется совершенно нормально (после не очень больших допилок).

Теперь буду пробовать адаптировать 2.x, может быть, получится. По крайней мере, в моем случае, овчинка выделки стоит.
Тем более, что по сравнению с 1.х, версия 2.х не представляет собой того хаоса исходников, которое наблюдается в 1.х

напомню про GPL лицензию компилятора!

[defecator]

А, ну дык это я помню.

Моя прога только для внутреннего использования, не распространяется и наружу не выходит,
а используется для генерации "промежуточного" кода для виртуальной машины. Вот он уже используется "снаружи".
И насколько я знаю, результат работы программы, использующей код, подпадающий под лицензию GPL, не подпадает под GPL.

[defecator]

Адаптировал исходники под компиляцию в Delphi 7.
После самосборки компилятор остался компилятором ! Ура !

P.S. Ну-у-у-у, господа разработчики компилятора, там стоооолько мусора.....
У меня волосы шевелились на голове, когда я тексты смотрел - а ведь пришлось пересмотреть почти все файлы.

Ну нельзя же так !!! Может быть, провести вам какую-то ревизию кода ????
Народ !!!! Там же натуральная помойка !!!!!!!!!

[Mr.Smart]

А лицензия хотябы FreePascal вас не смущает?

[Максим]

P.S. Ну-у-у-у, господа разработчики компилятора, там стоооолько мусора.....
У меня волосы шевелились на голове, когда я тексты смотрел - а ведь пришлось пересмотреть почти все файлы.

Ну нельзя же так !!! Может быть, провести вам какую-то ревизию кода ????
Народ !!!! Там же натуральная помойка !!!!!!!!!

С этими вопросами приходите в списки рассылки и багтрекер. Если то, что вы считаете мусором, действительно таковым является, у вас с удовольствием примут патчи, исправляющие данную ситуацию.

[defecator]

А лицензия хотябы FreePascal вас не смущает?

А что такое с лицензией ? В ней написано, что я не могу компилировать исходники под Delphi ?
Заголовки модулей остались в полной сохранности

С этими вопросами приходите в списки рассылки и багтрекер. Если то, что вы считаете мусором, действительно таковым является, у вас с удовольствием примут патчи, исправляющие данную ситуацию

ээээ, нет патчить я ничего там не собираюсь, работает - и не трожь
Да и времени у меня на это нет.

==============================================================================
==============================================================================
==============================================================================
Что-то я не пойму работу вот этого кода

на входе функции IndexWord (входные данные получены из отладчика) :
buf = {16,17,18,0,0,0,20,21,56 и т.д}
Len = 3
b = 18 (искомое значение)

Сама функция:

function IndexWord(Const buf;len:LongInt;b:word):LongInt;
var
psrc,pend : pword;
begin
psrc:=@buf;
{ simulate assembler implementations behaviour, which is expected }
{ fpc_pchar_to_ansistr in astrings.inc }
if (len < 0) or
{ is this ever true? }
(len > high(PtrInt)) or
(DWORD(psrc)+len < DWORD(psrc)) then
pend:=pword(high(PtrUInt)-sizeof(word))
else
DWORD(pend):=DWORD(psrc)+len;

{ точка 1 }
while DWORD(psrc) < DWORD(pend) do
begin
if psrc^=b then
begin
result:=DWORD(psrc)-DWORD(pword(@buf));
exit;
end;
inc(psrc);
end;
result:=-1;
end;

дело в том, что цикл в ТОЧКЕ 1 никогда не дойдет до значения 18
при том условии, которое указано в while.

Собственно, даже пример по этой ссылке:
http://www.freepascal.org/docs-html/rtl/system/indexword.html
НЕ РАБОТАЕТ

[Максим]

Не вижу, почему этот код не дойдёт до значения 18, честно говоря. Всё ведь зависит от значения b?

Собственно, даже пример по этой ссылке:
http://www.freepascal.org/docs-html/rtl ... xword.html
НЕ РАБОТАЕТ

А у меня, вроде бы, работает (FPC 2.3.1, Win32). Было бы небезынтересно увидеть, что у вас не работает, и на какой версии компилятора.
Вы как-то неконкретно выражаетесь - "помойка", "не работает".