paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-18 05:39:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revisions 42 via svnmerge from

Browse Source 
/trunk

git-svn-id: branches/fixes_2_0@45 -
This commit is contained in:
fpc 2005-05-21 10:35:13 +00:00
parent 0ece7a92ed
commit b409904e44
1826 changed files with 5777 additions and 8346 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/compinnr.inc
View File

@ -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.
Copyright (c) 1998-2002 by the Free Pascal development team

1
compiler/i386/cpubase.inc
View File

@ -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
Contains the basic declarations for the i386 architecture

1
compiler/sparc/opcode.inc
View File

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

1
compiler/sparc/strinst.inc
View File

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

7
compiler/utils/fixlog.pp
View File

@ -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
Remove all revision logs from source files after X revisions or
@ -173,9 +172,3 @@ begin
findclose(dir);
end;
end.
{
$Log: fixlog.pp,v $
Revision 1.8 2005/02/14 17:13:10 peter
* truncate log
}

6
compiler/utils/fixmsg.pp
View File

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

7
compiler/utils/fixnasm.pp
View File

@ -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
Convert insns.dat from Nasm to an i386ins.dat for usage with
@ -98,9 +97,3 @@ begin
close(f);
close(t);
end.
{
$Log: fixnasm.pp,v $
Revision 1.6 2005/02/14 17:13:10 peter
* truncate log
}

1
compiler/utils/fixtab.pp
View File

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

1
compiler/utils/fpc.pp
View File

@ -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
This file is the "loader" for the Free Pascal compiler

18
compiler/utils/fpcmkcfg.pp
View File

@ -1,7 +1,6 @@
{$mode objfpc}
{$H+}
{
$Id: fpcmkcfg.pp,v 1.3 2005/03/25 21:21:30 jonas Exp $
This file is part of Free Pascal Build tools
Copyright (c) 2005 by Michael Van Canneyt
@ -229,20 +228,3 @@ begin
Done;
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
}

1
compiler/utils/fpcsubst.pp
View File

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

1
compiler/utils/fpimpdef.pp
View File

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

7
compiler/utils/gppc386.pp
View File

@ -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
This program allows to run the Makefiles
@ -137,9 +136,3 @@ begin
else
Erase(fpcgdbini);
end.
{
$Log: gppc386.pp,v $
Revision 1.7 2005/02/14 17:13:10 peter
* truncate log
}

7
compiler/utils/mk68kreg.pp
View File

@ -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
Convert spreg.dat to several .inc files for usage with
@ -333,9 +332,3 @@ begin
build_gas_regname_index;
write_inc_files;
end.
{
$Log: mk68kreg.pp,v $
Revision 1.5 2005/02/14 17:13:10 peter
* truncate log
}

7
compiler/utils/mkarmreg.pp
View File

@ -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
Convert spreg.dat to several .inc files for usage with
@ -297,9 +296,3 @@ begin
build_std_regname_index;
write_inc_files;
end.
{
$Log: mkarmreg.pp,v $
Revision 1.5 2005/02/14 17:13:10 peter
* truncate log
}

6
compiler/utils/mkmpsreg.pp
View File

@ -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
Convert mipsreg.dat to several .inc files for usage with
@ -348,8 +347,3 @@ begin
build_gas_regname_index;
write_inc_files;
end.
{
$Log: mkmpsreg.pp,v $
Revision 1.1 2005/02/13 18:56:44 florian
+ basic mips stuff
}

7
compiler/utils/mkppcreg.pp
View File

@ -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
Convert ppcreg.dat to several .inc files for usage with
@ -395,9 +394,3 @@ begin
build_mot_regname_index;
write_inc_files;
end.
{
$Log: mkppcreg.pp,v $
Revision 1.9 2005/02/14 17:13:10 peter
* truncate log
}

7
compiler/utils/mkspreg.pp
View File

@ -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
Convert spreg.dat to several .inc files for usage with
@ -300,9 +299,3 @@ begin
build_std_regname_index;
write_inc_files;
end.
{
$Log: mkspreg.pp,v $
Revision 1.7 2005/02/14 17:13:10 peter
* truncate log
}

7
compiler/utils/mkx86ins.pp
View File

@ -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
Convert i386ins.dat from Nasm to a .inc file for usage with
@ -453,9 +452,3 @@ begin
closeinc(propfile);
writeln(insns,' nodes procesed (maxinfolen=',maxinfolen,')');
end.
{
$Log: mkx86ins.pp,v $
Revision 1.7 2005/02/14 17:13:10 peter
* truncate log
}

7
compiler/utils/mkx86reg.pp
View File

@ -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
Convert i386reg.dat to several .inc files for usage with
@ -467,9 +466,3 @@ begin
build_att_regname_index;
write_inc_files;
end.
{
$Log: mkx86reg.pp,v $
Revision 1.6 2005/02/14 17:13:10 peter
* truncate log
}

13
compiler/utils/msg2inc.pp
View File

@ -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.
Copyright (c) 1998-2002 by Peter Vreman
@ -814,15 +813,3 @@ begin
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
}

7
compiler/utils/msgdif.pp
View File

@ -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.
Copyright (c) 1998-2002 by Peter Vreman
@ -528,9 +527,3 @@ begin
ShowDiff (OrgRoot,DiffRoot);
WriteReorderedFile(NewFileName,orgfirst,difffirst);
end.
{
$Log: msgdif.pp,v $
Revision 1.10 2005/02/14 17:13:10 peter
* truncate log
}

31
compiler/utils/ppudump.pp
View File

@ -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
Dumps the contents of a FPC unit file (PPU File)
@ -2156,33 +2155,3 @@ begin
if has_errors then
Halt(1);
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
}

7
compiler/utils/ppufiles.pp
View File

@ -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
List files needed by PPU
@ -251,9 +250,3 @@ begin
write(' ');
end;
end.
{
$Log: ppufiles.pp,v $
Revision 1.6 2005/02/14 17:13:10 peter
* truncate log
}

7
compiler/utils/ppumove.pp
View File

@ -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
Add multiple FPC units into a static/shared library
@ -612,9 +611,3 @@ begin
if Not Quiet then
Writeln('Done.');
end.
{
$Log: ppumove.pp,v $
Revision 1.8 2005/02/14 17:13:10 peter
* truncate log
}

16
compiler/utils/usubst.pp
View File

@ -1,7 +1,6 @@
{$mode objfpc}
{$H+}
{
$Id: usubst.pp,v 1.1 2005/02/05 10:25:30 peter Exp $
This file is part of Free Pascal build tools
Copyright (c) 2005 by Michael Van Canneyt
@ -108,18 +107,3 @@ begin
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
}

1
compiler/x86_64/cpubase.inc
View File

@ -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
Contains the basic declarations for the x86-64 architecture

14
demo/graph/fpctris.pp
View File

@ -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.
Copyright (C) 1999 by Marco van de Voort
@ -853,16 +852,3 @@ BEGIN
DoFpcTris;
SaveHighScore;
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
}

22
demo/graph/gameunit.pp
View File

@ -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
SameGame)
@ -909,24 +908,3 @@ BEGIN
{$endif}
Negative:=FALSE; { Negative=true-> better scores are lower}
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
}

5
demo/graph/gravwars.pp
View File

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

16
demo/graph/mandel.pp
View File

@ -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.
Copyright (c) 1993-98 by Gernot Tenchio
@ -352,18 +351,3 @@ begin
Writeln('With graph driver ',gd,' and graph mode ',gm);
{$endif}
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
}

9
demo/graph/maze.pp
View File

@ -495,12 +495,3 @@ begin
CloseGraph;
{$endif}
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
}

15
demo/graph/quad.pp
View File

@ -811,18 +811,3 @@ Begin
DoneMouse;
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
}

29
demo/graph/samegame.pp
View File

@ -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.
Copyright (C) 1999 by Marco van de Voort
@ -599,31 +598,3 @@ BEGIN
Writeln('Last games'#39' score was : ',Score);
{$endif}
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
}

16
demo/linux/daemon.pp
View File

@ -2,7 +2,6 @@
CncWare
(c) Copyright 2000
---------------------------------------------------------------------------
$Id: daemon.pp,v 1.5 2005/04/06 10:47:01 marco Exp $
Filename..: daemon.pp
Programmer: Ken J. Wright
Date......: 03/21/2000
@ -140,18 +139,3 @@ Begin
fpSelect(0,nil,nil,nil,secs*1000);
Until bTerm;
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
}

10
demo/modex/voxel.pp
View File

@ -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.
Copyright (C) 1999 by Marco van de Voort
@ -169,12 +168,3 @@ begin
end
until false;
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
}

9
demo/netware/check.pp
View File

@ -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.
Copyright (c) 1999-2002 by the Free Pascal development team.
@ -43,11 +42,3 @@ begin
System.NetwareCheckFunction := @checkfunction;
ReadKey;
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
}

8
demo/netware/nutconnection.pp
View File

@ -1,6 +1,5 @@
unit nutconnection;
{
$Id: nutconnection.pp,v 1.1 2004/12/29 21:39:53 armin Exp $
This file is part of nutmon for netware
Copyright (c) 2004 armin diehl (armin@freepascal.org)
@ -397,10 +396,3 @@ 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
}

11
demo/netware/nutmon.pp
View File

@ -1,6 +1,5 @@
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
@ -481,13 +480,3 @@ begin
{$endif}
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
}

1
demo/netwlibc/nuttest.pp
View File

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

1
demo/os2/pmdemo1.pp
View File

@ -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

8
demo/text/blackbox.pp
View File

@ -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.
Copyright (c) 1993-98 by Michael Van Canneyt
@ -186,10 +185,3 @@ begin
else
Writeln ('Only ',guessed,' out of ',count,' correct...');
end.
{
$Log: blackbox.pp,v $
Revision 1.2 2002/02/22 21:47:00 carl
+ fix some wrong logical comparisons
}

1
demo/text/eratos.pp
View File

@ -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.
Copyright (c) 1993-2005 by Florian Klaempfl

1
demo/text/hello.pp
View File

@ -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.
Copyright (c) 1993-98 by the Free Pascal Development Team

1
demo/text/lines.pp
View File

@ -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.
Copyright (c) 1993-98 by Florian Klaempfl

7
demo/text/magic.pp
View File

@ -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.
Copyright (c) 1993-98 by Florian Klaempfl
@ -96,9 +95,3 @@ begin
inc(size,2);
end;
end.
{
$Log: magic.pp,v $
Revision 1.2 2002/09/07 15:06:35 peter
* old logs removed and tabs fixed
}

10
demo/text/qsort.pp
View File

@ -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.
Copyright (c) 1993-2005 by the Free Pascal Development Team
@ -81,12 +80,3 @@ begin
writeln;
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
}

7
demo/win32/dlltest.pp
View File

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

8
demo/win32/edit.pp
View File

@ -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
Win32 editor example.
@ -458,10 +457,3 @@ Begin
End;
End;
End.
{
$Log: edit.pp,v $
Revision 1.3 2002/09/07 15:06:35 peter
* old logs removed and tabs fixed
}

14
demo/win32/menu.pp
View File

@ -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
Win32 menu creation example.
@ -338,16 +337,3 @@ Begin
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
}

7
demo/win32/testdll.pp
View File

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

11
demo/win32/winhello.pp
View File

@ -1,5 +1,4 @@
{
$Id: winhello.pp,v 1.4 2002/09/07 15:06:35 peter Exp $
Copyright (c) 1996 by Charlie Calvert
Modifications by Florian Klaempfl
@ -108,13 +107,3 @@ begin
end;
Halt(AMessage.wParam);
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
}

7
fcl/amiga/classes.pp
View File

@ -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)
Copyright (c) 1999-2000 by Michael Van Canneyt and Florian Klaempfl
@ -38,9 +37,3 @@ finalization
CommonCleanup;
end.
{
$Log: classes.pp,v $
Revision 1.2 2005/02/14 17:13:11 peter
* truncate log
}

1
fcl/amiga/eventlog.inc
View File

@ -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.
Copyright (c) 2003 by the Free Pascal development team

1
fcl/amiga/pipes.inc
View File

@ -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.
Copyright (c) 1999-2000 by Michael Van Canneyt

1
fcl/amiga/thread.inc
View File

@ -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)
Copyright (c) 1999-2000 by the Free Pascal development team

7
fcl/beos/classes.pp
View File

@ -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)
Copyright (c) 1999-2000 by Michael Van Canneyt and Florian Klaempfl
@ -41,9 +40,3 @@ finalization
CommonCleanup;
end.
{
$Log: classes.pp,v $
Revision 1.3 2005/02/14 17:13:11 peter
* truncate log
}

1
fcl/beos/eventlog.inc
View File

@ -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.
Copyright (c) 2003 by the Free Pascal development team

1
fcl/beos/pipes.inc
View File

@ -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.
Copyright (c) 1999-2000 by Michael Van Canneyt

1
fcl/beos/thread.inc
View File

@ -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)
Copyright (c) 1999-2000 by the Free Pascal development team

8
fcl/darwin/syncobjs.pp
View File

@ -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)
Copyright (c) 1998 by Florian Klaempfl
member of the Free Pascal development team
@ -180,10 +179,3 @@ begin
end;
end.
{
$Log: syncobjs.pp,v $
Revision 1.2 2005/02/14 17:13:12 peter
* truncate log
}

1
fcl/db/bufdataset.inc
View File

@ -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.
Copyright (c) 1999-2000 by Michael Van Canneyt, member of the
Free Pascal development team

1
fcl/db/database.inc
View File

@ -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.
Copyright (c) 1999-2000 by Michael Van Canneyt, member of the
Free Pascal development team

1
fcl/db/dataset.inc
View File

@ -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.
Copyright (c) 1999-2000 by Michael Van Canneyt, member of the
Free Pascal development team

70
fcl/db/db.pp
View File

@ -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.
Copyright (c) 1999-2000 by Michael Van Canneyt, member of the
Free Pascal development team
@ -1939,72 +1938,3 @@ end;
{$i dsparams.inc}
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
}

29
fcl/db/dbconst.pp
View File

@ -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.
Copyright (c) 1999-2000 by Michael Van Canneyt, member of the
Free Pascal development team
@ -76,31 +75,3 @@ Const
Implementation
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
}

7
fcl/db/dbwhtml.pp
View File

@ -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)
Copyright (c) 1999-2000 by the Free Pascal development team
@ -692,9 +691,3 @@ end;
end.
{
$Log: dbwhtml.pp,v $
Revision 1.8 2005/02/14 17:13:12 peter
* truncate log
}

5
fcl/db/ddg_ds.pp
View File

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

5
fcl/db/ddg_rec.pp
View File

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

1
fcl/db/fields.inc
View File

@ -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.
Copyright (c) 1999-2000 by Michael Van Canneyt, member of the
Free Pascal development team

17
fcl/db/interbase/interbase.pp
View File

@ -1,8 +1,6 @@
{ $Id: interbase.pp,v 1.17 2005/03/23 08:35:05 michael Exp $
{
Copyright (c) 2000 by Pavel Stingl
Interbase database & dataset
See the file COPYING.FPC, included in this distribution,
@ -1256,16 +1254,3 @@ end;
{ TIBStoredProc }
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
}

8
fcl/db/interbase/testib.pp
View File

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

1
fcl/db/memds/memds.pp
View File

@ -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)
Copyright (c) 1999-2000 by the Free Pascal development team

1
fcl/db/memds/testcp.pp
View File

@ -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)
Copyright (c) 1999-2000 by the Free Pascal development team

1
fcl/db/memds/testld.pp
View File

@ -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)
Copyright (c) 1999-2000 by the Free Pascal development team

1
fcl/db/memds/testopen.pp
View File

@ -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)
Copyright (c) 1999-2000 by the Free Pascal development team

1
fcl/db/memds/testpop.pp
View File

@ -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)
Copyright (c) 1999-2000 by the Free Pascal development team

8
fcl/db/mysql/mtest.pp
View File

@ -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.
Copyright (c) 1999-2000 by the Free Pascal development team
@ -197,10 +196,3 @@ begin
DBase.free;
end;
end.
{
$Log: mtest.pp,v $
Revision 1.5 2005/02/14 17:13:12 peter
* truncate log
}

11
fcl/db/mysql/mysqldb3.pp
View File

@ -914,14 +914,3 @@ begin
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
}

8
fcl/db/mysql/mysqldb4.pp
View File

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

1
fcl/db/odbc/fpodbc.pp
View File

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

1
fcl/db/sqldb/interbase/ibconnection.pp
View File

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

1
fcl/db/sqldb/postgres/pqconnection.pp
View File

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

53
fcl/db/sqldb/sqldb.pp
View File

@ -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
SQL database & dataset
See the file COPYING.FPC, included in this distribution,
@ -976,52 +974,3 @@ begin
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
}

1
fcl/db/sqldb/testsqldb.pp
View File

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

7
fcl/db/tests/createds.pp
View File

@ -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.
Copyright (c) 1999-2000 by Michael Van Canneyt, member of the
Free Pascal development team
@ -64,9 +63,3 @@ begin
Write(L,I);
Close(L);
end.
{
$Log: createds.pp,v $
Revision 1.3 2005/02/14 17:13:12 peter
* truncate log
}

7
fcl/db/tests/testds.pp
View File

@ -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.
Copyright (c) 1999-2000 by Michael Van Canneyt, member of the
Free Pascal development team
@ -176,9 +175,3 @@ begin
Free;
end;
end.
{
$Log: testds.pp,v $
Revision 1.3 2005/02/14 17:13:12 peter
* truncate log
}

7
fcl/db/tests/tested.pp
View File

@ -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.
Copyright (c) 1999-2000 by Michael Van Canneyt, member of the
Free Pascal development team
@ -234,9 +233,3 @@ begin
Close;
end;
end.
{
$Log: tested.pp,v $
Revision 1.3 2005/02/14 17:13:12 peter
* truncate log
}

1
fcl/fpcunit/demo/consolerunner/suiteconfig.pp
View File

@ -1,7 +1,6 @@
{$mode objfpc}
{$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)
Copyright (c) 2004 by Dean Zobec, Michael Van Canneyt

1
fcl/fpcunit/demo/consolerunner/testrunner.pp
View File

@ -1,7 +1,6 @@
{$mode objfpc}
{$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)
Copyright (c) 2004 by Dean Zobec, Michael Van Canneyt

1
fcl/fpcunit/exampletests/fpcunittests.pp
View File

@ -1,7 +1,6 @@
{$mode objfpc}
{$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)
Copyright (c) 2004 by Dean Zobec, Michael Van Canneyt

1
fcl/fpcunit/exampletests/money.pp
View File

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

1
fcl/fpcunit/exampletests/moneytest.pp
View File

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

2
fcl/fpcunit/exampletests/testmockobject.pp
View File

@ -1,7 +1,6 @@
{$mode objfpc}
{$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)
Copyright (c) 2005 Uberto Barbini
@ -126,4 +125,3 @@ end;
initialization
RegisterTests([TTestMock]);
end.

1
fcl/fpcunit/fpcunit.pp
View File

@ -1,7 +1,6 @@
{$mode objfpc}
{$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)
Copyright (c) 2004 by Dean Zobec, Michael Van Canneyt

2
fcl/fpcunit/testdecorator.pp
View File

@ -1,7 +1,6 @@
{$mode objfpc}
{$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)
Copyright (c) 2005 by Dean Zobec
@ -116,4 +115,3 @@ begin
end;
end.

2
fcl/fpcunit/testregistry.pp
View File

@ -1,7 +1,6 @@
{$mode objfpc}
{$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)
Copyright (c) 2004 by Dean Zobec, Michael Van Canneyt
@ -81,4 +80,3 @@ initialization
finalization
FTestRegistry.Free;
end.

1
fcl/fpcunit/testreport.pp
View File

@ -1,7 +1,6 @@
{$mode objfpc}
{$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)
Copyright (c) 2004 by Dean Zobec, Michael Van Canneyt

2
fcl/fpcunit/tests/asserttest.pp
View File

@ -1,7 +1,6 @@
{$mode objfpc}
{$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)
Copyright (c) 2004 by Dean Zobec
@ -215,4 +214,3 @@ initialization
RegisterTests([TAssertTest]);
end.

1
fcl/fpcunit/tests/frameworktest.pp
View File

@ -1,7 +1,6 @@
{$mode objfpc}
{$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)
Copyright (c) 2004 by Dean Zobec, Michael Van Canneyt

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