Bugtracker для Lazarus работает?

Cobalt747 » 11.02.2009 15:00:54

У меня не открывается страничка http://bugs.freepascal.org, хотя хост замечательно пингуется.

Andreich » 11.02.2009 15:42:33

У меня все открывается!

Cobalt747 » 11.02.2009 17:53:48

может порт не тот?

зашел телнетом на 80-ый порт, дал
Get roadmap_page.php

Код: Выделить всё: <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN"> <html><head> <title>400 Bad Request</title> </head><body> <h1>Bad Request</h1> <p>Your browser sent a request that this server could not understand.<br /> </p> <hr> <address>Apache/2.2.8 (Ubuntu) DAV/2 SVN/1.5.1 PHP/5.2.4-2ubuntu5.4 with Suhosin-Patch Server at bugs.freepascal.org Port 80</address> </body></html> Подключение к узлу утеряно.

Mr.Smart » 11.02.2009 18:25:35

попробуй так.

Cobalt747 » 11.02.2009 21:25:32

увы

ftp://ftp.freepascal.org/ доступно, а вот
http://freepascal.org/ - нет (((

Максим » 12.02.2009 02:09:10

Ещё можно попробовать http://mantis.freepascal.org/my_view_page.php. А вообще, это, похоже, проблемы с маршрутизацией либо с прокси-сервером у вашего провайдера. Обратитесь в службу поддержки.

yuray » 13.02.2009 02:27:31

У меня тоже не открывается.

А очень надо. При переходе с 0.9.24 на 0.9.27 с gtk на gtk2 на строчке

Код: Выделить всё: if AVariant = Unassigned then Exit;

получаю ошибку 'EVariantInvalidOpError': Invalid variant operation Array of Variant = Empty.
Гугля дала ссылку на страничку. Подскажите,
что там написано? Как решить проблему?

Добавлено спустя 12 часов 21 минуту 23 секунды:
Видимо действительно проблемы с маршрутизацией. На работе все открылось.
Правда проблему с variant это не решило. Но это уже другая тема.

Максим » 14.02.2009 01:08:49

yuray
Проверьте на свежих версиях FPC (2.3.1 и 2.2.3). Если не будет работать, сообщите в багтрекер, желательно приложив коротенькую тестовую программу.

yuray » 14.02.2009 20:14:00

lazarus 0.9.27 rev 17945 fpc 2.2.3 - не работает. На последних ревизиях не проверял. На 0.9.24 работало.
В багтрекер напишу в понедельник, так как пока не работает. На всякий случай, у кого есть возможность подтвердите ошибку на последних ревизиях. Вот код

Код: Выделить всё: procedure TForm1.Button1Click(Sender: TObject); var v: Variant; begin v := VarArrayCreate([0, 1, 0, 2], varvariant); if v = Unassigned then ShowMessage('Unassigned') else ShowMessage('Assigned'); end;

Максим » 14.02.2009 21:14:12

Lazarus здесь не причём. Работа с variants зависит только от FPC. Вот упрощённый вариант вашей программы:

Код: Выделить всё: program variant_test; uses variants; var v: Variant; begin v := VarArrayCreate([0, 1, 0, 2], varvariant); if v = Unassigned then writeln('Unassigned') else writeln('Assigned'); end.

С FPC 2.2.3 действительно не работает.

Думаю, что и с 2.3.1 тоже работать не будет, так как этот код выдаёт ровно ту же ошибку и в Delphi 7. :mrgreen:

И, думаю, это логично, так как V после VarArrayCreate является массивом.

А вот такой код работает:

Код: Выделить всё: program variant_test; uses variants; var v: Variant; begin v := VarArrayCreate([0, 1, 0, 2], varvariant); if v[0,0] = Unassigned then writeln('Unassigned') else writeln('Assigned'); end.

yuray » 14.02.2009 23:05:54

Такой код мне не подходит, так как он не проверяет значение v. Если мы убирем инициализацию v, то будет другая ошибка

Код: Выделить всё: program variant_test; uses variants; var v: Variant; begin //v := VarArrayCreate([0, 1, 0, 2], varvariant); if v[0,0] = Unassigned then writeln('Unassigned') else writeln('Assigned'); end.

Как мне проверить значение переменной variant наперед не зная ее тип?

Максим » 15.02.2009 00:27:25

yuray писал(а):Как мне проверить значение переменной variant наперед не зная ее тип?

Единственное, что мне приходит в голову, это перехватить исключение при несрабатывании метода проверки, и попытаться проверить по-другому.
Я с variant никогда плотно не работал, может кто-то подскажет более хороший метод.

Кстати, а зачем вы так упорно хотите обойти механизмы типизации Паскаля?

yuray » 15.02.2009 00:34:47

Может следует про это в багтрекер написать, так как в 0.9.25 все работало нормально?

Максим » 15.02.2009 01:13:19

О чём писать-то? Логичное поведение, к тому же совместимое с Delphi.
Впрочем, можете попробовать, вдруг разработчики проникнутся. :mrgreen:

Правильный же метод решения ваших проблем - это не бороться с системой типизации и доработать архитектуру вашего софта.

yuray » 15.02.2009 02:56:54

Решил проблему так

Код: Выделить всё: program variant_test; uses variants; var v: Variant; begin v := VarArrayCreate([0, 1, 0, 2], varvariant); if VarIsArray(v) then writeln('Assigned') else begin if v = Unassigned then writeln('Unassigned') else writeln('Assigned'); end; end.

Так вроде все работает. Извините за оффтоп.

Bugtracker для Lazarus работает?

Bugtracker для Lazarus работает?

Re: Bugtracker для Lazarus работает?

Re: Bugtracker для Lazarus работает?

Re: Bugtracker для Lazarus работает?

Re: Bugtracker для Lazarus работает?

Re: Bugtracker для Lazarus работает?

Re: Bugtracker для Lazarus работает?

Re: Bugtracker для Lazarus работает?

Re: Bugtracker для Lazarus работает?

Re: Bugtracker для Lazarus работает?

Re: Bugtracker для Lazarus работает?

Re: Bugtracker для Lazarus работает?

Re: Bugtracker для Lazarus работает?

Re: Bugtracker для Lazarus работает?

Re: Bugtracker для Lazarus работает?

Кто сейчас на конференции