invrules.int

来自「delphi 7开发指南delphi 开发指南」· INT 代码 · 共 24 行

{*******************************************************}
{                                                       }
{ Borland Delphi Visual Component Library               }
{       SOAP           Support                          }
{                                                       }
{ Copyright (c) 2001 Borland Software Corporation       }
{                                                       }
{*******************************************************}
unit InvRules;


interface

uses TypInfo, IntfInfo;

function RetOnStack(Info: PTypeInfo): Boolean;
function RetInFPU(Info: PTypeInfo): Boolean;
function GetTypeSize(P: PTypeInfo): Integer;
function GetStackTypeSize(P: PTypeInfo;  CC: TCallConv): Integer;
function IsParamByRef(Flags: TParamFlags; ParamInfo: PTypeInfo; CC: TCallConv): Boolean;
function IsRetInAXDX(Info: PTypeInfo): Boolean;

implementation