[Comm] fpc+glut

[=?iso-8859-1?q?lnkvisitor=2Ets_=CE=C1_gmail=2Ecom?=]

на паскале пишу простинький код:
Program test;
uses
  glut,glu,gl;
Procedure Draw;cdecl; begin
 glClearColor(0,0,0,1);
 glClear(gl_color_buffer_bit);
 glfinish;
end;

begin
writeln('1');glutinit(@argc,argv);
writeln('2');glutinitdisplaymode(glut_rgb);
writeln('3');glutinitwindowsize(800,600);
writeln('4');glutcreatewindow('fff');
writeln('5');glutdisplayfunc(@Draw);
glutmainloop;
end.



в результате получаю
[lnk на localhost fpc]$ ./1
1
2
3
4
An unhandled exception occurred at $A7695F89 :
EInvalidOp : Invalid floating point operation
  $A7695F89
  $A71EEB6D
  $A714754C
  $A6C803BC
  $A730AF19
  $A7317485
  $A7323F85
  $A7806D37
  $A77FFBEE
  $A7DEB34F
  $A7DEB748
  $A7C700A6
  $A7C6E71C
  $A7C6FAE5
  $08048504  main,  line 21 of /home/lnk/fpc/1.pas



стоит freeglut-2.4.0-alt1


с чем .то может быть связанно?

----------- следующая часть -----------
Было удалено вложение не в текстовом формате...
Имя     : lnkvisitor.ts.vcf
Тип     : text/x-vcard
Размер  : 310 байтов
Описание: =?iso-8859-1?q?=CF=D4=D3=D5=D4=D3=D4=D7=D5=C5=D4?=
Url     : <http://lists.altlinux.org/pipermail/community/attachments/20080120/5f886057/attachment-0002.vcf>