← Back to branch summary

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

« back to all changes in this revision

Viewing changes to rtl/objpas/classes/bits.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/classes/bits.inc
1
1
{
2
 
    $Id: bits.inc,v 1.4 2005/02/14 17:13:31 peter Exp $
3
2
    This file is part of the Free Component Library (FCL)
4
3
    Copyright (c) 1999-2000 by the Free Pascal development team
5
4
 
18
17
Procedure BitsError (Msg : string);
19
18
 
20
19
begin
21
 
{$ifdef VER1_0}
22
 
  Raise EBitsError.Create(Msg) at longint(get_caller_addr(get_frame));
23
 
{$else VER1_0}
24
20
  Raise EBitsError.Create(Msg) at get_caller_addr(get_frame);
25
 
{$endif VER1_0}
26
21
end;
27
22
 
28
23
Procedure BitsErrorFmt (Msg : string; const Args : array of const);
29
24
 
30
25
begin
31
 
{$ifdef VER1_0}
32
 
  Raise EBitsError.CreateFmt(Msg,args) at longint(get_caller_addr(get_frame));
33
 
{$else VER1_0}
34
26
  Raise EBitsError.CreateFmt(Msg,args) at get_caller_addr(get_frame);
35
 
{$endif VER1_0}
36
27
end;
37
28
 
38
29
procedure TBits.CheckBitIndex (Bit : longint;CurrentSize : Boolean);
96
87
 
97
88
{ ******************** TBits ***************************** }
98
89
 
99
 
constructor TBits.Create(theSize : longint {$ifndef VER1_0} = 0 {$endif});
 
90
constructor TBits.Create(theSize : longint = 0 );
100
91
begin
101
92
   FSize := 0;
102
93
   FBits := nil;
373
364
end;
374
365
 
375
366
 
376
 
{
377
 
  $Log: bits.inc,v $
378
 
  Revision 1.4  2005/02/14 17:13:31  peter
379
 
    * truncate log
380
 
 
381
 
}