← Back to branch summary

~ubuntu-branches/ubuntu/dapper/fpc/dapper

« back to all changes in this revision

Viewing changes to fcl/classes/lists.inc

  • Committer: Bazaar Package Importer
  • Author(s): Carlos Laviola
  • Date: 2005-05-30 11:59:10 UTC
  • mfrom: (1.2.2 upstream)
  • Revision ID: james.westby@ubuntu.com-20050530115910-x5pbzm4qqta4i94h
Tags: 2.0.0-2
http://bugs.debian.org/310907
debian/fp-compiler.postinst.in: forgot to reapply the patch that
correctly creates the slave link to pc(1).  (Closes: #310907)

Show diffs side-by-side

added added

removed removed

Lines of Context:
fcl/classes/lists.inc
1
1
{
2
 
    $Id: lists.inc,v 1.2 2003/10/07 14:30:57 marco Exp $
 
2
    $Id: lists.inc,v 1.4 2005/05/12 21:47:34 hajny Exp $
3
3
    This file is part of the Free Component Library (FCL)
4
4
    Copyright (c) 1999-2000 by the Free Pascal development team
5
5
 
84
84
  if NewCapacity=FCapacity then
85
85
    exit;
86
86
  ReallocMem(FList,SizeOf(Pointer)*NewCapacity);
 
87
  if NewCapacity > FCapacity then
 
88
    FillChar (FList^ [FCapacity],
 
89
                              (NewCapacity - FCapacity) * SizeOf (pointer), 0);
87
90
  FCapacity:=NewCapacity;
88
91
end;
89
92
 
450
453
 
451
454
{
452
455
  $Log: lists.inc,v $
453
 
  Revision 1.2  2003/10/07 14:30:57  marco
454
 
   * 1.0 version of assign
455
 
 
456
 
  Revision 1.1  2003/10/06 20:33:58  peter
457
 
    * classes moved to rtl for 1.1
458
 
    * classes .inc and classes.pp files moved to fcl/classes for
459
 
      backwards 1.0.x compatiblity to have it in the fcl
460
 
 
461
 
  Revision 1.9  2002/09/07 15:15:24  peter
462
 
    * old logs removed and tabs fixed
463
 
 
464
 
  Revision 1.8  2002/08/16 10:04:58  michael
465
 
  + Notify correctly implemented
466
 
 
467
 
  Revision 1.7  2002/07/16 14:00:55  florian
468
 
    * raise takes now a void pointer as at and frame address
469
 
      instead of a longint, fixed
 
456
  Revision 1.4  2005/05/12 21:47:34  hajny
 
457
    * fix for SIGSEGV due to access to uninitialized pointers in TList
 
458
 
 
459
  Revision 1.3  2005/02/14 17:13:11  peter
 
460
    * truncate log
470
461
 
471
462
}