- 1
- 2
- 3
- 4
function InterlockedExchangePointer(var Target: Pointer; Value: Pointer): Pointer;
begin
Result := Pointer(InterlockedExchange(Integer(Target), Integer(Value)));
end;
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+96
function InterlockedExchangePointer(var Target: Pointer; Value: Pointer): Pointer;
begin
Result := Pointer(InterlockedExchange(Integer(Target), Integer(Value)));
end;
Windows.pas
facepalm.jpg
Delphi, такой Delphi.
guest 14.08.2012 17:36 # −13
guest 14.08.2012 18:52 # −12
guest 14.08.2012 20:47 # +6
guest 17.08.2012 13:18 # +1
eshield 22.08.2012 18:25 # +1