[Lazarus] TRTLCriticalSection

Antonio Fortuny a.fortuny at sitasoftware.lu
Fri Nov 29 12:53:27 CET 2013


Le 29/11/2013 12:32, Michael Van Canneyt a écrit :
>
>
> On Fri, 29 Nov 2013, Antonio Fortuny wrote:
>
>> Hi Folks.
>>
>> On Linux x86_°64 Opensuse, Lazarus 1.0.12, FPC 2.6.2
>> Could anyone tell me why the next line
>>   EnterCriticalSection(CS);
>> with the following compiler error:
>> /home/sources/production/lib/usimplelogger.pas(180,27) Error: Call by 
>> var for arg no. 1 has to match exactly: Got "Pointer"
>> expected "QWord"  :-\
>> with somewhere before the declaration:
>> var
>>   CS: TRTLCriticalSection;
>>
>> whilst in threadh.inc the is:
>> procedure EnterCriticalsection(var cs : TRTLCriticalSection);
>>
>> which is pointed to when Ctrl-Left Click on the source unit word: 
>> EnterCriticalSection
>>
>> With same Lazarus/FPC into Win32 Vista no compiler error and runs OK
>
> What does TRTLCriticalSection point to ? There are multiple 
> definitions floating around, make sure you are taking the one from the 
> system unit:
>
> var
>    CS: system.TRTLCriticalSection;
This dit it. instering the system unit reference removel all compile 
errors. This gives the answer to the previous Sven answer.
It looks so trival that I Should have thought to this on my own. :-[

Many thanks Michael
>
>
> Michael.
>
>
> --
> _______________________________________________
> Lazarus mailing list
> Lazarus at lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus



---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active.
http://www.avast.com






More information about the Lazarus mailing list