blob: e4a88748a8491a4b5ffd502a1737c85c38c35eb4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
{ Source provided for Free Pascal Bug Report 3474 }
{ Submitted by "Alexey Barkovoy" on 2004-12-26 }
{ e-mail: clootie@ixbt.com }
unit uw3474b;
interface
{$INLINE ON}
{$MODE DELPHI}
function V_Failed(Status: HRESULT): Boolean; inline;
implementation
uses uw3474a;
function V_Failed(Status: HRESULT): Boolean;
begin
Result := Status <> 0;
end;
end.
|