[Solved] Can't compile Lazpaint in Lazarus x64

[lainz]

Lazarus 0.9.30.4 r35940 FPC 2.6.0 x86_64-win64-win32/win64

LazPaint latest svn

Hint: Start of reading config file C:\lazarus\fpc\2.6.0\bin\x86_64-win64\fpc.cfg
Hint: End of reading config file C:\lazarus\fpc\2.6.0\bin\x86_64-win64\fpc.cfg
Free Pascal Compiler version 2.6.0 [2012/03/14] for x86_64
Copyright (c) 1993-2011 by Florian Klaempfl and others
Target OS: Win64 for x64
.
.
.
uchoosecolor.pas(220,111) Error: Can't determine which overloaded function to call
bgradefaultbitmap.pas(1100,29) Hint: Found declaration: TBGRADefaultBitmap.GetPixel(Single,Single,TResampleFilter="0"):<record type>;
bgradefaultbitmap.pas(1087,29) Hint: Found declaration: TBGRADefaultBitmap.GetPixel(LongInt,LongInt):<record type>;
uchoosecolor.pas(362) Fatal: There were 1 errors compiling module, stopping

[circular]

This is a compiler issue, I suppose. Please try with a another version of the compiler.

[lainz]

It's the latest oficial lazarus download for windows 64

edit: it's solved changing this line in uchoosecolor.pas

pix := Colorcircle.bmpMaxlight.GetPixel(x-ColorCircle.Bounds.Left,y-ColorCircle.Bounds.top);

to

pix := Colorcircle.bmpMaxlight.GetPixel(LongInt(x-ColorCircle.Bounds.Left),LongInt(y-ColorCircle.Bounds.top));

if this works for you please update the source

btw there is an unknown exception on starting lazpaint

then the fileutil.inc at line 1459 is highlighted

fs := TFileStream.Create(UTF8ToSys(Filename), fmOpenRead or fmShareDenyWrite);

this is a lazarus or lazpaint problem?

[circular]

This is mysterious. Really, I think both problems are related to FPC.

[lainz]

Must be, the problem is that the compiler "don't understand" the result of a math operation in 64 bits with type integer and type longint.

pix := Colorcircle.bmpMaxlight.GetPixel(x-ColorCircle.Bounds.Left,y-ColorCircle.Bounds.top);

the function expect longint and the used values are integer.

maybe there is some switch to handle this?

pd: i'm talking with ignorance of

[circular]

Oh type integer does not mean the same in 64 bits ?

I've checked it :

FPC currently uses 32 bits (4 bytes) for integers, whether the machine is a 32-bit or 64-bit machine. This will cause code expecting an integer and a pointer to be the same size to fail as a 64-bit machine uses 64-bit pointers. To allow you to write portable code, the FPC system unit introduces the types PtrInt and PtrUInt which are signed and unsigned integer data types with the same size as a pointer.

http://wiki.freepascal.org/Integer/fr

So integer always = longint.

[marcov]

So integer always = longint.

In Delphi like (objfpc and delphi) modes.

In TP and FPC (default) mode, they are 16-bit.

[lainz]

Now I understand you is a problem of the compiler if both types are the same because LazPaint is using objfpc mode ¬¬