Ergebnis der Suchanfrage

• Forum: FreePascal

  AW: InterlockedCompareExchange in FreePascal

   
    by Alter Mann, 6. Jan 2015
  Hallo,
  
  ich habe die Sache auf eine andere Art gelöst, ist aber nicht so schön:(
  
  function InterlockedCompareExchangePtr(var Target : Pointer; NewValue : Ponter; Comperad . Pointer): Pointer;
  var
  TV, NV, CO : Longint;
  begin
  TV := Longint(Target);
  NV := Longint(NewValue);
• Forum: FreePascal

  AW: InterlockedCompareExchange in FreePascal

   
    by Alter Mann, 6. Jan 2015
  Ich habe mal nach geschaut:
  
  in der jwawinbase.pas als
  function InterlockedCompareExchange64(var Destination: LONGLONG; Exchange, Comperand: LONGLONG): LONGLONG; stdcall;
  in der c:\lazarus\fpc\2.6.4\source\rtl\i386\i386.inc als
  function InterlockedCompareExchange(var Target: longint; NewValue: longint; Comperand: longint): longint; assembler;
  asm
  xchgl %eax,%ecx
  lock
  ...
• Forum: FreePascal

  InterlockedCompareExchange in FreePascal

   
    by Alter Mann, 6. Jan 2015
  Hallo,
  
  ich habe ein kleines (verständniss) Problem:(
  
  ...
  Target, NewValue : Pointer;
  ...
  if InterlickedCompareExchange(Target, NewValue, nil) <> nil then //<< Hier
  ...