mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:38:14 +02:00
22 lines
357 B
ObjectPascal
22 lines
357 B
ObjectPascal
{ 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.
|