← Back to branch summary

~ubuntu-branches/ubuntu/feisty/fpc/feisty

« back to all changes in this revision

Viewing changes to rtl/objpas/varutilh.inc

  • Committer: Bazaar Package Importer
  • Author(s): Torsten Werner
  • Date: 2007-01-27 20:08:50 UTC
  • mfrom: (1.2.3 upstream)
  • Revision ID: james.westby@ubuntu.com-20070127200850-9mrptaqqjsx9nwa7
Tags: 2.0.4-5
* Fixed Build-Depends.
* Add myself to Uploaders in debian/control.
* Make sure that the sources are really patched before building them.
* Build unit 'libc' on powerpc too.

Show diffs side-by-side

added added

removed removed

Lines of Context:
rtl/objpas/varutilh.inc
1
1
{
2
 
    $Id: varutilh.inc,v 1.10 2005/02/25 14:39:31 peter Exp $
3
2
    This file is part of the Free Pascal run time library.
4
3
    Copyright (c) 2000,2001 by the Free Pascal development team
5
4
 
17
16
 **********************************************************************}
18
17
 
19
18
 
20
 
{$ifdef HASVARIANT}
21
 
Type
22
 
  EVarianterror = Class(Exception)
23
 
    ErrCode : longint;
24
 
    Constructor CreateCode(Code : Longint);
25
 
  end;
26
 
 
27
19
{ Variant functions }
28
20
function VariantChangeTypeEx(var VargDest: TVarData; const VargSrc: TVarData; LCID: Integer; Flags: Word; VarType: Word): HRESULT; stdcall;
29
21
function VariantClear(var Varg: TVarData): HRESULT; stdcall;
77
69
Procedure DumpVariant(Var F : Text; Const VArgSrc : TVarData);
78
70
 
79
71
 
 
72
{$i varerror.inc}
80
73
// Names match the ones in Borland varutils unit.
81
 
 
82
74
const
83
 
  VAR_OK            = HRESULT($00000000);
84
 
  VAR_PARAMNOTFOUND = HRESULT($80020004);
85
 
  VAR_TYPEMISMATCH  = HRESULT($80020005);
86
 
  VAR_BADVARTYPE    = HRESULT($80020008);
87
 
  VAR_EXCEPTION     = HRESULT($80020009);
88
 
  VAR_OVERFLOW      = HRESULT($8002000A);
89
 
  VAR_BADINDEX      = HRESULT($8002000B);
90
 
  VAR_ARRAYISLOCKED = HRESULT($8002000D);
91
 
  VAR_NOTIMPL       = HRESULT($80004001);
92
 
  VAR_OUTOFMEMORY   = HRESULT($8007000E);
93
 
  VAR_INVALIDARG    = HRESULT($80070057);
94
 
  VAR_UNEXPECTED    = HRESULT($8000FFFF);
95
 
 
96
75
  ARR_NONE          = $0000;
97
76
  ARR_FIXEDSIZE     = $0010;
98
77
  ARR_OLESTR        = $0100;
100
79
  ARR_DISPATCH      = $0400;
101
80
  ARR_VARIANT       = $0800;
102
81
 
103
 
{$endif HASVARIANT}
104
 
 
105
 
{
106
 
  $Log: varutilh.inc,v $
107
 
  Revision 1.10  2005/02/25 14:39:31  peter
108
 
    * 64bit fixes
109
 
 
110
 
  Revision 1.9  2005/02/14 17:13:31  peter
111
 
    * truncate log
112
 
 
113
 
}
 
82