Browse Source

Merged revisions 42 via svnmerge from
/trunk

git-svn-id: branches/fixes_2_0@45 -

fpc 20 years ago
parent
commit
b409904e44
100 changed files with 2 additions and 721 deletions
  1. 0 1
      compiler/compinnr.inc
  2. 0 1
      compiler/i386/cpubase.inc
  3. 0 1
      compiler/sparc/opcode.inc
  4. 0 1
      compiler/sparc/strinst.inc
  5. 0 7
      compiler/utils/fixlog.pp
  6. 0 6
      compiler/utils/fixmsg.pp
  7. 0 7
      compiler/utils/fixnasm.pp
  8. 0 1
      compiler/utils/fixtab.pp
  9. 0 1
      compiler/utils/fpc.pp
  10. 0 18
      compiler/utils/fpcmkcfg.pp
  11. 0 1
      compiler/utils/fpcsubst.pp
  12. 0 1
      compiler/utils/fpimpdef.pp
  13. 0 7
      compiler/utils/gppc386.pp
  14. 0 7
      compiler/utils/mk68kreg.pp
  15. 0 7
      compiler/utils/mkarmreg.pp
  16. 0 6
      compiler/utils/mkmpsreg.pp
  17. 0 7
      compiler/utils/mkppcreg.pp
  18. 0 7
      compiler/utils/mkspreg.pp
  19. 0 7
      compiler/utils/mkx86ins.pp
  20. 0 7
      compiler/utils/mkx86reg.pp
  21. 0 13
      compiler/utils/msg2inc.pp
  22. 0 7
      compiler/utils/msgdif.pp
  23. 0 31
      compiler/utils/ppudump.pp
  24. 0 7
      compiler/utils/ppufiles.pp
  25. 0 7
      compiler/utils/ppumove.pp
  26. 0 16
      compiler/utils/usubst.pp
  27. 0 1
      compiler/x86_64/cpubase.inc
  28. 0 14
      demo/graph/fpctris.pp
  29. 0 22
      demo/graph/gameunit.pp
  30. 0 5
      demo/graph/gravwars.pp
  31. 0 16
      demo/graph/mandel.pp
  32. 0 9
      demo/graph/maze.pp
  33. 0 15
      demo/graph/quad.pp
  34. 0 29
      demo/graph/samegame.pp
  35. 0 16
      demo/linux/daemon.pp
  36. 0 10
      demo/modex/voxel.pp
  37. 0 9
      demo/netware/check.pp
  38. 0 8
      demo/netware/nutconnection.pp
  39. 0 11
      demo/netware/nutmon.pp
  40. 0 1
      demo/netwlibc/nuttest.pp
  41. 0 1
      demo/os2/pmdemo1.pp
  42. 0 8
      demo/text/blackbox.pp
  43. 0 1
      demo/text/eratos.pp
  44. 0 1
      demo/text/hello.pp
  45. 0 1
      demo/text/lines.pp
  46. 0 7
      demo/text/magic.pp
  47. 0 10
      demo/text/qsort.pp
  48. 0 7
      demo/win32/dlltest.pp
  49. 0 8
      demo/win32/edit.pp
  50. 0 14
      demo/win32/menu.pp
  51. 0 7
      demo/win32/testdll.pp
  52. 0 11
      demo/win32/winhello.pp
  53. 0 7
      fcl/amiga/classes.pp
  54. 0 1
      fcl/amiga/eventlog.inc
  55. 0 1
      fcl/amiga/pipes.inc
  56. 0 1
      fcl/amiga/thread.inc
  57. 0 7
      fcl/beos/classes.pp
  58. 0 1
      fcl/beos/eventlog.inc
  59. 0 1
      fcl/beos/pipes.inc
  60. 0 1
      fcl/beos/thread.inc
  61. 0 8
      fcl/darwin/syncobjs.pp
  62. 0 1
      fcl/db/bufdataset.inc
  63. 0 1
      fcl/db/database.inc
  64. 0 1
      fcl/db/dataset.inc
  65. 0 70
      fcl/db/db.pp
  66. 0 29
      fcl/db/dbconst.pp
  67. 0 7
      fcl/db/dbwhtml.pp
  68. 0 5
      fcl/db/ddg_ds.pp
  69. 0 5
      fcl/db/ddg_rec.pp
  70. 0 1
      fcl/db/fields.inc
  71. 1 16
      fcl/db/interbase/interbase.pp
  72. 0 8
      fcl/db/interbase/testib.pp
  73. 0 1
      fcl/db/memds/memds.pp
  74. 0 1
      fcl/db/memds/testcp.pp
  75. 0 1
      fcl/db/memds/testld.pp
  76. 0 1
      fcl/db/memds/testopen.pp
  77. 0 1
      fcl/db/memds/testpop.pp
  78. 0 8
      fcl/db/mysql/mtest.pp
  79. 0 11
      fcl/db/mysql/mysqldb3.pp
  80. 0 8
      fcl/db/mysql/mysqldb4.pp
  81. 0 1
      fcl/db/odbc/fpodbc.pp
  82. 0 1
      fcl/db/sqldb/interbase/ibconnection.pp
  83. 0 1
      fcl/db/sqldb/postgres/pqconnection.pp
  84. 1 52
      fcl/db/sqldb/sqldb.pp
  85. 0 1
      fcl/db/sqldb/testsqldb.pp
  86. 0 7
      fcl/db/tests/createds.pp
  87. 0 7
      fcl/db/tests/testds.pp
  88. 0 7
      fcl/db/tests/tested.pp
  89. 0 1
      fcl/fpcunit/demo/consolerunner/suiteconfig.pp
  90. 0 1
      fcl/fpcunit/demo/consolerunner/testrunner.pp
  91. 0 1
      fcl/fpcunit/exampletests/fpcunittests.pp
  92. 0 1
      fcl/fpcunit/exampletests/money.pp
  93. 0 1
      fcl/fpcunit/exampletests/moneytest.pp
  94. 0 2
      fcl/fpcunit/exampletests/testmockobject.pp
  95. 0 1
      fcl/fpcunit/fpcunit.pp
  96. 0 2
      fcl/fpcunit/testdecorator.pp
  97. 0 2
      fcl/fpcunit/testregistry.pp
  98. 0 1
      fcl/fpcunit/testreport.pp
  99. 0 2
      fcl/fpcunit/tests/asserttest.pp
  100. 0 1
      fcl/fpcunit/tests/frameworktest.pp

+ 0 - 1
compiler/compinnr.inc

@@ -1,5 +1,4 @@
 {
 {
-    $Id: compinnr.inc,v 1.16 2005/02/14 17:13:06 peter Exp $
     This file is part of the Free Pascal run time library and compiler.
     This file is part of the Free Pascal run time library and compiler.
     Copyright (c) 1998-2002 by the Free Pascal development team
     Copyright (c) 1998-2002 by the Free Pascal development team
 
 

+ 0 - 1
compiler/i386/cpubase.inc

@@ -1,5 +1,4 @@
 {
 {
-    $Id: cpubase.inc,v 1.18 2005/02/14 17:13:09 peter Exp $
     Copyright (c) 1998-2000 by Florian Klaempfl and Peter Vreman
     Copyright (c) 1998-2000 by Florian Klaempfl and Peter Vreman
 
 
     Contains the basic declarations for the i386 architecture
     Contains the basic declarations for the i386 architecture

+ 0 - 1
compiler/sparc/opcode.inc

@@ -1,5 +1,4 @@
 {******************************************************************************
 {******************************************************************************
-        $Id: opcode.inc,v 1.17 2005/02/14 17:13:10 peter Exp $
  *****************************************************************************}
  *****************************************************************************}
 A_NONE,
 A_NONE,
 A_ABCD,
 A_ABCD,

+ 0 - 1
compiler/sparc/strinst.inc

@@ -1,5 +1,4 @@
 {******************************************************************************
 {******************************************************************************
-        $Id: strinst.inc,v 1.16 2005/02/14 17:13:10 peter Exp $
  *****************************************************************************}
  *****************************************************************************}
           'none',
           'none',
           'abcd',
           'abcd',

+ 0 - 7
compiler/utils/fixlog.pp

@@ -1,5 +1,4 @@
 {
 {
-    $Id: fixlog.pp,v 1.8 2005/02/14 17:13:10 peter Exp $
     Copyright (c) 1998-2002 by Peter Vreman
     Copyright (c) 1998-2002 by Peter Vreman
 
 
     Remove all revision logs from source files after X revisions or
     Remove all revision logs from source files after X revisions or
@@ -173,9 +172,3 @@ begin
      findclose(dir);
      findclose(dir);
    end;
    end;
 end.
 end.
-{
-  $Log: fixlog.pp,v $
-  Revision 1.8  2005/02/14 17:13:10  peter
-    * truncate log
-
-}

+ 0 - 6
compiler/utils/fixmsg.pp

@@ -64,9 +64,3 @@ begin
   close(f);
   close(f);
   close(t);
   close(t);
 end.
 end.
-
-  $Log: fixmsg.pp,v $
-  Revision 1.5  2005/02/14 17:13:10  peter
-    * truncate log
-
-}

+ 0 - 7
compiler/utils/fixnasm.pp

@@ -1,5 +1,4 @@
 {
 {
-    $Id: fixnasm.pp,v 1.6 2005/02/14 17:13:10 peter Exp $
     Copyright (c) 1998-2002 by Peter Vreman
     Copyright (c) 1998-2002 by Peter Vreman
 
 
     Convert insns.dat from Nasm to an i386ins.dat for usage with
     Convert insns.dat from Nasm to an i386ins.dat for usage with
@@ -98,9 +97,3 @@ begin
   close(f);
   close(f);
   close(t);
   close(t);
 end.
 end.
-{
-  $Log: fixnasm.pp,v $
-  Revision 1.6  2005/02/14 17:13:10  peter
-    * truncate log
-
-}

+ 0 - 1
compiler/utils/fixtab.pp

@@ -365,4 +365,3 @@ begin
       end;
       end;
    end;
    end;
 end.
 end.
-

+ 0 - 1
compiler/utils/fpc.pp

@@ -1,5 +1,4 @@
 {
 {
-    $Id: fpc.pp,v 1.20 2005/05/08 19:56:59 marco Exp $
     Copyright (c) 2000-2002 by Florian Klaempfl
     Copyright (c) 2000-2002 by Florian Klaempfl
 
 
     This file is the "loader" for the Free Pascal compiler
     This file is the "loader" for the Free Pascal compiler

+ 0 - 18
compiler/utils/fpcmkcfg.pp

@@ -1,7 +1,6 @@
 {$mode objfpc}
 {$mode objfpc}
 {$H+}
 {$H+}
 {
 {
-    $Id: fpcmkcfg.pp,v 1.3 2005/03/25 21:21:30 jonas Exp $
     This file is part of Free Pascal Build tools
     This file is part of Free Pascal Build tools
     Copyright (c) 2005 by Michael Van Canneyt
     Copyright (c) 2005 by Michael Van Canneyt
 
 
@@ -229,20 +228,3 @@ begin
     Done;
     Done;
   end;
   end;
 end.
 end.
-{
-  $Log: fpcmkcfg.pp,v $
-  Revision 1.3  2005/03/25 21:21:30  jonas
-    * fixeed uninitialised variable
-    - removed unused local variables
-
-  Revision 1.2  2005/02/14 17:13:10  peter
-    * truncate log
-
-  Revision 1.1  2005/02/05 10:25:30  peter
-    * move tools to compiler/utils/
-
-  Revision 1.1  2005/01/09 13:36:12  michael
-  + Initial implementation of installer tools
-
-}
-

+ 0 - 1
compiler/utils/fpcsubst.pp

@@ -239,4 +239,3 @@ begin
     Done;
     Done;
   end;
   end;
 end.
 end.
-

+ 0 - 1
compiler/utils/fpimpdef.pp

@@ -96,4 +96,3 @@ if not makedef(binname,GetOption('-o','--output'),GetOption('-l','--library'))th
    halt(1);
    halt(1);
   end;
   end;
 end.
 end.
-

+ 0 - 7
compiler/utils/gppc386.pp

@@ -1,5 +1,4 @@
 {
 {
-    $Id: gppc386.pp,v 1.7 2005/02/14 17:13:10 peter Exp $
     Copyright (c) 2000-2002 by Pierre Muller
     Copyright (c) 2000-2002 by Pierre Muller
 
 
     This program allows to run the Makefiles
     This program allows to run the Makefiles
@@ -137,9 +136,3 @@ begin
   else
   else
     Erase(fpcgdbini);
     Erase(fpcgdbini);
 end.
 end.
-{
-  $Log: gppc386.pp,v $
-  Revision 1.7  2005/02/14 17:13:10  peter
-    * truncate log
-
-}

+ 0 - 7
compiler/utils/mk68kreg.pp

@@ -1,5 +1,4 @@
 {
 {
-    $Id: mk68kreg.pp,v 1.5 2005/02/14 17:13:10 peter Exp $
     Copyright (c) 1998-2002 by Peter Vreman and Florian Klaempfl
     Copyright (c) 1998-2002 by Peter Vreman and Florian Klaempfl
 
 
     Convert spreg.dat to several .inc files for usage with
     Convert spreg.dat to several .inc files for usage with
@@ -333,9 +332,3 @@ begin
    build_gas_regname_index;
    build_gas_regname_index;
    write_inc_files;
    write_inc_files;
 end.
 end.
-{
-$Log: mk68kreg.pp,v $
-Revision 1.5  2005/02/14 17:13:10  peter
-  * truncate log
-
-}

+ 0 - 7
compiler/utils/mkarmreg.pp

@@ -1,5 +1,4 @@
 {
 {
-    $Id: mkarmreg.pp,v 1.5 2005/02/14 17:13:10 peter Exp $
     Copyright (c) 1998-2002 by Peter Vreman and Florian Klaempfl
     Copyright (c) 1998-2002 by Peter Vreman and Florian Klaempfl
 
 
     Convert spreg.dat to several .inc files for usage with
     Convert spreg.dat to several .inc files for usage with
@@ -297,9 +296,3 @@ begin
    build_std_regname_index;
    build_std_regname_index;
    write_inc_files;
    write_inc_files;
 end.
 end.
-{
-  $Log: mkarmreg.pp,v $
-  Revision 1.5  2005/02/14 17:13:10  peter
-    * truncate log
-
-}

+ 0 - 6
compiler/utils/mkmpsreg.pp

@@ -1,5 +1,4 @@
 {
 {
-    $Id: mkmpsreg.pp,v 1.1 2005/02/13 18:56:44 florian Exp $
     Copyright (c) 1998-2002 by Peter Vreman and Florian Klaempfl
     Copyright (c) 1998-2002 by Peter Vreman and Florian Klaempfl
 
 
     Convert mipsreg.dat to several .inc files for usage with
     Convert mipsreg.dat to several .inc files for usage with
@@ -348,8 +347,3 @@ begin
    build_gas_regname_index;
    build_gas_regname_index;
    write_inc_files;
    write_inc_files;
 end.
 end.
-{
-  $Log: mkmpsreg.pp,v $
-  Revision 1.1  2005/02/13 18:56:44  florian
-    + basic mips stuff
-}

+ 0 - 7
compiler/utils/mkppcreg.pp

@@ -1,5 +1,4 @@
 {
 {
-    $Id: mkppcreg.pp,v 1.9 2005/02/14 17:13:10 peter Exp $
     Copyright (c) 1998-2002 by Peter Vreman and Florian Klaempfl
     Copyright (c) 1998-2002 by Peter Vreman and Florian Klaempfl
 
 
     Convert ppcreg.dat to several .inc files for usage with
     Convert ppcreg.dat to several .inc files for usage with
@@ -395,9 +394,3 @@ begin
    build_mot_regname_index;
    build_mot_regname_index;
    write_inc_files;
    write_inc_files;
 end.
 end.
-{
-  $Log: mkppcreg.pp,v $
-  Revision 1.9  2005/02/14 17:13:10  peter
-    * truncate log
-
-}

+ 0 - 7
compiler/utils/mkspreg.pp

@@ -1,5 +1,4 @@
 {
 {
-    $Id: mkspreg.pp,v 1.7 2005/02/14 17:13:10 peter Exp $
     Copyright (c) 1998-2002 by Peter Vreman and Florian Klaempfl
     Copyright (c) 1998-2002 by Peter Vreman and Florian Klaempfl
 
 
     Convert spreg.dat to several .inc files for usage with
     Convert spreg.dat to several .inc files for usage with
@@ -300,9 +299,3 @@ begin
    build_std_regname_index;
    build_std_regname_index;
    write_inc_files;
    write_inc_files;
 end.
 end.
-{
-  $Log: mkspreg.pp,v $
-  Revision 1.7  2005/02/14 17:13:10  peter
-    * truncate log
-
-}

+ 0 - 7
compiler/utils/mkx86ins.pp

@@ -1,5 +1,4 @@
 {
 {
-    $Id: mkx86ins.pp,v 1.7 2005/02/14 17:13:10 peter Exp $
     Copyright (c) 1998-2002 by Peter Vreman and Florian Klaempfl
     Copyright (c) 1998-2002 by Peter Vreman and Florian Klaempfl
 
 
     Convert i386ins.dat from Nasm to a .inc file for usage with
     Convert i386ins.dat from Nasm to a .inc file for usage with
@@ -453,9 +452,3 @@ begin
    closeinc(propfile);
    closeinc(propfile);
    writeln(insns,' nodes procesed (maxinfolen=',maxinfolen,')');
    writeln(insns,' nodes procesed (maxinfolen=',maxinfolen,')');
 end.
 end.
-{
-  $Log: mkx86ins.pp,v $
-  Revision 1.7  2005/02/14 17:13:10  peter
-    * truncate log
-
-}

+ 0 - 7
compiler/utils/mkx86reg.pp

@@ -1,5 +1,4 @@
 {
 {
-    $Id: mkx86reg.pp,v 1.6 2005/02/14 17:13:10 peter Exp $
     Copyright (c) 1998-2002 by Peter Vreman and Florian Klaempfl
     Copyright (c) 1998-2002 by Peter Vreman and Florian Klaempfl
 
 
     Convert i386reg.dat to several .inc files for usage with
     Convert i386reg.dat to several .inc files for usage with
@@ -467,9 +466,3 @@ begin
    build_att_regname_index;
    build_att_regname_index;
    write_inc_files;
    write_inc_files;
 end.
 end.
-{
-  $Log: mkx86reg.pp,v $
-  Revision 1.6  2005/02/14 17:13:10  peter
-    * truncate log
-
-}

+ 0 - 13
compiler/utils/msg2inc.pp

@@ -1,5 +1,4 @@
 {
 {
-    $Id: msg2inc.pp,v 1.15 2005/02/14 17:13:10 peter Exp $
     This program is part of the Free Pascal run time library.
     This program is part of the Free Pascal run time library.
     Copyright (c) 1998-2002 by Peter Vreman
     Copyright (c) 1998-2002 by Peter Vreman
 
 
@@ -814,15 +813,3 @@ begin
                 end;
                 end;
   end;
   end;
 end.
 end.
-{
-  $Log: msg2inc.pp,v $
-  Revision 1.15  2005/02/14 17:13:10  peter
-    * truncate log
-
-  Revision 1.14  2005/01/24 17:41:57  olle
-    + added support for macos
-
-  Revision 1.13  2005/01/09 16:13:09  peter
-    * don't force to add .tex
-
-}

+ 0 - 7
compiler/utils/msgdif.pp

@@ -1,5 +1,4 @@
 {
 {
-    $Id: msgdif.pp,v 1.10 2005/02/14 17:13:10 peter Exp $
     This program is part of the Free Pascal run time library.
     This program is part of the Free Pascal run time library.
     Copyright (c) 1998-2002 by Peter Vreman
     Copyright (c) 1998-2002 by Peter Vreman
 
 
@@ -528,9 +527,3 @@ begin
   ShowDiff (OrgRoot,DiffRoot);
   ShowDiff (OrgRoot,DiffRoot);
   WriteReorderedFile(NewFileName,orgfirst,difffirst);
   WriteReorderedFile(NewFileName,orgfirst,difffirst);
 end.
 end.
-{
-  $Log: msgdif.pp,v $
-  Revision 1.10  2005/02/14 17:13:10  peter
-    * truncate log
-
-}

+ 0 - 31
compiler/utils/ppudump.pp

@@ -1,5 +1,4 @@
 {
 {
-    $Id: ppudump.pp,v 1.69 2005/04/24 20:00:57 florian Exp $
     Copyright (c) 1998-2002 by the FPC Development Team
     Copyright (c) 1998-2002 by the FPC Development Team
 
 
     Dumps the contents of a FPC unit file (PPU File)
     Dumps the contents of a FPC unit file (PPU File)
@@ -2156,33 +2155,3 @@ begin
   if has_errors then
   if has_errors then
     Halt(1);
     Halt(1);
 end.
 end.
-{
-  $Log: ppudump.pp,v $
-  Revision 1.69  2005/04/24 20:00:57  florian
-    + more module flags added
-
-  Revision 1.68  2005/03/27 14:10:53  jonas
-    * const record parameters > 8 bytes are now passed by reference for non
-      cdecl/cppdecl procedures on Mac OS/Mac OS X to fix compatibility with
-      GPC (slightly more efficient than Metrowerks behaviour below, but
-      less efficient in most cases than our previous scheme)
-    + "mwpascal" procedure directive to support the const record parameter
-      behaviour of Metrowerks Pascal, which passes all const records by
-      reference
-
-  Revision 1.67  2005/03/07 18:38:46  peter
-    * explicit paraloc for funcret
-    * libsym for powerpc ppu's
-
-  Revision 1.66  2005/02/14 17:13:10  peter
-    * truncate log
-
-  Revision 1.65  2005/01/19 22:19:41  peter
-    * unit mapping rewrite
-    * new derefmap added
-
-  Revision 1.64  2005/01/09 20:24:43  olle
-    * rework of macro subsystem
-    + exportable macros for mode macpas
-
-}

+ 0 - 7
compiler/utils/ppufiles.pp

@@ -1,5 +1,4 @@
 {
 {
-    $Id: ppufiles.pp,v 1.6 2005/02/14 17:13:10 peter Exp $
     Copyright (c) 1999-2002 by Peter Vreman
     Copyright (c) 1999-2002 by Peter Vreman
 
 
     List files needed by PPU
     List files needed by PPU
@@ -251,9 +250,3 @@ begin
       write(' ');
       write(' ');
    end;
    end;
 end.
 end.
-{
-  $Log: ppufiles.pp,v $
-  Revision 1.6  2005/02/14 17:13:10  peter
-    * truncate log
-
-}

+ 0 - 7
compiler/utils/ppumove.pp

@@ -1,5 +1,4 @@
 {
 {
-    $Id: ppumove.pp,v 1.8 2005/02/14 17:13:10 peter Exp $
     Copyright (c) 1999-2002 by the FPC Development Team
     Copyright (c) 1999-2002 by the FPC Development Team
 
 
     Add multiple FPC units into a static/shared library
     Add multiple FPC units into a static/shared library
@@ -612,9 +611,3 @@ begin
   if Not Quiet then
   if Not Quiet then
    Writeln('Done.');
    Writeln('Done.');
 end.
 end.
-{
-  $Log: ppumove.pp,v $
-  Revision 1.8  2005/02/14 17:13:10  peter
-    * truncate log
-
-}

+ 0 - 16
compiler/utils/usubst.pp

@@ -1,7 +1,6 @@
 {$mode objfpc}
 {$mode objfpc}
 {$H+}
 {$H+}
 {
 {
-    $Id: usubst.pp,v 1.1 2005/02/05 10:25:30 peter Exp $
     This file is part of Free Pascal build tools
     This file is part of Free Pascal build tools
     Copyright (c) 2005 by Michael Van Canneyt
     Copyright (c) 2005 by Michael Van Canneyt
 
 
@@ -108,18 +107,3 @@ begin
 end;
 end;
 
 
 end.
 end.
-{
-  $Log: usubst.pp,v $
-  Revision 1.1  2005/02/05 10:25:30  peter
-    * move tools to compiler/utils/
-
-  Revision 1.2  2005/01/09 15:19:03  peter
-    * fix linebreak
-
-  Revision 1.1  2005/01/09 13:36:12  michael
-  + Initial implementation of installer tools
-
-
-}
-
-

+ 0 - 1
compiler/x86_64/cpubase.inc

@@ -1,5 +1,4 @@
 {
 {
-    $Id: cpubase.inc,v 1.17 2005/02/14 17:13:10 peter Exp $
     Copyright (c) 1998-2000 by Florian Klaempfl and Peter Vreman
     Copyright (c) 1998-2000 by Florian Klaempfl and Peter Vreman
 
 
     Contains the basic declarations for the x86-64 architecture
     Contains the basic declarations for the x86-64 architecture

+ 0 - 14
demo/graph/fpctris.pp

@@ -1,5 +1,4 @@
 {
 {
-    $Id: fpctris.pp,v 1.6 2004/02/18 16:43:04 marco Exp $
 
 
     This program is both available in XTDFPC as in the FPC demoes.
     This program is both available in XTDFPC as in the FPC demoes.
     Copyright (C) 1999 by Marco van de Voort
     Copyright (C) 1999 by Marco van de Voort
@@ -853,16 +852,3 @@ BEGIN
  DoFpcTris;
  DoFpcTris;
  SaveHighScore;
  SaveHighScore;
 END.
 END.
-
-{
-  $Log: fpctris.pp,v $
-  Revision 1.6  2004/02/18 16:43:04  marco
-   * added an API call to avoid the "Graph Window" window title
-
-  Revision 1.5  2002/09/07 15:06:34  peter
-    * old logs removed and tabs fixed
-
-  Revision 1.4  2002/06/02 09:49:17  marco
-   * Renamefest
-
-}

+ 0 - 22
demo/graph/gameunit.pp

@@ -1,5 +1,4 @@
 {
 {
-    $Id: gameunit.pp,v 1.9 2004/06/21 07:01:34 marco Exp $
 
 
     A simple unit with some common used routines for FPCGames (FpcTris and
     A simple unit with some common used routines for FPCGames (FpcTris and
       SameGame)
       SameGame)
@@ -909,24 +908,3 @@ BEGIN
  {$endif}
  {$endif}
   Negative:=FALSE;                    { Negative=true-> better scores are lower}
   Negative:=FALSE;                    { Negative=true-> better scores are lower}
 END.
 END.
-{
-  $Log: gameunit.pp,v $
-  Revision 1.9  2004/06/21 07:01:34  marco
-   * 1st and 3rd recommendation of bug 3177
-
-  Revision 1.8  2002/09/07 15:06:35  peter
-    * old logs removed and tabs fixed
-
-  Revision 1.7  2002/06/02 17:34:21  marco
-   * Renamefest
-
-  Revision 1.6  2002/06/02 09:49:17  marco
-   * Renamefest
-
-  Revision 1.5  2002/02/25 12:23:05  marco
-   * Fixes for Quad Win32 GUI mode
-
-  Revision 1.4  2002/02/22 21:40:09  carl
-  * fix compilation problem
-
-}

+ 0 - 5
demo/graph/gravwars.pp

@@ -923,8 +923,3 @@ BEGIN
   MainMenu;
   MainMenu;
   Finish;
   Finish;
 END.
 END.
-  $Log: gravwars.pp,v $
-  Revision 1.3  2002/09/07 15:06:35  peter
-    * old logs removed and tabs fixed
-
-}

+ 0 - 16
demo/graph/mandel.pp

@@ -1,5 +1,4 @@
 {
 {
-    $Id: mandel.pp,v 1.6 2002/09/07 15:06:35 peter Exp $
     This file is part of the Free Pascal run time library.
     This file is part of the Free Pascal run time library.
     Copyright (c) 1993-98 by Gernot Tenchio
     Copyright (c) 1993-98 by Gernot Tenchio
 
 
@@ -352,18 +351,3 @@ begin
    Writeln('With graph driver ',gd,' and graph mode ',gm);
    Writeln('With graph driver ',gd,' and graph mode ',gm);
   {$endif}
   {$endif}
 end.
 end.
-{
-  $Log: mandel.pp,v $
-  Revision 1.6  2002/09/07 15:06:35  peter
-    * old logs removed and tabs fixed
-
-  Revision 1.5  2002/04/11 19:47:48  pierre
-   * avoid RTE 103 for win32
-
-  Revision 1.4  2002/02/25 21:32:13  carl
-  + $goto on added for makefiles
-
-  Revision 1.3  2002/02/22 21:40:45  carl
-  * range check error fix
-
-}

+ 0 - 9
demo/graph/maze.pp

@@ -495,12 +495,3 @@ begin
    CloseGraph;
    CloseGraph;
   {$endif}
   {$endif}
 end.
 end.
-{
-  $Log: maze.pp,v $
-  Revision 1.4  2002/09/07 15:06:35  peter
-    * old logs removed and tabs fixed
-
-  Revision 1.3  2002/04/11 19:48:44  pierre
-   * don't use GUI apptype as there are writes
-
-}

+ 0 - 15
demo/graph/quad.pp

@@ -811,18 +811,3 @@ Begin
    DoneMouse;
    DoneMouse;
 
 
 End.
 End.
-{
-  $Log: quad.pp,v $
-  Revision 1.5  2002/09/07 15:06:35  peter
-    * old logs removed and tabs fixed
-
-  Revision 1.4  2002/06/02 09:49:17  marco
-   * Renamefest
-
-  Revision 1.3  2002/02/27 16:29:54  carl
-  * We should initialize the mouse!
-
-  Revision 1.2  2002/02/25 12:23:05  marco
-   * Fixes for Quad Win32 GUI mode
-
-}

+ 0 - 29
demo/graph/samegame.pp

@@ -1,5 +1,4 @@
 {
 {
-    $Id: samegame.pp,v 1.10 2005/02/14 17:13:10 peter Exp $
 
 
     This program is both available in XTDFPC as in the FPC demoes.
     This program is both available in XTDFPC as in the FPC demoes.
     Copyright (C) 1999 by Marco van de Voort
     Copyright (C) 1999 by Marco van de Voort
@@ -599,31 +598,3 @@ BEGIN
   Writeln('Last games'#39' score was : ',Score);
   Writeln('Last games'#39' score was : ',Score);
   {$endif}
   {$endif}
 END.
 END.
-{
-  $Log: samegame.pp,v $
-  Revision 1.10  2005/02/14 17:13:10  peter
-    * truncate log
-
-  Revision 1.9  2004/06/21 07:03:36  marco
-   * 2nd recommendation 3177
-
-  Revision 1.8  2004/06/21 07:01:34  marco
-   * 1st and 3rd recommendation of bug 3177
-
-  Revision 1.7  2004/02/18 16:43:29  marco
-   *  added an API call to avoid the "Graph Window" window title, and readded previously removed variable
-        It was used in usegraph
-
-  Revision 1.6  2003/09/06 14:14:12  marco
-   * removed unused var reported in bug 2170
-
-  Revision 1.5  2002/09/07 15:06:35  peter
-    * old logs removed and tabs fixed
-
-  Revision 1.4  2002/06/02 09:49:17  marco
-   * Renamefest
-
-  Revision 1.3  2002/02/22 21:41:22  carl
-  * range check error fix
-
-}

+ 0 - 16
demo/linux/daemon.pp

@@ -2,7 +2,6 @@
                                  CncWare
                                  CncWare
                            (c) Copyright 2000
                            (c) Copyright 2000
  ---------------------------------------------------------------------------
  ---------------------------------------------------------------------------
-  $Id: daemon.pp,v 1.5 2005/04/06 10:47:01 marco Exp $
   Filename..: daemon.pp
   Filename..: daemon.pp
   Programmer: Ken J. Wright
   Programmer: Ken J. Wright
   Date......: 03/21/2000
   Date......: 03/21/2000
@@ -140,18 +139,3 @@ Begin
          fpSelect(0,nil,nil,nil,secs*1000);
          fpSelect(0,nil,nil,nil,secs*1000);
    Until bTerm;
    Until bTerm;
 End.
 End.
-{
-  $Log: daemon.pp,v $
-  Revision 1.5  2005/04/06 10:47:01  marco
-   * sigactionhandler fix
-
-  Revision 1.4  2004/06/04 12:37:52  marco
-   * modernized. Now only uses baseunix,sysutils
-
-  Revision 1.3  2002/09/07 15:06:35  peter
-    * old logs removed and tabs fixed
-
-  Revision 1.2  2002/02/25 12:56:43  marco
-   * Fixed two linux'isms, and commited Jonas fix for the RTE 103
-
-}

+ 0 - 10
demo/modex/voxel.pp

@@ -1,5 +1,4 @@
 {
 {
-    $Id: voxel.pp,v 1.3 2002/09/07 15:06:35 peter Exp $
 
 
     This program is part of the FPC demoes.
     This program is part of the FPC demoes.
     Copyright (C) 1999 by Marco van de Voort
     Copyright (C) 1999 by Marco van de Voort
@@ -169,12 +168,3 @@ begin
     end
     end
   until false;
   until false;
 end.
 end.
-{
-  $Log: voxel.pp,v $
-  Revision 1.3  2002/09/07 15:06:35  peter
-    * old logs removed and tabs fixed
-
-  Revision 1.2  2002/02/22 21:45:24  carl
-  - range check option gives big problems
-
-}

+ 0 - 9
demo/netware/check.pp

@@ -1,5 +1,4 @@
 {
 {
-    $Id: check.pp,v 1.1 2004/12/29 21:39:53 armin Exp $
     This file is part of Free Pascal for Netware.
     This file is part of Free Pascal for Netware.
     Copyright (c) 1999-2002 by the Free Pascal development team.
     Copyright (c) 1999-2002 by the Free Pascal development team.
 
 
@@ -43,11 +42,3 @@ begin
   System.NetwareCheckFunction := @checkfunction;
   System.NetwareCheckFunction := @checkfunction;
   ReadKey;
   ReadKey;
 end.
 end.
-
-{
-  $Log: check.pp,v $
-  Revision 1.1  2004/12/29 21:39:53  armin
-  * changed makefile version to 1.9.6, added samples for Netware
-
-}
-

+ 0 - 8
demo/netware/nutconnection.pp

@@ -1,6 +1,5 @@
 unit nutconnection;
 unit nutconnection;
 {
 {
-    $Id: nutconnection.pp,v 1.1 2004/12/29 21:39:53 armin Exp $
     This file is part of nutmon for netware
     This file is part of nutmon for netware
     Copyright (c) 2004 armin diehl ([email protected])
     Copyright (c) 2004 armin diehl ([email protected])
 
 
@@ -397,10 +396,3 @@ end;
 
 
 
 
 end.
 end.
-
-{
-  $Log: nutconnection.pp,v $
-  Revision 1.1  2004/12/29 21:39:53  armin
-  * changed makefile version to 1.9.6, added samples for Netware
-
-}

+ 0 - 11
demo/netware/nutmon.pp

@@ -1,6 +1,5 @@
 Program nutmon;
 Program nutmon;
 {
 {
-    $Id: nutmon.pp,v 1.2 2005/02/14 17:13:10 peter Exp $
 
 
     Simple nut ups monitor for netware, see http://www.networkupstools.org
     Simple nut ups monitor for netware, see http://www.networkupstools.org
 
 
@@ -481,13 +480,3 @@ begin
     {$endif}
     {$endif}
   end;
   end;
 end.
 end.
-
-{
-  $Log: nutmon.pp,v $
-  Revision 1.2  2005/02/14 17:13:10  peter
-    * truncate log
-
-  Revision 1.1  2004/12/29 21:39:53  armin
-  * changed makefile version to 1.9.6, added samples for Netware
-
-}

+ 0 - 1
demo/netwlibc/nuttest.pp

@@ -760,4 +760,3 @@ begin
 
 
   dec (gThreadCount);
   dec (gThreadCount);
 end.
 end.
-

+ 0 - 1
demo/os2/pmdemo1.pp

@@ -1,6 +1,5 @@
 {****************************************************************************
 {****************************************************************************
 
 
-    $Id: pmdemo1.pp,v 1.2 2002/09/07 15:06:35 peter Exp $
 
 
                    Copyright (c) 1999-2000 by Florian Klaempfl
                    Copyright (c) 1999-2000 by Florian Klaempfl
 
 

+ 0 - 8
demo/text/blackbox.pp

@@ -1,5 +1,4 @@
 {
 {
-    $Id: blackbox.pp,v 1.2 2002/02/22 21:47:00 carl Exp $
     This file is part of the Free Pascal run time library.
     This file is part of the Free Pascal run time library.
     Copyright (c) 1993-98 by Michael Van Canneyt
     Copyright (c) 1993-98 by Michael Van Canneyt
 
 
@@ -186,10 +185,3 @@ begin
   else
   else
     Writeln ('Only ',guessed,' out of ',count,' correct...');
     Writeln ('Only ',guessed,' out of ',count,' correct...');
 end.
 end.
-
-{
-  $Log: blackbox.pp,v $
-  Revision 1.2  2002/02/22 21:47:00  carl
-  + fix some wrong logical comparisons
-
-}

+ 0 - 1
demo/text/eratos.pp

@@ -1,5 +1,4 @@
 {
 {
-    $Id: eratos.pp,v 1.3 2005/05/14 11:11:33 olle Exp $
     This file is part of the Free Pascal run time library.
     This file is part of the Free Pascal run time library.
     Copyright (c) 1993-2005 by Florian Klaempfl
     Copyright (c) 1993-2005 by Florian Klaempfl
 
 

+ 0 - 1
demo/text/hello.pp

@@ -1,5 +1,4 @@
 {
 {
-    $Id: hello.pp,v 1.3 2002/09/07 15:06:35 peter Exp $
     This file is part of the Free Pascal run time library.
     This file is part of the Free Pascal run time library.
     Copyright (c) 1993-98 by the Free Pascal Development Team
     Copyright (c) 1993-98 by the Free Pascal Development Team
 
 

+ 0 - 1
demo/text/lines.pp

@@ -1,5 +1,4 @@
 {
 {
-    $Id: lines.pp,v 1.2 2002/09/07 15:06:35 peter Exp $
     This file is part of the Free Pascal run time library.
     This file is part of the Free Pascal run time library.
     Copyright (c) 1993-98 by Florian Klaempfl
     Copyright (c) 1993-98 by Florian Klaempfl
 
 

+ 0 - 7
demo/text/magic.pp

@@ -1,5 +1,4 @@
 {
 {
-    $Id: magic.pp,v 1.2 2002/09/07 15:06:35 peter Exp $
     This file is part of the Free Pascal run time library.
     This file is part of the Free Pascal run time library.
     Copyright (c) 1993-98 by Florian Klaempfl
     Copyright (c) 1993-98 by Florian Klaempfl
 
 
@@ -96,9 +95,3 @@ begin
        inc(size,2);
        inc(size,2);
     end;
     end;
 end.
 end.
-{
-  $Log: magic.pp,v $
-  Revision 1.2  2002/09/07 15:06:35  peter
-    * old logs removed and tabs fixed
-
-}

+ 0 - 10
demo/text/qsort.pp

@@ -1,5 +1,4 @@
 {
 {
-    $Id: qsort.pp,v 1.3 2005/05/14 11:11:33 olle Exp $
     This file is part of the Free Pascal run time library.
     This file is part of the Free Pascal run time library.
     Copyright (c) 1993-2005 by the Free Pascal Development Team
     Copyright (c) 1993-2005 by the Free Pascal Development Team
 
 
@@ -81,12 +80,3 @@ begin
       writeln;
       writeln;
    end;
    end;
 end.
 end.
-{
-  $Log: qsort.pp,v $
-  Revision 1.3  2005/05/14 11:11:33  olle
-    * Smaller arrray sizes for macos
-
-  Revision 1.2  2002/09/07 15:06:35  peter
-    * old logs removed and tabs fixed
-
-}

+ 0 - 7
demo/win32/dlltest.pp

@@ -1,5 +1,4 @@
 {
 {
-  $Id: dlltest.pp,v 1.2 2002/09/07 15:06:35 peter Exp $
   Copyright (c) 1998 by Pierre Muller
   Copyright (c) 1998 by Pierre Muller
 
 
   Win32 DLL usage example. It needs testdll.pp
   Win32 DLL usage example. It needs testdll.pp
@@ -24,9 +23,3 @@ begin
   writeln('Main: press enter');
   writeln('Main: press enter');
   readln;
   readln;
 end.
 end.
-{
-  $Log: dlltest.pp,v $
-  Revision 1.2  2002/09/07 15:06:35  peter
-    * old logs removed and tabs fixed
-
-}

+ 0 - 8
demo/win32/edit.pp

@@ -1,5 +1,4 @@
 {
 {
-  $Id: edit.pp,v 1.3 2002/09/07 15:06:35 peter Exp $
   Copyright (c) 1999 by Michael van Canneyt and Goran Andersson
   Copyright (c) 1999 by Michael van Canneyt and Goran Andersson
 
 
   Win32 editor example.
   Win32 editor example.
@@ -458,10 +457,3 @@ Begin
         End;
         End;
     End;
     End;
 End.
 End.
-
-{
-  $Log: edit.pp,v $
-  Revision 1.3  2002/09/07 15:06:35  peter
-    * old logs removed and tabs fixed
-
-}

+ 0 - 14
demo/win32/menu.pp

@@ -1,4 +1,3 @@
-{   $Id: menu.pp,v 1.4 2002/09/07 15:06:35 peter Exp $
   Copyright (c) 1999 by Michael van Canneyt
   Copyright (c) 1999 by Michael van Canneyt
 
 
   Win32 menu creation example.
   Win32 menu creation example.
@@ -338,16 +337,3 @@ Begin
         End;
         End;
     End;
     End;
 End.
 End.
-
-{
-  $Log: menu.pp,v $
-  Revision 1.4  2002/09/07 15:06:35  peter
-    * old logs removed and tabs fixed
-
-  Revision 1.3  2002/02/22 13:37:49  pierre
-   * fix problem if started through cygwin bash
-
-  Revision 1.2  2002/02/21 11:43:54  pierre
-   * fix range check problems and wrong uses of HEdit and HStatus handles
-
-}

+ 0 - 7
demo/win32/testdll.pp

@@ -1,5 +1,4 @@
 {
 {
-  $Id: testdll.pp,v 1.2 2002/09/07 15:06:35 peter Exp $
   Copyright (c) 1998 by Pierre Muller
   Copyright (c) 1998 by Pierre Muller
 
 
   Win32 DLL usage example. It needs dlltest.pp
   Win32 DLL usage example. It needs dlltest.pp
@@ -60,9 +59,3 @@ begin
   teststr:='DLL init done';
   teststr:='DLL init done';
   exitproc:=@newExit;
   exitproc:=@newExit;
 end.
 end.
-{
-  $Log: testdll.pp,v $
-  Revision 1.2  2002/09/07 15:06:35  peter
-    * old logs removed and tabs fixed
-
-}

+ 0 - 11
demo/win32/winhello.pp

@@ -1,5 +1,4 @@
 {
 {
-  $Id: winhello.pp,v 1.4 2002/09/07 15:06:35 peter Exp $
   Copyright (c) 1996 by Charlie Calvert
   Copyright (c) 1996 by Charlie Calvert
   Modifications by Florian Klaempfl
   Modifications by Florian Klaempfl
 
 
@@ -108,13 +107,3 @@ begin
   end;
   end;
   Halt(AMessage.wParam);
   Halt(AMessage.wParam);
 end.
 end.
-
-{
-  $Log: winhello.pp,v $
-  Revision 1.4  2002/09/07 15:06:35  peter
-    * old logs removed and tabs fixed
-
-  Revision 1.3  2002/02/22 13:37:49  pierre
-   * fix problem if started through cygwin bash
-
-}

+ 0 - 7
fcl/amiga/classes.pp

@@ -1,5 +1,4 @@
 {
 {
-    $Id: classes.pp,v 1.2 2005/02/14 17:13:11 peter Exp $
     This file is part of the Free Component Library (FCL)
     This file is part of the Free Component Library (FCL)
     Copyright (c) 1999-2000 by Michael Van Canneyt and Florian Klaempfl
     Copyright (c) 1999-2000 by Michael Van Canneyt and Florian Klaempfl
 
 
@@ -38,9 +37,3 @@ finalization
   CommonCleanup;
   CommonCleanup;
 
 
 end.
 end.
-{
-  $Log: classes.pp,v $
-  Revision 1.2  2005/02/14 17:13:11  peter
-    * truncate log
-
-}

+ 0 - 1
fcl/amiga/eventlog.inc

@@ -1,5 +1,4 @@
 {
 {
-    $Id: eventlog.inc,v 1.2 2005/02/14 17:13:11 peter Exp $
     This file is part of the Free Pascal run time library.
     This file is part of the Free Pascal run time library.
     Copyright (c) 2003 by the Free Pascal development team
     Copyright (c) 2003 by the Free Pascal development team
 
 

+ 0 - 1
fcl/amiga/pipes.inc

@@ -1,5 +1,4 @@
 {
 {
-    $Id: pipes.inc,v 1.2 2005/02/14 17:13:11 peter Exp $
     This file is part of the Free Pascal run time library.
     This file is part of the Free Pascal run time library.
     Copyright (c) 1999-2000 by Michael Van Canneyt
     Copyright (c) 1999-2000 by Michael Van Canneyt
 
 

+ 0 - 1
fcl/amiga/thread.inc

@@ -1,5 +1,4 @@
 {
 {
-    $Id: thread.inc,v 1.2 2005/02/14 17:13:11 peter Exp $
     This file is part of the Free Component Library (FCL)
     This file is part of the Free Component Library (FCL)
     Copyright (c) 1999-2000 by the Free Pascal development team
     Copyright (c) 1999-2000 by the Free Pascal development team
 
 

+ 0 - 7
fcl/beos/classes.pp

@@ -1,5 +1,4 @@
 {
 {
-    $Id: classes.pp,v 1.3 2005/02/14 17:13:11 peter Exp $
     This file is part of the Free Component Library (FCL)
     This file is part of the Free Component Library (FCL)
     Copyright (c) 1999-2000 by Michael Van Canneyt and Florian Klaempfl
     Copyright (c) 1999-2000 by Michael Van Canneyt and Florian Klaempfl
 
 
@@ -41,9 +40,3 @@ finalization
   CommonCleanup;
   CommonCleanup;
 
 
 end.
 end.
-{
-  $Log: classes.pp,v $
-  Revision 1.3  2005/02/14 17:13:11  peter
-    * truncate log
-
-}

+ 0 - 1
fcl/beos/eventlog.inc

@@ -1,5 +1,4 @@
 {
 {
-    $Id: eventlog.inc,v 1.2 2005/02/14 17:13:11 peter Exp $
     This file is part of the Free Pascal run time library.
     This file is part of the Free Pascal run time library.
     Copyright (c) 2003 by the Free Pascal development team
     Copyright (c) 2003 by the Free Pascal development team
 
 

+ 0 - 1
fcl/beos/pipes.inc

@@ -1,5 +1,4 @@
 {
 {
-    $Id: pipes.inc,v 1.3 2005/02/14 17:13:11 peter Exp $
     This file is part of the Free Pascal run time library.
     This file is part of the Free Pascal run time library.
     Copyright (c) 1999-2000 by Michael Van Canneyt
     Copyright (c) 1999-2000 by Michael Van Canneyt
 
 

+ 0 - 1
fcl/beos/thread.inc

@@ -1,5 +1,4 @@
 {
 {
-    $Id: thread.inc,v 1.4 2005/02/14 17:13:11 peter Exp $
     This file is part of the Free Component Library (FCL)
     This file is part of the Free Component Library (FCL)
     Copyright (c) 1999-2000 by the Free Pascal development team
     Copyright (c) 1999-2000 by the Free Pascal development team
 
 

+ 0 - 8
fcl/darwin/syncobjs.pp

@@ -1,5 +1,4 @@
 {
 {
-    $Id: syncobjs.pp,v 1.2 2005/02/14 17:13:12 peter Exp $
     This file is part of the Free Component Library (FCL)
     This file is part of the Free Component Library (FCL)
     Copyright (c) 1998 by Florian Klaempfl
     Copyright (c) 1998 by Florian Klaempfl
     member of the Free Pascal development team
     member of the Free Pascal development team
@@ -180,10 +179,3 @@ begin
 end;
 end;
 
 
 end.
 end.
-
-{
-  $Log: syncobjs.pp,v $
-  Revision 1.2  2005/02/14 17:13:12  peter
-    * truncate log
-
-}

+ 0 - 1
fcl/db/bufdataset.inc

@@ -1,5 +1,4 @@
 {
 {
-    $Id: bufdataset.inc,v 1.14 2005/05/07 14:41:00 joost Exp $
     This file is part of the Free Pascal run time library.
     This file is part of the Free Pascal run time library.
     Copyright (c) 1999-2000 by Michael Van Canneyt, member of the
     Copyright (c) 1999-2000 by Michael Van Canneyt, member of the
     Free Pascal development team
     Free Pascal development team

+ 0 - 1
fcl/db/database.inc

@@ -1,5 +1,4 @@
 {
 {
-    $Id: database.inc,v 1.12 2005/04/26 16:37:44 michael Exp $
     This file is part of the Free Pascal run time library.
     This file is part of the Free Pascal run time library.
     Copyright (c) 1999-2000 by Michael Van Canneyt, member of the
     Copyright (c) 1999-2000 by Michael Van Canneyt, member of the
     Free Pascal development team
     Free Pascal development team

+ 0 - 1
fcl/db/dataset.inc

@@ -1,5 +1,4 @@
 {
 {
-    $Id: dataset.inc,v 1.36 2005/04/13 22:08:16 joost Exp $
     This file is part of the Free Pascal run time library.
     This file is part of the Free Pascal run time library.
     Copyright (c) 1999-2000 by Michael Van Canneyt, member of the
     Copyright (c) 1999-2000 by Michael Van Canneyt, member of the
     Free Pascal development team
     Free Pascal development team

+ 0 - 70
fcl/db/db.pp

@@ -1,5 +1,4 @@
 {
 {
-    $Id: db.pp,v 1.51 2005/04/26 16:48:58 michael Exp $
     This file is part of the Free Pascal run time library.
     This file is part of the Free Pascal run time library.
     Copyright (c) 1999-2000 by Michael Van Canneyt, member of the
     Copyright (c) 1999-2000 by Michael Van Canneyt, member of the
     Free Pascal development team
     Free Pascal development team
@@ -1939,72 +1938,3 @@ end;
 {$i dsparams.inc}
 {$i dsparams.inc}
 
 
 end.
 end.
-
-{
-  $Log: db.pp,v $
-  Revision 1.51  2005/04/26 16:48:58  michael
-   * Some patches from Uberto Barbini
-     + TLoginEvent more Delphi compatible (D5 and bigger).
-     * AsCurrency Property for TField.
-
-  Revision 1.50  2005/04/26 16:37:44  michael
-  + Added TCustomConnection by Uberto Barbini
-
-  Revision 1.49  2005/04/26 15:45:30  michael
-  + Patch from Sergey Smirnov to fix TTimeField.AsString
-
-  Revision 1.48  2005/04/24 19:21:28  joost
-  - some fixes in assignment of transactions and databases
-
-  Revision 1.47  2005/04/13 22:09:15  joost
-  - TIndexDefs.Destroy now calls inhedited.Destroy
-
-  Revision 1.46  2005/04/10 22:18:43  joost
-  Patch from Alexandrov Alexandru
-  - implemented TDataset.BindFields
-  - master-detail relation implemented
-  - improved variant-support for fields
-  - implemented TField.Assign and TField.AssignValue
-
-  Revision 1.45  2005/04/10 18:26:54  joost
-  - implemented TDataset.Locate
-  - removed TParam.FNull
-
-  Revision 1.44  2005/04/04 07:30:51  michael
-  + Patch from Jesus reyes to notify changes to DisplayFormat
-
-  Revision 1.43  2005/03/29 10:07:34  michael
-  + fix for activerecord, bof false after append.
-
-  Revision 1.42  2005/03/25 11:38:01  michael
-  + Implementation of IndexForFields from   Alexandrov Alexandru
-
-  Revision 1.41  2005/03/18 11:54:56  michael
-  + Fixed second typo in provided patch
-
-  Revision 1.39  2005/03/18 10:17:34  michael
-  + Patch to IndexDefs from Alexandrov Alexandru
-
-  Revision 1.38  2005/02/16 09:31:58  michael
-  - Remove TTimeField and TDateField GetDataSize functions since both are exactly
-    equal to their ancestor: TDateTimeField.GetDataSize
-  - TAutoInc fields are set to ReadyOnly on create
-  - In TFieldDef.CreateField the presence of faReadyOnly in Attributes is respected
-
-  Revision 1.37  2005/02/14 17:13:12  peter
-    * truncate log
-
-  Revision 1.36  2005/02/07 11:21:50  joost
-    - Added TDataset.InternalInsert
-    - Implemented TField.DisplayName
-    - added support for TBufDataset delete and insert
-
-  Revision 1.35  2005/02/03 19:10:39  florian
-    + adapted for use fo tcollection.owner
-
-  Revision 1.34  2005/01/12 10:28:44  michael
-    * Patch from Joost Van der Sluis:
-     - implemented TUpdateMode, TProviderFlags
-     - implemented TIndexDef, TIndexDefs
-
-}

+ 0 - 29
fcl/db/dbconst.pp

@@ -1,5 +1,4 @@
 {
 {
-    $Id: dbconst.pp,v 1.11 2005/04/10 22:18:43 joost Exp $
     This file is part of the Free Pascal run time library.
     This file is part of the Free Pascal run time library.
     Copyright (c) 1999-2000 by Michael Van Canneyt, member of the
     Copyright (c) 1999-2000 by Michael Van Canneyt, member of the
     Free Pascal development team
     Free Pascal development team
@@ -76,31 +75,3 @@ Const
 Implementation
 Implementation
 
 
 end.
 end.
-
-{
-  $Log: dbconst.pp,v $
-  Revision 1.11  2005/04/10 22:18:43  joost
-  Patch from Alexandrov Alexandru
-  - implemented TDataset.BindFields
-  - master-detail relation implemented
-  - improved variant-support for fields
-  - implemented TField.Assign and TField.AssignValue
-
-  Revision 1.10  2005/04/10 18:28:30  joost
-  - implemented parameter support for sqldb
-
-  Revision 1.9  2005/03/18 10:17:34  michael
-  + Patch to IndexDefs from Alexandrov Alexandru
-
-  Revision 1.8  2005/02/14 17:13:12  peter
-    * truncate log
-
-  Revision 1.7  2005/02/07 11:23:04  joost
-    - added SMetadataUnavailable
-    - added SDeletedRecord
-
-  Revision 1.6  2005/01/12 10:29:20  michael
-    * Patch from Joost Van der Sluis:
-    - added error message for if transaction of DB is not set
-
-}

+ 0 - 7
fcl/db/dbwhtml.pp

@@ -1,5 +1,4 @@
 {
 {
-    $Id: dbwhtml.pp,v 1.8 2005/02/14 17:13:12 peter Exp $
     This file is part of the Free Component Library (FCL)
     This file is part of the Free Component Library (FCL)
     Copyright (c) 1999-2000 by the Free Pascal development team
     Copyright (c) 1999-2000 by the Free Pascal development team
 
 
@@ -692,9 +691,3 @@ end;
 
 
 
 
 end.
 end.
-{
-  $Log: dbwhtml.pp,v $
-  Revision 1.8  2005/02/14 17:13:12  peter
-    * truncate log
-
-}

+ 0 - 5
fcl/db/ddg_ds.pp

@@ -527,8 +527,3 @@ begin
 end;
 end;
 
 
 end.
 end.
-  $Log: ddg_ds.pp,v $
-  Revision 1.6  2005/02/14 17:13:12  peter
-    * truncate log
-
-}

+ 0 - 5
fcl/db/ddg_rec.pp

@@ -30,8 +30,3 @@ type
 implementation
 implementation
 
 
 end.
 end.
-  $Log: ddg_rec.pp,v $
-  Revision 1.4  2005/02/14 17:13:12  peter
-    * truncate log
-
-}

+ 0 - 1
fcl/db/fields.inc

@@ -1,5 +1,4 @@
 {
 {
-    $Id: fields.inc,v 1.34 2005/05/12 18:52:32 michael Exp $
     This file is part of the Free Pascal run time library.
     This file is part of the Free Pascal run time library.
     Copyright (c) 1999-2000 by Michael Van Canneyt, member of the
     Copyright (c) 1999-2000 by Michael Van Canneyt, member of the
     Free Pascal development team
     Free Pascal development team

+ 1 - 16
fcl/db/interbase/interbase.pp

@@ -1,8 +1,6 @@
-{   $Id: interbase.pp,v 1.17 2005/03/23 08:35:05 michael Exp $
-
+{
     Copyright (c) 2000 by Pavel Stingl
     Copyright (c) 2000 by Pavel Stingl
 
 
-
     Interbase database & dataset
     Interbase database & dataset
 
 
     See the file COPYING.FPC, included in this distribution,
     See the file COPYING.FPC, included in this distribution,
@@ -1256,16 +1254,3 @@ end;
 { TIBStoredProc }
 { TIBStoredProc }
 
 
 end.
 end.
-
-{
-  $Log: interbase.pp,v $
-  Revision 1.17  2005/03/23 08:35:05  michael
-  + Patch from Michalis Kamburelis to correct transactions
-
-  Revision 1.16  2005/03/17 09:02:17  michael
-  + Patch from Michalis Kamburelis to fix TField.IsNull
-
-  Revision 1.15  2005/02/14 17:13:12  peter
-    * truncate log
-
-}

+ 0 - 8
fcl/db/interbase/testib.pp

@@ -1,4 +1,3 @@
-{   $Id: testib.pp,v 1.7 2005/02/14 17:13:12 peter Exp $
 
 
     Copyright (c) 2000 by Pavel Stingl
     Copyright (c) 2000 by Pavel Stingl
 
 
@@ -91,10 +90,3 @@ begin
   Database.Close;
   Database.Close;
   WriteLn(Database.Connected);
   WriteLn(Database.Connected);
 end.
 end.
-
-{
-  $Log: testib.pp,v $
-  Revision 1.7  2005/02/14 17:13:12  peter
-    * truncate log
-
-}

+ 0 - 1
fcl/db/memds/memds.pp

@@ -1,5 +1,4 @@
 {
 {
-    $Id: memds.pp,v 1.3 2005/02/14 17:13:12 peter Exp $
     This file is part of the Free Component Library (FCL)
     This file is part of the Free Component Library (FCL)
     Copyright (c) 1999-2000 by the Free Pascal development team
     Copyright (c) 1999-2000 by the Free Pascal development team
 
 

+ 0 - 1
fcl/db/memds/testcp.pp

@@ -1,5 +1,4 @@
 {
 {
-    $Id: testcp.pp,v 1.2 2005/02/14 17:13:12 peter Exp $
     This file is part of the Free Component Library (FCL)
     This file is part of the Free Component Library (FCL)
     Copyright (c) 1999-2000 by the Free Pascal development team
     Copyright (c) 1999-2000 by the Free Pascal development team
 
 

+ 0 - 1
fcl/db/memds/testld.pp

@@ -1,5 +1,4 @@
 {
 {
-    $Id: testld.pp,v 1.2 2005/02/14 17:13:12 peter Exp $
     This file is part of the Free Component Library (FCL)
     This file is part of the Free Component Library (FCL)
     Copyright (c) 1999-2000 by the Free Pascal development team
     Copyright (c) 1999-2000 by the Free Pascal development team
 
 

+ 0 - 1
fcl/db/memds/testopen.pp

@@ -1,5 +1,4 @@
 {
 {
-    $Id: testopen.pp,v 1.2 2005/02/14 17:13:12 peter Exp $
     This file is part of the Free Component Library (FCL)
     This file is part of the Free Component Library (FCL)
     Copyright (c) 1999-2000 by the Free Pascal development team
     Copyright (c) 1999-2000 by the Free Pascal development team
 
 

+ 0 - 1
fcl/db/memds/testpop.pp

@@ -1,5 +1,4 @@
 {
 {
-    $Id: testpop.pp,v 1.3 2005/02/14 17:13:12 peter Exp $
     This file is part of the Free Component Library (FCL)
     This file is part of the Free Component Library (FCL)
     Copyright (c) 1999-2000 by the Free Pascal development team
     Copyright (c) 1999-2000 by the Free Pascal development team
 
 

+ 0 - 8
fcl/db/mysql/mtest.pp

@@ -1,5 +1,4 @@
 {
 {
-    $Id: mtest.pp,v 1.5 2005/02/14 17:13:12 peter Exp $
     This file is part of the Free Pascal run time library.
     This file is part of the Free Pascal run time library.
     Copyright (c) 1999-2000 by the Free Pascal development team
     Copyright (c) 1999-2000 by the Free Pascal development team
 
 
@@ -197,10 +196,3 @@ begin
     DBase.free;
     DBase.free;
   end;
   end;
 end.
 end.
-
-{
-   $Log: mtest.pp,v $
-   Revision 1.5  2005/02/14 17:13:12  peter
-     * truncate log
-
-}

+ 0 - 11
fcl/db/mysql/mysqldb3.pp

@@ -914,14 +914,3 @@ begin
 end;
 end;
 
 
 end.
 end.
-
-
-{
-  $Log: mysqldb3.pp,v $
-  Revision 1.3  2005/03/27 14:55:47  joost
-  - adapted for new mysql_fetch_field_direct
-
-  Revision 1.2  2005/02/14 17:13:12  peter
-    * truncate log
-
-}

+ 0 - 8
fcl/db/mysql/mysqldb4.pp

@@ -917,11 +917,3 @@ begin
 end;
 end;
 
 
 end.
 end.
-
-
-{
-  $Log: mysqldb4.pp,v $
-  Revision 1.2  2005/02/14 17:13:12  peter
-    * truncate log
-
-}

+ 0 - 1
fcl/db/odbc/fpodbc.pp

@@ -1462,4 +1462,3 @@ Finalization
   If Assigned(DefEnv) then
   If Assigned(DefEnv) then
     TODBCEnvironment(DefEnv).Free;
     TODBCEnvironment(DefEnv).Free;
 end.
 end.
-

+ 0 - 1
fcl/db/sqldb/interbase/ibconnection.pp

@@ -943,4 +943,3 @@ begin
 end;
 end;
 
 
 end.
 end.
-

+ 0 - 1
fcl/db/sqldb/postgres/pqconnection.pp

@@ -687,4 +687,3 @@ end;
 
 
 
 
 end.
 end.
-

+ 1 - 52
fcl/db/sqldb/sqldb.pp

@@ -1,8 +1,6 @@
-{   $Id: sqldb.pp,v 1.18 2005/04/24 19:21:28 joost Exp $
-
+{
     Copyright (c) 2004 by Joost van der Sluis
     Copyright (c) 2004 by Joost van der Sluis
 
 
-
     SQL database & dataset
     SQL database & dataset
 
 
     See the file COPYING.FPC, included in this distribution,
     See the file COPYING.FPC, included in this distribution,
@@ -976,52 +974,3 @@ begin
 end;
 end;
 
 
 end.
 end.
-
-{
-  $Log: sqldb.pp,v $
-  Revision 1.18  2005/04/24 19:21:28  joost
-  - some fixes in assignment of transactions and databases
-
-  Revision 1.17  2005/04/13 22:10:26  joost
-  - TSQLQuery now frees FIndexDefs
-
-  Revision 1.16  2005/04/10 18:29:26  joost
-  - implemented parameter support for sqldb
-  - Added TSQLConnection.ConnOptions
-  - renamed TSQLQuery.FreeStatement to TSQLQuery.CloseStatement
-  - renamed TSQLQuery.PrepareStatement to TSQLQuery.Prepare
-  - added TSQLQuery.UnPrepare
-
-  Revision 1.15  2005/03/23 08:17:51  michael
-  + Several patches from Jose A. Rimon
-  # Prevents "field not found" error, when use a query without the primary key
-  Set SQLlen of different data types
-   Use AliasName instead of SQLname to avoid "duplicate field name" error, for
-  example when using "coalesce" more than once
-  use SQLScale in ftLargeInt to get actual values
-   Send query to server with different lines. Provides line info in sqlErrors
-  and allows single line comments
-
-  Revision 1.14  2005/02/14 17:13:12  peter
-    * truncate log
-
-  Revision 1.13  2005/02/07 11:23:41  joost
-    - implemented TSQLQuery.SetSchemaInfo
-    - added support for delete and insert
-
-  Revision 1.12  2005/01/24 10:52:43  michael
-    * Patch from Joost van der Sluis
-    - Made it possible to run 'show' queries for MySQL
-
-  Revision 1.11  2005/01/12 10:30:33  michael
-   * Patch from Joost Van der Sluis:
-     - implemented TSQLQuery.UpdateIndexDefs
-     - implemented TSQLQuery.ReadOnly
-     - implemented TSQLQuery.IndexDefs
-     - implemented TSQLQuery.UpdateMode
-     - implemented TSQLQuery.UsePrimaryKeyAsKey (Set pfInKey in the
-       providerflags
-       of fields that are in the primary index of the underlying table)
-     - Added support for updates on date-fields
-
-}

+ 0 - 1
fcl/db/sqldb/testsqldb.pp

@@ -73,4 +73,3 @@ begin
   transaction.free;
   transaction.free;
   connection.free;
   connection.free;
 end.
 end.
-

+ 0 - 7
fcl/db/tests/createds.pp

@@ -1,5 +1,4 @@
 {
 {
-    $Id: createds.pp,v 1.3 2005/02/14 17:13:12 peter Exp $
     This file is part of the Free Pascal run time library.
     This file is part of the Free Pascal run time library.
     Copyright (c) 1999-2000 by Michael Van Canneyt, member of the
     Copyright (c) 1999-2000 by Michael Van Canneyt, member of the
     Free Pascal development team
     Free Pascal development team
@@ -64,9 +63,3 @@ begin
     Write(L,I);
     Write(L,I);
   Close(L);
   Close(L);
 end.
 end.
-{
-  $Log: createds.pp,v $
-  Revision 1.3  2005/02/14 17:13:12  peter
-    * truncate log
-
-}

+ 0 - 7
fcl/db/tests/testds.pp

@@ -1,5 +1,4 @@
 {
 {
-    $Id: testds.pp,v 1.3 2005/02/14 17:13:12 peter Exp $
     This file is part of the Free Pascal run time library.
     This file is part of the Free Pascal run time library.
     Copyright (c) 1999-2000 by Michael Van Canneyt, member of the
     Copyright (c) 1999-2000 by Michael Van Canneyt, member of the
     Free Pascal development team
     Free Pascal development team
@@ -176,9 +175,3 @@ begin
     Free;
     Free;
     end;
     end;
 end.
 end.
-{
-  $Log: testds.pp,v $
-  Revision 1.3  2005/02/14 17:13:12  peter
-    * truncate log
-
-}

+ 0 - 7
fcl/db/tests/tested.pp

@@ -1,5 +1,4 @@
 {
 {
-    $Id: tested.pp,v 1.3 2005/02/14 17:13:12 peter Exp $
     This file is part of the Free Pascal run time library.
     This file is part of the Free Pascal run time library.
     Copyright (c) 1999-2000 by Michael Van Canneyt, member of the
     Copyright (c) 1999-2000 by Michael Van Canneyt, member of the
     Free Pascal development team
     Free Pascal development team
@@ -234,9 +233,3 @@ begin
     Close;
     Close;
     end;
     end;
 end.
 end.
-{
-  $Log: tested.pp,v $
-  Revision 1.3  2005/02/14 17:13:12  peter
-    * truncate log
-
-}

+ 0 - 1
fcl/fpcunit/demo/consolerunner/suiteconfig.pp

@@ -1,7 +1,6 @@
 {$mode objfpc}
 {$mode objfpc}
 {$h+}
 {$h+}
 {
 {
-    $Id: suiteconfig.pp,v 1.3 2005/02/27 12:20:19 michael Exp $
     This file is part of the Free Component Library (FCL)
     This file is part of the Free Component Library (FCL)
     Copyright (c) 2004 by Dean Zobec, Michael Van Canneyt
     Copyright (c) 2004 by Dean Zobec, Michael Van Canneyt
 
 

+ 0 - 1
fcl/fpcunit/demo/consolerunner/testrunner.pp

@@ -1,7 +1,6 @@
 {$mode objfpc}
 {$mode objfpc}
 {$h+}
 {$h+}
 {
 {
-    $Id: testrunner.pp,v 1.5 2005/04/11 18:10:55 michael Exp $
     This file is part of the Free Component Library (FCL)
     This file is part of the Free Component Library (FCL)
     Copyright (c) 2004 by Dean Zobec, Michael Van Canneyt
     Copyright (c) 2004 by Dean Zobec, Michael Van Canneyt
 
 

+ 0 - 1
fcl/fpcunit/exampletests/fpcunittests.pp

@@ -1,7 +1,6 @@
 {$mode objfpc}
 {$mode objfpc}
 {$h+}
 {$h+}
 {
 {
-    $Id: fpcunittests.pp,v 1.8 2005/04/11 18:10:55 michael Exp $
     This file is part of the Free Component Library (FCL)
     This file is part of the Free Component Library (FCL)
     Copyright (c) 2004 by Dean Zobec, Michael Van Canneyt
     Copyright (c) 2004 by Dean Zobec, Michael Van Canneyt
 
 

+ 0 - 1
fcl/fpcunit/exampletests/money.pp

@@ -422,4 +422,3 @@ begin
 end;
 end;
 
 
 end.
 end.
-

+ 0 - 1
fcl/fpcunit/exampletests/moneytest.pp

@@ -295,4 +295,3 @@ initialization
   RegisterTests([TMoneyTest]);
   RegisterTests([TMoneyTest]);
 
 
 end.
 end.
-

+ 0 - 2
fcl/fpcunit/exampletests/testmockobject.pp

@@ -1,7 +1,6 @@
 {$mode objfpc}
 {$mode objfpc}
 {$h+}
 {$h+}
 {
 {
-    $Id: testmockobject.pp,v 1.1 2005/05/06 19:38:43 michael Exp $
     This file is part of the Free Component Library (FCL)
     This file is part of the Free Component Library (FCL)
     Copyright (c) 2005 Uberto Barbini
     Copyright (c) 2005 Uberto Barbini
 
 
@@ -126,4 +125,3 @@ end;
 initialization
 initialization
   RegisterTests([TTestMock]);
   RegisterTests([TTestMock]);
 end.
 end.
-

+ 0 - 1
fcl/fpcunit/fpcunit.pp

@@ -1,7 +1,6 @@
 {$mode objfpc}
 {$mode objfpc}
 {$h+}
 {$h+}
 {
 {
-    $Id: fpcunit.pp,v 1.8 2005/04/11 18:10:55 michael Exp $
     This file is part of the Free Component Library (FCL)
     This file is part of the Free Component Library (FCL)
     Copyright (c) 2004 by Dean Zobec, Michael Van Canneyt
     Copyright (c) 2004 by Dean Zobec, Michael Van Canneyt
 
 

+ 0 - 2
fcl/fpcunit/testdecorator.pp

@@ -1,7 +1,6 @@
 {$mode objfpc}
 {$mode objfpc}
 {$h+}
 {$h+}
 {
 {
-    $Id: testdecorator.pp,v 1.1 2005/04/11 18:10:55 michael Exp $
     This file is part of the Free Component Library (FCL)
     This file is part of the Free Component Library (FCL)
     Copyright (c) 2005 by Dean Zobec
     Copyright (c) 2005 by Dean Zobec
 
 
@@ -116,4 +115,3 @@ begin
 end;
 end;
 
 
 end.
 end.
-

+ 0 - 2
fcl/fpcunit/testregistry.pp

@@ -1,7 +1,6 @@
 {$mode objfpc}
 {$mode objfpc}
 {$h+}
 {$h+}
 {
 {
-    $Id: testregistry.pp,v 1.3 2005/04/11 18:10:55 michael Exp $
     This file is part of the Free Component Library (FCL)
     This file is part of the Free Component Library (FCL)
     Copyright (c) 2004 by Dean Zobec, Michael Van Canneyt
     Copyright (c) 2004 by Dean Zobec, Michael Van Canneyt
 
 
@@ -81,4 +80,3 @@ initialization
 finalization
 finalization
   FTestRegistry.Free;
   FTestRegistry.Free;
 end.
 end.
-

+ 0 - 1
fcl/fpcunit/testreport.pp

@@ -1,7 +1,6 @@
 {$mode objfpc}
 {$mode objfpc}
 {$h+}
 {$h+}
 {
 {
-    $Id: testreport.pp,v 1.3 2005/04/11 18:10:55 michael Exp $
     This file is part of the Free Component Library (FCL)
     This file is part of the Free Component Library (FCL)
     Copyright (c) 2004 by Dean Zobec, Michael Van Canneyt
     Copyright (c) 2004 by Dean Zobec, Michael Van Canneyt
 
 

+ 0 - 2
fcl/fpcunit/tests/asserttest.pp

@@ -1,7 +1,6 @@
 {$mode objfpc}
 {$mode objfpc}
 {$h+}
 {$h+}
 {
 {
-    $Id: asserttest.pp,v 1.3 2005/02/27 12:20:19 michael Exp $
     This file is part of the Free Component Library (FCL)
     This file is part of the Free Component Library (FCL)
     Copyright (c) 2004 by Dean Zobec
     Copyright (c) 2004 by Dean Zobec
 
 
@@ -215,4 +214,3 @@ initialization
   RegisterTests([TAssertTest]);
   RegisterTests([TAssertTest]);
 
 
 end.
 end.
-

+ 0 - 1
fcl/fpcunit/tests/frameworktest.pp

@@ -1,7 +1,6 @@
 {$mode objfpc}
 {$mode objfpc}
 {$h+}
 {$h+}
 {
 {
-    $Id: frameworktest.pp,v 1.2 2005/02/14 17:13:12 peter Exp $
     This file is part of the Free Component Library (FCL)
     This file is part of the Free Component Library (FCL)
     Copyright (c) 2004 by Dean Zobec, Michael Van Canneyt
     Copyright (c) 2004 by Dean Zobec, Michael Van Canneyt
 
 

Some files were not shown because too many files changed in this diff