Building Laz trunk+FPC trunk on Windows I get

win32object.inc(565,78) Error: Incompatible type for arg no. 4: Got "<address of procedure(QWord;LongWord;LongWord;LongWord);StdCall>", expected "<procedure variable type of
procedure(QWord;LongWord;QWord;LongWord);StdCall>" win32int.pp(328) Fatal: There were 1 errors compiling module, stopping

Probably due to FPC trunk FPC r22526
Eg changes like
-function SetTimer(hWnd:HWND; nIDEvent:UINT; uElapse:UINT;
lpTimerFunc:TIMERPROC):UINT; external 'user32' name 'SetTimer';
+function SetTimer(hWnd:HWND; nIDEvent:UINT_PTR; uElapse:UINT;
lpTimerFunc:TIMERPROC):UINT_PTR; external 'user32' name 'SetTimer';

My pointer magic is still weak - what do I need to modify here: I obviously need to go from the pointer to the UINT to the UINT itself, but my messing with @ didn't work...

function TWin32WidgetSet.CreateTimer(Interval: integer; TimerFunc:
TWSTimerProc) : THandle;
...
    {$IF FPC_FULLVERSION>=20701}
    // Windows function fixes in FPC r22526
    TimerInfo^.TimerID := Windows.SetTimer(0, 0, Interval,
@TimerCallBackProc);
    {$ELSE}
    TimerInfo^.TimerID := Windows.SetTimer(0, 0, Interval,
@TimerCallBackProc);
    {$ENDIF}

Thanks,
Reinier

2012/10/11 Reinier Olislagers :

Did you look at the patch supplied with the bug report I gave you?

IMHO, that patch is correct, except:
* use UINTPTR instead of THandle as record field.
* make sure it still compiles/runs with fpc 2.6.0, at least as good as the current version.

Vincent

Thanks, Vincent ;)

Patch attached to issue, compiles both on x64/fpctrunk and x86 FPC 2.6.1.

Note that it is scheduled to be merged to fixes in a few weeks.

Noticed backport to FPC 2.6.1; updated patch attached to issue http://bugs.freepascal.org/view.php?id=23052

Suggest it be applied and marked for inclusion in Lazarus fixes.

Thanks,
Reinier

Bump.

Could somebody have a look if they have time? The bug's not been assigned to somebody yet.

Thanks,
Reinier

2012/10/25 Reinier Olislagers

Should be fixed

Please, test

Luiz
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20121025/26fcfc46/attachment.html>

Thanks, Luiz, works fine when building a win32=>win64 cross compiler both FPC 2.6.1 and it works with fpc trunk x64.