paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-06 09:07:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

* updated copyright to 2000

Browse Source
This commit is contained in:
peter 2000-01-07 01:14:18 +00:00
parent 682d3453ee
commit e525797c51
200 changed files with 1330 additions and 760 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/aasm.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1996-98 by Florian Klaempfl Copyright (c) 1998-2000 by Florian Klaempfl
This unit implements an abstract asmoutput class for all processor types This unit implements an abstract asmoutput class for all processor types
@ -1028,7 +1028,10 @@ uses
end. end.
{ {
$Log$ $Log$
Revision 1.69 1999-12-22 01:01:46 peter Revision 1.70 2000-01-07 01:14:18 peter
* updated copyright to 2000
Revision 1.69 1999/12/22 01:01:46 peter
- removed freelabel() - removed freelabel()
* added undefined label detection in internal assembler, this prevents * added undefined label detection in internal assembler, this prevents
a lot of ld crashes and wrong .o files a lot of ld crashes and wrong .o files

7
compiler/ag386att.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1996-98 by the FPC development team Copyright (c) 1998-2000 by Florian Klaempfl
This unit implements an asmoutput class for i386 AT&T syntax This unit implements an asmoutput class for i386 AT&T syntax
@ -871,7 +871,10 @@ unit ag386att;
end. end.
{ {
$Log$ $Log$
Revision 1.22 1999-12-18 20:00:33 florian Revision 1.23 2000-01-07 01:14:18 peter
* updated copyright to 2000
Revision 1.22 1999/12/18 20:00:33 florian
* Bug reported by Marco fixed: Intel assembler reader: fld qword ptr x * Bug reported by Marco fixed: Intel assembler reader: fld qword ptr x
was read as fldq x but it must be fldl x was read as fldq x but it must be fldl x

7
compiler/ag386bin.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1996-98 by the FPC development team Copyright (c) 1998-2000 by Peter Vreman
This unit implements an binary assembler output class This unit implements an binary assembler output class
@ -932,7 +932,10 @@ unit ag386bin;
end. end.
{ {
$Log$ $Log$
Revision 1.32 1999-12-24 15:22:52 peter Revision 1.33 2000-01-07 01:14:18 peter
* updated copyright to 2000
Revision 1.32 1999/12/24 15:22:52 peter
* reset insentry/lastinsoffset so writing smartlink works correct for * reset insentry/lastinsoffset so writing smartlink works correct for
short jmps short jmps

7
compiler/ag386int.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1996,97 by Florian Klaempfl Copyright (c) 1998-2000 by Florian Klaempfl
This unit implements an asmoutput class for Intel syntax with Intel i386+ This unit implements an asmoutput class for Intel syntax with Intel i386+
@ -631,7 +631,10 @@ ait_stab_function_name : ;
end. end.
{ {
$Log$ $Log$
Revision 1.57 1999-12-19 17:36:25 florian Revision 1.58 2000-01-07 01:14:18 peter
* updated copyright to 2000
Revision 1.57 1999/12/19 17:36:25 florian
* generation of LOCALS @@ removed * generation of LOCALS @@ removed
Revision 1.56 1999/11/06 14:34:16 peter Revision 1.56 1999/11/06 14:34:16 peter

7
compiler/ag386nsm.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1996,97 by Florian Klaempfl Copyright (c) 1998-2000 by Florian Klaempfl
This unit implements an asmoutput class for the Nasm assembler with This unit implements an asmoutput class for the Nasm assembler with
Intel syntax for the i386+ Intel syntax for the i386+
@ -654,7 +654,10 @@ unit ag386nsm;
end. end.
{ {
$Log$ $Log$
Revision 1.54 1999-11-06 14:34:16 peter Revision 1.55 2000-01-07 01:14:18 peter
* updated copyright to 2000
Revision 1.54 1999/11/06 14:34:16 peter
* truncated log to 20 revs * truncated log to 20 revs
Revision 1.53 1999/11/02 15:06:56 peter Revision 1.53 1999/11/02 15:06:56 peter

7
compiler/ag68kgas.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1998 by the FPC development team Copyright (c) 1998-2000 by Florian Klaempfl
This unit implements an asmoutput class for MOTOROLA syntax with This unit implements an asmoutput class for MOTOROLA syntax with
Motorola 68000 (for GAS v2.52 AND HIGER) Motorola 68000 (for GAS v2.52 AND HIGER)
@ -706,7 +706,10 @@ ait_stab_function_name : funcname:=pai_stab_function_name(hp)^.str;
end. end.
{ {
$Log$ $Log$
Revision 1.23 1999-09-16 23:05:51 florian Revision 1.24 2000-01-07 01:14:18 peter
* updated copyright to 2000
Revision 1.23 1999/09/16 23:05:51 florian
* m68k compiler is again compilable (only gas writer, no assembler reader) * m68k compiler is again compilable (only gas writer, no assembler reader)
Revision 1.22 1998/12/23 22:53:44 peter Revision 1.22 1998/12/23 22:53:44 peter

7
compiler/ag68kmit.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1998 by the FPC development team Copyright (c) 1998-2000 by Florian Klaempfl
This unit implements an asmoutput class for MIT syntax with This unit implements an asmoutput class for MIT syntax with
Motorola 68000 (for MIT syntax TEST WITH GAS v1.34) Motorola 68000 (for MIT syntax TEST WITH GAS v1.34)
@ -668,7 +668,10 @@ ait_stab_function_name : funcname:=pai_stab_function_name(hp)^.str;
end. end.
{ {
$Log$ $Log$
Revision 1.22 1999-09-16 23:05:51 florian Revision 1.23 2000-01-07 01:14:18 peter
* updated copyright to 2000
Revision 1.22 1999/09/16 23:05:51 florian
* m68k compiler is again compilable (only gas writer, no assembler reader) * m68k compiler is again compilable (only gas writer, no assembler reader)
Revision 1.21 1999/03/10 13:25:45 pierre Revision 1.21 1999/03/10 13:25:45 pierre

7
compiler/ag68kmot.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1998 by the FPC development team Copyright (c) 1998-2000 by Florian Klaempfl
This unit implements an asmoutput class for MOTOROLA syntax with This unit implements an asmoutput class for MOTOROLA syntax with
Motorola 68000 (recognized by the Amiga Assembler and Charlie Gibbs's Motorola 68000 (recognized by the Amiga Assembler and Charlie Gibbs's
@ -542,7 +542,10 @@ ait_labeled_instruction :
end. end.
{ {
$Log$ $Log$
Revision 1.18 1999-09-16 23:05:51 florian Revision 1.19 2000-01-07 01:14:18 peter
* updated copyright to 2000
Revision 1.18 1999/09/16 23:05:51 florian
* m68k compiler is again compilable (only gas writer, no assembler reader) * m68k compiler is again compilable (only gas writer, no assembler reader)
Revision 1.17 1999/03/04 13:55:41 pierre Revision 1.17 1999/03/04 13:55:41 pierre

7
compiler/ag68kmpw.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1998 by the FPC development team Copyright (c) 1998-2000 by Florian Klaempfl
This unit implements an asmoutput class for Macintosh MPW syntax This unit implements an asmoutput class for Macintosh MPW syntax
@ -581,7 +581,10 @@ ait_labeled_instruction :
end. end.
{ {
$Log$ $Log$
Revision 1.10 1999-11-06 14:34:16 peter Revision 1.11 2000-01-07 01:14:18 peter
* updated copyright to 2000
Revision 1.10 1999/11/06 14:34:16 peter
* truncated log to 20 revs * truncated log to 20 revs
Revision 1.9 1999/09/16 23:05:51 florian Revision 1.9 1999/09/16 23:05:51 florian

7
compiler/aopt386.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1998 by Jonas Maebe Copyright (c) 1998-2000 by Jonas Maebe
This unit calls the optimization procedures to optimize the assembler This unit calls the optimization procedures to optimize the assembler
code for i386+ code for i386+
@ -101,7 +101,10 @@ End.
{ {
$Log$ $Log$
Revision 1.30 1999-11-27 23:50:22 jonas Revision 1.31 2000-01-07 01:14:19 peter
* updated copyright to 2000
Revision 1.30 1999/11/27 23:50:22 jonas
+ if you define "newOptimizations", all extra optimizations that + if you define "newOptimizations", all extra optimizations that
require conditional defines will be activated (ie., it's equivalent require conditional defines will be activated (ie., it's equivalent
to "-dreplacereg -darithopt -dforopt -dfoldarithops") to "-dreplacereg -darithopt -dforopt -dfoldarithops")

7
compiler/assemble.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1998 by the FPC development team Copyright (c) 1998-2000 by Peter Vreman
This unit handles the assemblerfile write and assembler calls of FPC This unit handles the assemblerfile write and assembler calls of FPC
@ -564,7 +564,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.58 1999-11-12 11:03:49 peter Revision 1.59 2000-01-07 01:14:19 peter
* updated copyright to 2000
Revision 1.58 1999/11/12 11:03:49 peter
* searchpaths changed to stringqueue object * searchpaths changed to stringqueue object
Revision 1.57 1999/11/08 10:37:12 peter Revision 1.57 1999/11/08 10:37:12 peter

7
compiler/browcol.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1993-98 by the FPC development team Copyright (c) 1998-2000 by Florian Klaempfl and Pierre Muller
Support routines for getting browser info in collections Support routines for getting browser info in collections
@ -1706,7 +1706,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.30 1999-12-01 11:11:19 pierre Revision 1.31 2000-01-07 01:14:19 peter
* updated copyright to 2000
Revision 1.30 1999/12/01 11:11:19 pierre
* don't redefine sw_integer for FPC : corrected version * don't redefine sw_integer for FPC : corrected version
Revision 1.29 1999/12/01 11:05:47 pierre Revision 1.29 1999/12/01 11:05:47 pierre

7
compiler/browlog.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1993-98 by the FPC development team Copyright (c) 1998-2000 by Florian Klaempfl and Pierre Muller
Support routines for creating the browser log Support routines for creating the browser log
@ -448,7 +448,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.4 1999-11-30 10:40:42 peter Revision 1.5 2000-01-07 01:14:20 peter
* updated copyright to 2000
Revision 1.4 1999/11/30 10:40:42 peter
+ ttype, tsymlist + ttype, tsymlist
Revision 1.3 1999/11/17 17:04:58 pierre Revision 1.3 1999/11/17 17:04:58 pierre

7
compiler/catch.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1997-98 by Michael Van Canneyt Copyright (c) 1998-2000 by Michael Van Canneyt
Unit to catch segmentation faults and Ctrl-C and exit gracefully Unit to catch segmentation faults and Ctrl-C and exit gracefully
under linux and go32v2 under linux and go32v2
@ -100,7 +100,10 @@ end.
{ {
$Log$ $Log$
Revision 1.9 1999-08-25 16:41:04 peter Revision 1.10 2000-01-07 01:14:20 peter
* updated copyright to 2000
Revision 1.9 1999/08/25 16:41:04 peter
* resources are working again * resources are working again
Revision 1.8 1999/08/10 12:27:15 pierre Revision 1.8 1999/08/10 12:27:15 pierre

7
compiler/cg386add.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1993-98 by Florian Klaempfl Copyright (c) 1998-2000 by Florian Klaempfl
Generate i386 assembler for in add node Generate i386 assembler for in add node
@ -2136,7 +2136,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.83 1999-12-11 18:53:31 jonas Revision 1.84 2000-01-07 01:14:20 peter
* updated copyright to 2000
Revision 1.83 1999/12/11 18:53:31 jonas
* fixed type conversions of results of operations with cardinals * fixed type conversions of results of operations with cardinals
(between -dcardinalmulfix) (between -dcardinalmulfix)

7
compiler/cg386cal.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1993-98 by Florian Klaempfl Copyright (c) 1998-2000 by Florian Klaempfl
Generate i386 assembler for in call nodes Generate i386 assembler for in call nodes
@ -1230,7 +1230,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.113 1999-12-22 01:01:46 peter Revision 1.114 2000-01-07 01:14:20 peter
* updated copyright to 2000
Revision 1.113 1999/12/22 01:01:46 peter
- removed freelabel() - removed freelabel()
* added undefined label detection in internal assembler, this prevents * added undefined label detection in internal assembler, this prevents
a lot of ld crashes and wrong .o files a lot of ld crashes and wrong .o files

7
compiler/cg386cnv.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1993-98 by Florian Klaempfl Copyright (c) 1998-2000 by Florian Klaempfl
Generate i386 assembler for type converting nodes Generate i386 assembler for type converting nodes
@ -1486,7 +1486,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.97 1999-12-22 01:01:46 peter Revision 1.98 2000-01-07 01:14:20 peter
* updated copyright to 2000
Revision 1.97 1999/12/22 01:01:46 peter
- removed freelabel() - removed freelabel()
* added undefined label detection in internal assembler, this prevents * added undefined label detection in internal assembler, this prevents
a lot of ld crashes and wrong .o files a lot of ld crashes and wrong .o files

7
compiler/cg386con.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1993-98 by Florian Klaempfl Copyright (c) 1998-2000 by Florian Klaempfl
Generate i386 assembler for constants Generate i386 assembler for constants
@ -431,7 +431,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.43 1999-11-06 14:34:17 peter Revision 1.44 2000-01-07 01:14:20 peter
* updated copyright to 2000
Revision 1.43 1999/11/06 14:34:17 peter
* truncated log to 20 revs * truncated log to 20 revs
Revision 1.42 1999/09/26 21:30:15 peter Revision 1.42 1999/09/26 21:30:15 peter

29
compiler/cg386flw.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1993-99 by Florian Klaempfl Copyright (c) 1998-2000 by Florian Klaempfl
Generate i386 assembler for nodes that influence the flow Generate i386 assembler for nodes that influence the flow
@ -610,8 +610,8 @@ do_jmp:
getlabel(exitexceptlabel); getlabel(exitexceptlabel);
aktexitlabel:=exitexceptlabel; aktexitlabel:=exitexceptlabel;
aktexit2label:=exitexceptlabel; aktexit2label:=exitexceptlabel;
if assigned(aktbreaklabel) then if assigned(aktbreaklabel) then
begin begin
oldaktcontinuelabel:=aktcontinuelabel; oldaktcontinuelabel:=aktcontinuelabel;
oldaktbreaklabel:=aktbreaklabel; oldaktbreaklabel:=aktbreaklabel;
getlabel(breakexceptlabel); getlabel(breakexceptlabel);
@ -700,11 +700,11 @@ do_jmp:
endexceptlabel:=oldendexceptlabel; endexceptlabel:=oldendexceptlabel;
aktexitlabel:=oldaktexitlabel; aktexitlabel:=oldaktexitlabel;
aktexit2label:=oldaktexit2label; aktexit2label:=oldaktexit2label;
if assigned(aktbreaklabel) then if assigned(aktbreaklabel) then
begin begin
aktcontinuelabel:=oldaktcontinuelabel; aktcontinuelabel:=oldaktcontinuelabel;
aktbreaklabel:=oldaktbreaklabel; aktbreaklabel:=oldaktbreaklabel;
end; end;
end; end;
procedure secondon(var p : ptree); procedure secondon(var p : ptree);
@ -788,15 +788,15 @@ do_jmp:
getlabel(exitfinallylabel); getlabel(exitfinallylabel);
aktexitlabel:=exitfinallylabel; aktexitlabel:=exitfinallylabel;
aktexit2label:=exitfinallylabel; aktexit2label:=exitfinallylabel;
if assigned(aktbreaklabel) then if assigned(aktbreaklabel) then
begin begin
oldaktcontinuelabel:=aktcontinuelabel; oldaktcontinuelabel:=aktcontinuelabel;
oldaktbreaklabel:=aktbreaklabel; oldaktbreaklabel:=aktbreaklabel;
getlabel(breakfinallylabel); getlabel(breakfinallylabel);
getlabel(continuefinallylabel); getlabel(continuefinallylabel);
aktcontinuelabel:=continuefinallylabel; aktcontinuelabel:=continuefinallylabel;
aktbreaklabel:=breakfinallylabel; aktbreaklabel:=breakfinallylabel;
end; end;
push_int(1); { Type of stack-frame must be pushed} push_int(1); { Type of stack-frame must be pushed}
emitcall('FPC_PUSHEXCEPTADDR'); emitcall('FPC_PUSHEXCEPTADDR');
@ -864,11 +864,11 @@ do_jmp:
aktexitlabel:=oldaktexitlabel; aktexitlabel:=oldaktexitlabel;
aktexit2label:=oldaktexit2label; aktexit2label:=oldaktexit2label;
if assigned(aktbreaklabel) then if assigned(aktbreaklabel) then
begin begin
aktcontinuelabel:=oldaktcontinuelabel; aktcontinuelabel:=oldaktcontinuelabel;
aktbreaklabel:=oldaktbreaklabel; aktbreaklabel:=oldaktbreaklabel;
end; end;
end; end;
@ -885,7 +885,10 @@ do_jmp:
end. end.
{ {
$Log$ $Log$
Revision 1.65 1999-12-22 23:30:06 peter Revision 1.66 2000-01-07 01:14:20 peter
* updated copyright to 2000
Revision 1.65 1999/12/22 23:30:06 peter
* nested try blocks work again * nested try blocks work again
Revision 1.64 1999/12/22 01:01:46 peter Revision 1.64 1999/12/22 01:01:46 peter

7
compiler/cg386inl.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1993-98 by Florian Klaempfl Copyright (c) 1998-2000 by Florian Klaempfl
Generate i386 inline nodes Generate i386 inline nodes
@ -1479,7 +1479,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.86 1999-12-22 01:01:46 peter Revision 1.87 2000-01-07 01:14:20 peter
* updated copyright to 2000
Revision 1.86 1999/12/22 01:01:46 peter
- removed freelabel() - removed freelabel()
* added undefined label detection in internal assembler, this prevents * added undefined label detection in internal assembler, this prevents
a lot of ld crashes and wrong .o files a lot of ld crashes and wrong .o files

9
compiler/cg386ld.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1993-98 by Florian Klaempfl Copyright (c) 1998-2000 by Florian Klaempfl
Generate i386 assembler for load/assignment nodes Generate i386 assembler for load/assignment nodes
@ -996,7 +996,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.93 1999-12-30 15:04:31 peter Revision 1.94 2000-01-07 01:14:21 peter
* updated copyright to 2000
Revision 1.93 1999/12/30 15:04:31 peter
* fixed funcret within inlined procedure * fixed funcret within inlined procedure
Revision 1.92 1999/12/22 01:01:47 peter Revision 1.92 1999/12/22 01:01:47 peter
@ -1033,7 +1036,7 @@ end.
* some other potential bugs with array constructors fixed * some other potential bugs with array constructors fixed
* for classes compiled in $M+ and it's childs, the default access method * for classes compiled in $M+ and it's childs, the default access method
is now published is now published
* fixed copyright message (it is now 1993-99) * fixed copyright message (it is now 1998-2000)
Revision 1.84 1999/09/11 09:08:31 florian Revision 1.84 1999/09/11 09:08:31 florian
* fixed bug 596 * fixed bug 596

7
compiler/cg386mat.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1993-98 by Florian Klaempfl Copyright (c) 1998-2000 by Florian Klaempfl
Generate i386 assembler for math nodes Generate i386 assembler for math nodes
@ -940,7 +940,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.37 2000-01-07 00:12:10 peter Revision 1.38 2000-01-07 01:14:21 peter
* updated copyright to 2000
Revision 1.37 2000/01/07 00:12:10 peter
* fixed movd isntruction to be A_MOVD instead of A_MOV S_D * fixed movd isntruction to be A_MOVD instead of A_MOV S_D
Revision 1.36 1999/11/18 15:34:44 pierre Revision 1.36 1999/11/18 15:34:44 pierre

7
compiler/cg386mem.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1993-98 by Florian Klaempfl Copyright (c) 1998-2000 by Florian Klaempfl
Generate i386 assembler for in memory related nodes Generate i386 assembler for in memory related nodes
@ -885,7 +885,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.65 2000-01-04 15:15:50 florian Revision 1.66 2000-01-07 01:14:21 peter
* updated copyright to 2000
Revision 1.65 2000/01/04 15:15:50 florian
+ added compiler switch $maxfpuregisters + added compiler switch $maxfpuregisters
+ fixed a small problem in secondvecn + fixed a small problem in secondvecn

7
compiler/cg386set.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1993-98 by Florian Klaempfl Copyright (c) 1998-2000 by Florian Klaempfl
Generate i386 assembler for in set/case nodes Generate i386 assembler for in set/case nodes
@ -898,7 +898,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.44 1999-12-01 22:45:54 peter Revision 1.45 2000-01-07 01:14:21 peter
* updated copyright to 2000
Revision 1.44 1999/12/01 22:45:54 peter
* fixed wrong assembler with in-node * fixed wrong assembler with in-node
Revision 1.43 1999/11/06 14:34:18 peter Revision 1.43 1999/11/06 14:34:18 peter

7
compiler/cg68kadd.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1993-98 by Florian Klaempfl Copyright (c) 1998-2000 by Florian Klaempfl
Generate m68k assembler for add node Generate m68k assembler for add node
@ -1281,7 +1281,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.17 1999-09-16 23:05:51 florian Revision 1.18 2000-01-07 01:14:21 peter
* updated copyright to 2000
Revision 1.17 1999/09/16 23:05:51 florian
* m68k compiler is again compilable (only gas writer, no assembler reader) * m68k compiler is again compilable (only gas writer, no assembler reader)
Revision 1.16 1999/09/16 11:34:52 pierre Revision 1.16 1999/09/16 11:34:52 pierre

7
compiler/cg68kcal.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1993-98 by Florian Klaempfl Copyright (c) 1998-2000 by Florian Klaempfl
Generate m68k assembler for in call nodes Generate m68k assembler for in call nodes
@ -1067,7 +1067,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.22 1999-12-22 01:01:47 peter Revision 1.23 2000-01-07 01:14:21 peter
* updated copyright to 2000
Revision 1.22 1999/12/22 01:01:47 peter
- removed freelabel() - removed freelabel()
* added undefined label detection in internal assembler, this prevents * added undefined label detection in internal assembler, this prevents
a lot of ld crashes and wrong .o files a lot of ld crashes and wrong .o files

7
compiler/cg68kcnv.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1993-98 by Florian Klaempfl Copyright (c) 1998-2000 by Florian Klaempfl
Generate m68k assembler for type converting nodes Generate m68k assembler for type converting nodes
@ -1359,7 +1359,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.15 1999-12-22 01:01:47 peter Revision 1.16 2000-01-07 01:14:21 peter
* updated copyright to 2000
Revision 1.15 1999/12/22 01:01:47 peter
- removed freelabel() - removed freelabel()
* added undefined label detection in internal assembler, this prevents * added undefined label detection in internal assembler, this prevents
a lot of ld crashes and wrong .o files a lot of ld crashes and wrong .o files

7
compiler/cg68kcon.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1993-98 by Florian Klaempfl Copyright (c) 1998-2000 by Florian Klaempfl
Generate m68k assembler for constants Generate m68k assembler for constants
@ -372,7 +372,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.7 1999-09-20 16:38:52 peter Revision 1.8 2000-01-07 01:14:22 peter
* updated copyright to 2000
Revision 1.7 1999/09/20 16:38:52 peter
* cs_create_smart instead of cs_smartlink * cs_create_smart instead of cs_smartlink
* -CX is create smartlink * -CX is create smartlink
* -CD is create dynamic, but does nothing atm. * -CD is create dynamic, but does nothing atm.

7
compiler/cg68kflw.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1993-98 by Florian Klaempfl Copyright (c) 1998-2000 by Florian Klaempfl
Generate m68k assembler for nodes that influence the flow Generate m68k assembler for nodes that influence the flow
@ -770,7 +770,10 @@ do_jmp:
end. end.
{ {
$Log$ $Log$
Revision 1.13 1999-12-22 01:01:47 peter Revision 1.14 2000-01-07 01:14:22 peter
* updated copyright to 2000
Revision 1.13 1999/12/22 01:01:47 peter
- removed freelabel() - removed freelabel()
* added undefined label detection in internal assembler, this prevents * added undefined label detection in internal assembler, this prevents
a lot of ld crashes and wrong .o files a lot of ld crashes and wrong .o files

7
compiler/cg68kinl.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1993-98 by Florian Klaempfl Copyright (c) 1998-2000 by Florian Klaempfl
Generate m68k inline nodes Generate m68k inline nodes
@ -900,7 +900,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.20 1999-12-20 21:42:35 pierre Revision 1.21 2000-01-07 01:14:22 peter
* updated copyright to 2000
Revision 1.20 1999/12/20 21:42:35 pierre
+ dllversion global variable + dllversion global variable
* FPC_USE_CPREFIX code removed, not necessary anymore * FPC_USE_CPREFIX code removed, not necessary anymore
as we use .edata direct writing by default now. as we use .edata direct writing by default now.

7
compiler/cg68kld.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1993-98 by Florian Klaempfl Copyright (c) 1998-2000 by Florian Klaempfl
Generate m68k assembler for load/assignment nodes Generate m68k assembler for load/assignment nodes
@ -471,7 +471,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.11 1999-12-22 01:01:47 peter Revision 1.12 2000-01-07 01:14:22 peter
* updated copyright to 2000
Revision 1.11 1999/12/22 01:01:47 peter
- removed freelabel() - removed freelabel()
* added undefined label detection in internal assembler, this prevents * added undefined label detection in internal assembler, this prevents
a lot of ld crashes and wrong .o files a lot of ld crashes and wrong .o files

7
compiler/cg68kmat.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1993-98 by Florian Klaempfl Copyright (c) 1998-2000 by Florian Klaempfl
Generate m68k assembler for math nodes Generate m68k assembler for math nodes
@ -449,7 +449,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.6 1999-11-18 15:34:44 pierre Revision 1.7 2000-01-07 01:14:22 peter
* updated copyright to 2000
Revision 1.6 1999/11/18 15:34:44 pierre
* Notes/Hints for local syms changed to * Notes/Hints for local syms changed to
Set_varstate function Set_varstate function

7
compiler/cg68kmem.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1993-98 by Florian Klaempfl Copyright (c) 1998-2000 by Florian Klaempfl
Generate m68k assembler for in memory related nodes Generate m68k assembler for in memory related nodes
@ -725,7 +725,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.13 1999-09-16 23:05:51 florian Revision 1.14 2000-01-07 01:14:22 peter
* updated copyright to 2000
Revision 1.13 1999/09/16 23:05:51 florian
* m68k compiler is again compilable (only gas writer, no assembler reader) * m68k compiler is again compilable (only gas writer, no assembler reader)
Revision 1.12 1999/08/25 11:59:52 jonas Revision 1.12 1999/08/25 11:59:52 jonas

7
compiler/cg68kset.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1993-98 by Florian Klaempfl Copyright (c) 1998-2000 by Florian Klaempfl
Generate m68k assembler for in set/case nodes Generate m68k assembler for in set/case nodes
@ -813,7 +813,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.9 1999-09-16 23:05:51 florian Revision 1.10 2000-01-07 01:14:22 peter
* updated copyright to 2000
Revision 1.9 1999/09/16 23:05:51 florian
* m68k compiler is again compilable (only gas writer, no assembler reader) * m68k compiler is again compilable (only gas writer, no assembler reader)
Revision 1.8 1998/12/11 00:03:08 peter Revision 1.8 1998/12/11 00:03:08 peter

7
compiler/cga68k.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1993-98 by Florian Klaempfl, Carl Eric Codere Copyright (c) 1998-2000 by Florian Klaempfl, Carl Eric Codere
This unit generates 68000 (or better) assembler from the parse tree This unit generates 68000 (or better) assembler from the parse tree
@ -1391,7 +1391,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.38 1999-11-17 17:04:58 pierre Revision 1.39 2000-01-07 01:14:22 peter
* updated copyright to 2000
Revision 1.38 1999/11/17 17:04:58 pierre
* Notes/hints changes * Notes/hints changes
Revision 1.37 1999/11/09 23:06:44 peter Revision 1.37 1999/11/09 23:06:44 peter

9
compiler/cgai386.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1993-98 by Florian Klaempfl Copyright (c) 1998-2000 by Florian Klaempfl
Helper routines for the i386 code generator Helper routines for the i386 code generator
@ -3447,7 +3447,10 @@ procedure mov_reg_to_dest(p : ptree; s : topsize; reg : tregister);
end. end.
{ {
$Log$ $Log$
Revision 1.65 1999-12-22 01:01:47 peter Revision 1.66 2000-01-07 01:14:22 peter
* updated copyright to 2000
Revision 1.65 1999/12/22 01:01:47 peter
- removed freelabel() - removed freelabel()
* added undefined label detection in internal assembler, this prevents * added undefined label detection in internal assembler, this prevents
a lot of ld crashes and wrong .o files a lot of ld crashes and wrong .o files
@ -3547,7 +3550,7 @@ end.
* some other potential bugs with array constructors fixed * some other potential bugs with array constructors fixed
* for classes compiled in $M+ and it's childs, the default access method * for classes compiled in $M+ and it's childs, the default access method
is now published is now published
* fixed copyright message (it is now 1993-99) * fixed copyright message (it is now 1998-2000)
Revision 1.40 1999/09/11 11:23:58 florian Revision 1.40 1999/09/11 11:23:58 florian
* bug 603 fixed * bug 603 fixed

7
compiler/cobjects.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1993-98 by Florian Klaempfl Copyright (c) 1998-2000 by Florian Klaempfl
This module provides some basic objects This module provides some basic objects
@ -2318,7 +2318,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.49 1999-12-22 01:01:48 peter Revision 1.50 2000-01-07 01:14:23 peter
* updated copyright to 2000
Revision 1.49 1999/12/22 01:01:48 peter
- removed freelabel() - removed freelabel()
* added undefined label detection in internal assembler, this prevents * added undefined label detection in internal assembler, this prevents
a lot of ld crashes and wrong .o files a lot of ld crashes and wrong .o files

7
compiler/comphook.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1998 by Peter Vreman Copyright (c) 1998-2000 by Peter Vreman
This unit handles the compilerhooks for output to external programs This unit handles the compilerhooks for output to external programs
@ -295,7 +295,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.19 1999-11-18 15:34:45 pierre Revision 1.20 2000-01-07 01:14:23 peter
* updated copyright to 2000
Revision 1.19 1999/11/18 15:34:45 pierre
* Notes/Hints for local syms changed to * Notes/Hints for local syms changed to
Set_varstate function Set_varstate function

7
compiler/compiler.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1993-98 by Florian Klaempfl Copyright (c) 1998-2000 by Florian Klaempfl
This unit is the interface of the compiler which can be used by This unit is the interface of the compiler which can be used by
external programs to link in the compiler external programs to link in the compiler
@ -329,7 +329,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.41 1999-12-02 17:34:34 peter Revision 1.42 2000-01-07 01:14:23 peter
* updated copyright to 2000
Revision 1.41 1999/12/02 17:34:34 peter
* preprocessor support. But it fails on the caret in type blocks * preprocessor support. But it fails on the caret in type blocks
Revision 1.40 1999/11/18 13:43:48 pierre Revision 1.40 1999/11/18 13:43:48 pierre

7
compiler/comprsrc.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1998 by Florian Klaempfl Copyright (c) 1998-2000 by Florian Klaempfl
Handles the resource files handling Handles the resource files handling
@ -109,7 +109,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.8 1999-12-01 12:42:32 peter Revision 1.9 2000-01-07 01:14:23 peter
* updated copyright to 2000
Revision 1.8 1999/12/01 12:42:32 peter
* fixed bug 698 * fixed bug 698
* removed some notes about unused vars * removed some notes about unused vars

7
compiler/cpuasm.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1999 by Florian Klaempfl and Peter Vreman Copyright (c) 1998-2000 by Florian Klaempfl and Peter Vreman
Contains the assembler object for the i386 Contains the assembler object for the i386
@ -1565,7 +1565,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.8 2000-01-07 00:07:24 peter Revision 1.9 2000-01-07 01:14:23 peter
* updated copyright to 2000
Revision 1.8 2000/01/07 00:07:24 peter
* display fpu,mmx,xmm names instead of reg?? * display fpu,mmx,xmm names instead of reg??
Revision 1.7 1999/12/24 15:22:52 peter Revision 1.7 1999/12/24 15:22:52 peter

7
compiler/cpubase.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1999 by Florian Klaempfl and Peter Vreman Copyright (c) 1998-2000 by Florian Klaempfl and Peter Vreman
Contains the base types for the i386 Contains the base types for the i386
@ -899,7 +899,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.19 1999-12-02 19:28:29 peter Revision 1.20 2000-01-07 01:14:23 peter
* updated copyright to 2000
Revision 1.19 1999/12/02 19:28:29 peter
* more A_LOOP<Cond> to is_calljmp * more A_LOOP<Cond> to is_calljmp
Revision 1.18 1999/12/02 11:26:41 peter Revision 1.18 1999/12/02 11:26:41 peter

25
compiler/cpuinfo.pas
View File

@ -1,19 +1,25 @@
{ {
$Id$ $Id$
This file is part of the Free Pascal run time library. Copyright (c) 1998-2000 by Florian Klaempfl
Copyright (c) 1999 by the Free Pascal development team
Basic Processor information Basic Processor information
See the file COPYING.FPC, included in this distribution, This program is free software; you can redistribute it and/or modify
for details about the copyright. it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful, This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
**********************************************************************} You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
****************************************************************************
}
Unit CPUInfo; Unit CPUInfo;
Interface Interface
@ -28,13 +34,16 @@ Type
Const Const
{ Size of native extended type } { Size of native extended type }
extended_size = 10; extended_size = 10;
Implementation Implementation
end. end.
{ {
$Log$ $Log$
Revision 1.1 1999-08-04 11:13:38 florian Revision 1.2 2000-01-07 01:14:23 peter
* updated copyright to 2000
Revision 1.1 1999/08/04 11:13:38 florian
+ initial revision + initial revision
} }

8
compiler/cresstr.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1999 by the Free Pascal development team Copyright (c) 1998-2000 by Michael van Canneyt
Handles resourcestrings Handles resourcestrings
@ -17,6 +17,7 @@
You should have received a copy of the GNU General Public License You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
**************************************************************************** ****************************************************************************
} }
unit cresstr; unit cresstr;
@ -308,7 +309,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.15 1999-11-06 14:34:20 peter Revision 1.16 2000-01-07 01:14:23 peter
* updated copyright to 2000
Revision 1.15 1999/11/06 14:34:20 peter
* truncated log to 20 revs * truncated log to 20 revs
Revision 1.14 1999/08/27 15:55:36 michael Revision 1.14 1999/08/27 15:55:36 michael

9
compiler/csopt386.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1997-98 by Jonas Maebe Copyright (c) 1998-2000 by Jonas Maebe
This unit contains the common subexpression elimination procedure. This unit contains the common subexpression elimination procedure.
@ -744,7 +744,7 @@ begin
If RegLoadedWithNewValue(newReg,endP) then If RegLoadedWithNewValue(newReg,endP) then
GetLastInstruction(endP,hp) GetLastInstruction(endP,hp)
else hp := endP; else hp := endP;
if (p <> endp) or if (p <> endp) or
not RegLoadedWithNewValue(newReg,endP) then not RegLoadedWithNewValue(newReg,endP) then
RestoreRegContentsTo(newReg, c ,p, hp); RestoreRegContentsTo(newReg, c ,p, hp);
{ In both case a and b, it is possible that the new register was modified } { In both case a and b, it is possible that the new register was modified }
@ -1114,7 +1114,10 @@ End.
{ {
$Log$ $Log$
Revision 1.37 2000-01-03 17:11:17 jonas Revision 1.38 2000-01-07 01:14:23 peter
* updated copyright to 2000
Revision 1.37 2000/01/03 17:11:17 jonas
* fixed bug with -dreplacereg * fixed bug with -dreplacereg
Revision 1.36 1999/12/05 16:48:43 jonas Revision 1.36 1999/12/05 16:48:43 jonas

7
compiler/daopt386.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1997-98 by Jonas Maebe Copyright (c) 1998-2000 by Jonas Maebe
This unit contains the data flow analyzer and several helper procedures This unit contains the data flow analyzer and several helper procedures
and functions. and functions.
@ -1918,7 +1918,10 @@ End.
{ {
$Log$ $Log$
Revision 1.75 1999-12-05 16:48:43 jonas Revision 1.76 2000-01-07 01:14:23 peter
* updated copyright to 2000
Revision 1.75 1999/12/05 16:48:43 jonas
* CSE of constant loading in regs works properly again * CSE of constant loading in regs works properly again
+ if a constant is stored into memory using "mov const, ref" and + if a constant is stored into memory using "mov const, ref" and
there is a reg that contains this const, it is changed into there is a reg that contains this const, it is changed into

534
compiler/depend
View File

@ -1,339 +1,339 @@
pp: pp.pas \ pp: pp.pas \
globals.ppu \ globals.ppu \
compiler.ppu compiler.ppu
$(COMPILER) $(LOCALOPT) pp.pas $(COMPILER) $(LOCALOPT) pp.pas
globals.ppu: globals.pas \ globals.ppu: globals.pas \
cobjects.ppu \ cobjects.ppu \
systems.ppu systems.ppu
cobjects.ppu: cobjects.pas cobjects.ppu: cobjects.pas
systems.ppu: systems.pas systems.ppu: systems.pas
compiler.ppu: compiler.pas \ compiler.ppu: compiler.pas \
verbose.ppu \ verbose.ppu \
comphook.ppu \ comphook.ppu \
systems.ppu \ systems.ppu \
globals.ppu \ globals.ppu \
options.ppu \ options.ppu \
parser.ppu \ parser.ppu \
symtable.ppu \ symtable.ppu \
link.ppu \ link.ppu \
import.ppu import.ppu
verbose.ppu: verbose.pas \ verbose.ppu: verbose.pas \
messages.ppu \ messages.ppu \
files.ppu \ files.ppu \
comphook.ppu \ comphook.ppu \
globals.ppu globals.ppu
messages.ppu: messages.pas messages.ppu: messages.pas
files.ppu: files.pas \ files.ppu: files.pas \
cobjects.ppu \ cobjects.ppu \
globals.ppu \ globals.ppu \
ppu.ppu \ ppu.ppu \
verbose.ppu \ verbose.ppu \
systems.ppu systems.ppu
ppu.ppu: ppu.pas ppu.ppu: ppu.pas
comphook.ppu: comphook.pas comphook.ppu: comphook.pas
options.ppu: options.pas \ options.ppu: options.pas \
verbose.ppu \ verbose.ppu \
cobjects.ppu \ cobjects.ppu \
comphook.ppu \ comphook.ppu \
systems.ppu \ systems.ppu \
globals.ppu \ globals.ppu \
scanner.ppu \ scanner.ppu \
link.ppu \ link.ppu \
messages.ppu \ messages.ppu \
gendef.ppu gendef.ppu
scanner.ppu: scanner.pas \ scanner.ppu: scanner.pas \
cobjects.ppu \ cobjects.ppu \
globals.ppu \ globals.ppu \
verbose.ppu \ verbose.ppu \
comphook.ppu \ comphook.ppu \
files.ppu \ files.ppu \
systems.ppu \ systems.ppu \
symtable.ppu \ symtable.ppu \
switches.ppu switches.ppu
symtable.ppu: symtable.pas \ symtable.ppu: symtable.pas \
cobjects.ppu \ cobjects.ppu \
verbose.ppu \ verbose.ppu \
comphook.ppu \ comphook.ppu \
systems.ppu \ systems.ppu \
globals.ppu \ globals.ppu \
aasm.ppu \ aasm.ppu \
files.ppu \ files.ppu \
gendef.ppu \ gendef.ppu \
types.ppu \ types.ppu \
ppu.ppu \ ppu.ppu \
hcodegen.ppu hcodegen.ppu
aasm.ppu: aasm.pas \ aasm.ppu: aasm.pas \
cobjects.ppu \ cobjects.ppu \
files.ppu \ files.ppu \
globals.ppu \ globals.ppu \
verbose.ppu \ verbose.ppu \
systems.ppu systems.ppu
gendef.ppu: gendef.pas \ gendef.ppu: gendef.pas \
cobjects.ppu \ cobjects.ppu \
systems.ppu \ systems.ppu \
globals.ppu globals.ppu
types.ppu: types.pas \ types.ppu: types.pas \
cobjects.ppu \ cobjects.ppu \
globals.ppu \ globals.ppu \
symtable.ppu \ symtable.ppu \
verbose.ppu \ verbose.ppu \
aasm.ppu aasm.ppu
hcodegen.ppu: hcodegen.pas \ hcodegen.ppu: hcodegen.pas \
verbose.ppu \ verbose.ppu \
aasm.ppu \ aasm.ppu \
tree.ppu \ tree.ppu \
symtable.ppu \ symtable.ppu \
systems.ppu \ systems.ppu \
comphook.ppu \ comphook.ppu \
cobjects.ppu \ cobjects.ppu \
globals.ppu \ globals.ppu \
files.ppu files.ppu
tree.ppu: tree.pas \ tree.ppu: tree.pas \
cobjects.ppu \ cobjects.ppu \
globals.ppu \ globals.ppu \
symtable.ppu \ symtable.ppu \
aasm.ppu \ aasm.ppu \
types.ppu \ types.ppu \
verbose.ppu \ verbose.ppu \
files.ppu files.ppu
switches.ppu: switches.pas \ switches.ppu: switches.pas \
globals.ppu \ globals.ppu \
verbose.ppu \ verbose.ppu \
files.ppu \ files.ppu \
systems.ppu systems.ppu
link.ppu: link.pas \ link.ppu: link.pas \
cobjects.ppu \ cobjects.ppu \
files.ppu \ files.ppu \
script.ppu \ script.ppu \
globals.ppu \ globals.ppu \
systems.ppu \ systems.ppu \
verbose.ppu verbose.ppu
script.ppu: script.pas \ script.ppu: script.pas \
cobjects.ppu \ cobjects.ppu \
globals.ppu \ globals.ppu \
systems.ppu systems.ppu
parser.ppu: parser.pas \ parser.ppu: parser.pas \
cobjects.ppu \ cobjects.ppu \
comphook.ppu \ comphook.ppu \
systems.ppu \ systems.ppu \
globals.ppu \ globals.ppu \
hcodegen.ppu \ hcodegen.ppu \
verbose.ppu \ verbose.ppu \
symtable.ppu \ symtable.ppu \
files.ppu \ files.ppu \
aasm.ppu \ aasm.ppu \
assemble.ppu \ assemble.ppu \
link.ppu \ link.ppu \
script.ppu \ script.ppu \
gendef.ppu \ gendef.ppu \
scanner.ppu \ scanner.ppu \
pbase.ppu \ pbase.ppu \
pdecl.ppu \ pdecl.ppu \
psystem.ppu \ psystem.ppu \
pmodules.ppu pmodules.ppu
assemble.ppu: assemble.pas \ assemble.ppu: assemble.pas \
cobjects.ppu \ cobjects.ppu \
globals.ppu \ globals.ppu \
aasm.ppu \ aasm.ppu \
script.ppu \ script.ppu \
files.ppu \ files.ppu \
systems.ppu \ systems.ppu \
verbose.ppu verbose.ppu
pbase.ppu: pbase.pas \ pbase.ppu: pbase.pas \
cobjects.ppu \ cobjects.ppu \
globals.ppu \ globals.ppu \
symtable.ppu \ symtable.ppu \
files.ppu \ files.ppu \
scanner.ppu \ scanner.ppu \
systems.ppu \ systems.ppu \
verbose.ppu verbose.ppu
pdecl.ppu: pdecl.pas \ pdecl.ppu: pdecl.pas \
globals.ppu \ globals.ppu \
symtable.ppu \ symtable.ppu \
cobjects.ppu \ cobjects.ppu \
scanner.ppu \ scanner.ppu \
aasm.ppu \ aasm.ppu \
tree.ppu \ tree.ppu \
pass_1.ppu \ pass_1.ppu \
files.ppu \ files.ppu \
types.ppu \ types.ppu \
hcodegen.ppu \ hcodegen.ppu \
verbose.ppu \ verbose.ppu \
systems.ppu \ systems.ppu \
pbase.ppu \ pbase.ppu \
ptconst.ppu \ ptconst.ppu \
pexpr.ppu \ pexpr.ppu \
psub.ppu \ psub.ppu \
pexports.ppu pexports.ppu
pass_1.ppu: pass_1.pas \ pass_1.ppu: pass_1.pas \
tree.ppu \ tree.ppu \
cobjects.ppu \ cobjects.ppu \
verbose.ppu \ verbose.ppu \
comphook.ppu \ comphook.ppu \
systems.ppu \ systems.ppu \
globals.ppu \ globals.ppu \
aasm.ppu \ aasm.ppu \
symtable.ppu \ symtable.ppu \
types.ppu \ types.ppu \
hcodegen.ppu \ hcodegen.ppu \
files.ppu files.ppu
ptconst.ppu: ptconst.pas \ ptconst.ppu: ptconst.pas \
symtable.ppu \ symtable.ppu \
cobjects.ppu \ cobjects.ppu \
globals.ppu \ globals.ppu \
scanner.ppu \ scanner.ppu \
aasm.ppu \ aasm.ppu \
tree.ppu \ tree.ppu \
pass_1.ppu \ pass_1.ppu \
hcodegen.ppu \ hcodegen.ppu \
types.ppu \ types.ppu \
verbose.ppu \ verbose.ppu \
pbase.ppu \ pbase.ppu \
pexpr.ppu pexpr.ppu
pexpr.ppu: pexpr.pas \ pexpr.ppu: pexpr.pas \
symtable.ppu \ symtable.ppu \
tree.ppu \ tree.ppu \
cobjects.ppu \ cobjects.ppu \
globals.ppu \ globals.ppu \
scanner.ppu \ scanner.ppu \
aasm.ppu \ aasm.ppu \
pass_1.ppu \ pass_1.ppu \
systems.ppu \ systems.ppu \
hcodegen.ppu \ hcodegen.ppu \
types.ppu \ types.ppu \
verbose.ppu \ verbose.ppu \
pbase.ppu \ pbase.ppu \
pdecl.ppu pdecl.ppu
psub.ppu: psub.pas \ psub.ppu: psub.pas \
cobjects.ppu \ cobjects.ppu \
symtable.ppu \ symtable.ppu \
globals.ppu \ globals.ppu \
scanner.ppu \ scanner.ppu \
aasm.ppu \ aasm.ppu \
tree.ppu \ tree.ppu \
types.ppu \ types.ppu \
files.ppu \ files.ppu \
verbose.ppu \ verbose.ppu \
systems.ppu \ systems.ppu \
import.ppu \ import.ppu \
gendef.ppu \ gendef.ppu \
hcodegen.ppu \ hcodegen.ppu \
temp_gen.ppu \ temp_gen.ppu \
pass_1.ppu \ pass_1.ppu \
pass_2.ppu \ pass_2.ppu \
pbase.ppu \ pbase.ppu \
pdecl.ppu \ pdecl.ppu \
pexpr.ppu \ pexpr.ppu \
pstatmnt.ppu pstatmnt.ppu
import.ppu: import.pas \ import.ppu: import.pas \
cobjects.ppu \ cobjects.ppu \
systems.ppu \ systems.ppu \
verbose.ppu verbose.ppu
temp_gen.ppu: temp_gen.pas \ temp_gen.ppu: temp_gen.pas \
cobjects.ppu \ cobjects.ppu \
globals.ppu \ globals.ppu \
tree.ppu \ tree.ppu \
hcodegen.ppu \ hcodegen.ppu \
verbose.ppu \ verbose.ppu \
files.ppu \ files.ppu \
aasm.ppu aasm.ppu
pass_2.ppu: pass_2.pas \ pass_2.ppu: pass_2.pas \
tree.ppu \ tree.ppu \
cobjects.ppu \ cobjects.ppu \
verbose.ppu \ verbose.ppu \
comphook.ppu \ comphook.ppu \
systems.ppu \ systems.ppu \
globals.ppu \ globals.ppu \
files.ppu \ files.ppu \
symtable.ppu \ symtable.ppu \
types.ppu \ types.ppu \
aasm.ppu \ aasm.ppu \
scanner.ppu \ scanner.ppu \
pass_1.ppu \ pass_1.ppu \
hcodegen.ppu \ hcodegen.ppu \
temp_gen.ppu temp_gen.ppu
pstatmnt.ppu: pstatmnt.pas \ pstatmnt.ppu: pstatmnt.pas \
tree.ppu \ tree.ppu \
cobjects.ppu \ cobjects.ppu \
globals.ppu \ globals.ppu \
files.ppu \ files.ppu \
verbose.ppu \ verbose.ppu \
systems.ppu \ systems.ppu \
symtable.ppu \ symtable.ppu \
aasm.ppu \ aasm.ppu \
pass_1.ppu \ pass_1.ppu \
types.ppu \ types.ppu \
scanner.ppu \ scanner.ppu \
hcodegen.ppu \ hcodegen.ppu \
ppu.ppu \ ppu.ppu \
pbase.ppu \ pbase.ppu \
pexpr.ppu \ pexpr.ppu \
pdecl.ppu pdecl.ppu
pexports.ppu: pexports.pas \ pexports.ppu: pexports.pas \
cobjects.ppu \ cobjects.ppu \
globals.ppu \ globals.ppu \
scanner.ppu \ scanner.ppu \
symtable.ppu \ symtable.ppu \
pbase.ppu \ pbase.ppu \
verbose.ppu verbose.ppu
psystem.ppu: psystem.pas \ psystem.ppu: psystem.pas \
symtable.ppu \ symtable.ppu \
globals.ppu \ globals.ppu \
tree.ppu tree.ppu
pmodules.ppu: pmodules.pas \ pmodules.ppu: pmodules.pas \
cobjects.ppu \ cobjects.ppu \
comphook.ppu \ comphook.ppu \
systems.ppu \ systems.ppu \
globals.ppu \ globals.ppu \
symtable.ppu \ symtable.ppu \
aasm.ppu \ aasm.ppu \
files.ppu \ files.ppu \
hcodegen.ppu \ hcodegen.ppu \
verbose.ppu \ verbose.ppu \
link.ppu \ link.ppu \
assemble.ppu \ assemble.ppu \
import.ppu \ import.ppu \
gendef.ppu \ gendef.ppu \
ppu.ppu \ ppu.ppu \
scanner.ppu \ scanner.ppu \
pbase.ppu \ pbase.ppu \
psystem.ppu \ psystem.ppu \
pdecl.ppu \ pdecl.ppu \
psub.ppu \ psub.ppu \
parser.ppu parser.ppu

30
compiler/dmisc.pas
View File

@ -1,18 +1,25 @@
{ {
$Id$ $Id$
This file is part of the Free Pascal run time library. Copyright (c) 1998-2000 by Florian Klaempfl
Copyright (c) 1993,97 by the Free Pascal development team.
Dos unit for BP7 compatible RTL Dos unit for BP7 compatible RTL for Delphi
See the file COPYING.FPC, included in this distribution, This program is free software; you can redistribute it and/or modify
for details about the copyright. it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful, This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
**********************************************************************} You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
****************************************************************************
}
unit dmisc; unit dmisc;
interface interface
@ -636,7 +643,7 @@ begin
until i=0; until i=0;
{ Turbo Pascal gets rid of a \.. at the end of the path } { Turbo Pascal gets rid of a \.. at the end of the path }
{ Now remove also any reference to '\..' at end of line { Now remove also any reference to '\..' at end of line
+ of course previous dir.. } + of course previous dir.. }
i:=pos('\..',pa); i:=pos('\..',pa);
if i<>0 then if i<>0 then
@ -653,7 +660,7 @@ begin
{ Remove End . and \} { Remove End . and \}
if (length(pa)>0) and (pa[length(pa)]='.') then if (length(pa)>0) and (pa[length(pa)]='.') then
dec(byte(pa[0])); dec(byte(pa[0]));
{ if only the drive + a '\' is left then the '\' should be left to prevtn the program { if only the drive + a '\' is left then the '\' should be left to prevtn the program
accessing the current directory on the drive rather than the root!} accessing the current directory on the drive rather than the root!}
{ if the last char of path = '\' then leave it in as this is what TP does! } { if the last char of path = '\' then leave it in as this is what TP does! }
if ((length(pa)>3) and (pa[length(pa)]='\')) and (path[length(path)] <> '\') then if ((length(pa)>3) and (pa[length(pa)]='\')) and (path[length(path)] <> '\') then
@ -847,7 +854,10 @@ End;
end. end.
{ {
$Log$ $Log$
Revision 1.5 1999-07-18 10:19:50 florian Revision 1.6 2000-01-07 01:14:23 peter
* updated copyright to 2000
Revision 1.5 1999/07/18 10:19:50 florian
* made it compilable with Dlephi 4 again * made it compilable with Dlephi 4 again
+ fixed problem with large stack allocations on win32 + fixed problem with large stack allocations on win32

4
compiler/errord.msg
View File

@ -3,7 +3,7 @@
# #
# $Id$ # $Id$
# This file is part of the Free Pascal Compiler # This file is part of the Free Pascal Compiler
# Copyright (c) 1999 by the Free Pascal Development team # Copyright (c) 1998-2000 by the Free Pascal Development team
# #
# German (alternative) Language File for Free Pascal # German (alternative) Language File for Free Pascal
# #
@ -1546,7 +1546,7 @@ option_switch_bin_to_src_assembler=N_Schalte Assembler auf den Standard Assemble
# Logo (option -l) # Logo (option -l)
# #
option_logo_start=Free Pascal Compiler Version $FPCVER [$FPCDATE] f<>r $FPCTARGET option_logo_start=Free Pascal Compiler Version $FPCVER [$FPCDATE] f<>r $FPCTARGET
option_logo_end=Copyright (c) 1993-99 by Florian Klaempfl option_logo_end=Copyright (c) 1998-2000 by Florian Klaempfl
# #
# Info (option -i) # Info (option -i)
# #

4
compiler/errores.msg
View File

@ -1,7 +1,7 @@
# #
# $Id$ # $Id$
# This file is part of the Free Pascal Compiler # This file is part of the Free Pascal Compiler
# Copyright (c) 1998 by the Free Pascal Development team # Copyright (c) 1998-2000 by the Free Pascal Development team
# #
# English (default) Language File for Free Pascal # English (default) Language File for Free Pascal
# #
@ -1407,7 +1407,7 @@ option_switch_bin_to_src_assembler=N_Cambi
# Logo (option -l) # Logo (option -l)
# #
option_logo_start=Free Pascal Compiler versi¢n $FPCVER [$FPCDATE] para $FPCTARGET option_logo_start=Free Pascal Compiler versi¢n $FPCVER [$FPCDATE] para $FPCTARGET
option_logo_end=Copyright (c) 1993-99 por Florian Klaempfl option_logo_end=Copyright (c) 1998-2000 por Florian Klaempfl
# #
# Info (option -i) # Info (option -i)

4
compiler/errorf.msg
View File

@ -1,7 +1,7 @@
# #
# $Id$ # $Id$
# This file is part of the Free Pascal Compiler # This file is part of the Free Pascal Compiler
# Copyright (c) 1998 by the Free Pascal Development team # Copyright (c) 1998-2000 by the Free Pascal Development team
# #
# French (cp850) Language File for Free Pascal # French (cp850) Language File for Free Pascal
# #
@ -1408,7 +1408,7 @@ option_switch_bin_to_src_assembler=N_Switching assembler to default source writi
# Logo (option -l) # Logo (option -l)
# #
option_logo_start=Compilatuer Free Pascal version $FPCVER [$FPCDATE] pour $FPCTARGET option_logo_start=Compilatuer Free Pascal version $FPCVER [$FPCDATE] pour $FPCTARGET
option_logo_end=Copyright (c) 1993-99 by Florian Klaempfl option_logo_end=Copyright (c) 1998-2000 by Florian Klaempfl
# #
# Info (option -i) # Info (option -i)
# #

6
compiler/errorn.msg
View File

@ -1,7 +1,7 @@
# #
# $Id$ # $Id$
# This file is part of the Free Pascal Compiler # This file is part of the Free Pascal Compiler
# Copyright (c) 1998 by the Free Pascal Development team # Copyright (c) 1998-2000 by the Free Pascal Development team
# #
# Dutch Language File for Free Pascal # Dutch Language File for Free Pascal
# #
@ -53,7 +53,7 @@
# Illegaal betekent onwettig in het Nederlands. # Illegaal betekent onwettig in het Nederlands.
# - Zo wordt "execute" niet met "executeren" vertaalt maar met "uitvoeren". # - Zo wordt "execute" niet met "executeren" vertaalt maar met "uitvoeren".
# Programma, hebt u nog een laatste wens voordat de trekker wordt # Programma, hebt u nog een laatste wens voordat de trekker wordt
# overgehaald? # overgehaald?
# - In het Nederlands schrijft men woorden vaker aan elkaar dan in het # - In het Nederlands schrijft men woorden vaker aan elkaar dan in het
# Engels: "compiler switch" (2 woorden ) wordt "compileroptie" (1 woord). # Engels: "compiler switch" (2 woorden ) wordt "compileroptie" (1 woord).
# Let ook op voorvoegingen: "Interface and implementation names" wordt: # Let ook op voorvoegingen: "Interface and implementation names" wordt:
@ -1431,7 +1431,7 @@ option_switch_bin_to_src_assembler=N_Switching assembler to default source writi
# Logo (option -l) # Logo (option -l)
# #
option_logo_start=Free Pascal Compiler versie $FPCVER [$FPCDATE] voor $FPCTARGET option_logo_start=Free Pascal Compiler versie $FPCVER [$FPCDATE] voor $FPCTARGET
option_logo_end=Copyright (c) 1993-99 door Florian Klaempfl en anderen option_logo_end=Copyright (c) 1998-2000 door Florian Klaempfl en anderen
# #
# Info (option -i) # Info (option -i)
# #

9
compiler/errorr.msg
View File

@ -1,7 +1,7 @@
# #
# $Id: errorr.msg, v1.9 1999/10/29 00:33:16 michail A.baikov # $Id: errorr.msg, v1.9 1999/10/29 00:33:16 michail A.baikov
# <20>â®â ä ©« - ç áâì Free Pascal Compilator # <20>â®â ä ©« - ç áâì Free Pascal Compilator
# €¢â®à᪮¥ ¯à ¢® (c) 1998,1999 by Free Pascal Development Team (Russian) # €¢â®à᪮¥ ¯à ¢® (c) 1998,1998-2000 by Free Pascal Development Team (Russian)
# #
# <20>yá᪨© ä ©« ï§ëª  ¤«ï Free Pascal (¯®áâ ¢«ï¥âáï á v.0.99.12) # <20>yá᪨© ä ©« ï§ëª  ¤«ï Free Pascal (¯®áâ ¢«ï¥âáï á v.0.99.12)
# #
@ -828,7 +828,7 @@ option_switch_bin_to_src_assembler=N_
# ‹®£® (®¯æ¨ï -l) # ‹®£® (®¯æ¨ï -l)
# #
option_logo_start=Free Pascal Compiler version $FPCVER [$FPCDATE] for $FPCTARGET [Russian] option_logo_start=Free Pascal Compiler version $FPCVER [$FPCDATE] for $FPCTARGET [Russian]
option_logo_end=Copyright (c) 1993-99 by Florian Klaempfl option_logo_end=Copyright (c) 1998-2000 by Florian Klaempfl
# #
# ˆ­ä®p¬ æ¨ï (®¯æ¨ï -i) # ˆ­ä®p¬ æ¨ï (®¯æ¨ï -i)
@ -995,7 +995,10 @@ ol_end=**1h_
# #
# $Log$ # $Log$
# Revision 1.9 1999-11-12 22:52:13 michael # Revision 1.10 2000-01-07 01:14:26 peter
# * updated copyright to 2000
#
# Revision 1.9 1999/11/12 22:52:13 michael
# New error message file from Michael Baikov # New error message file from Michael Baikov
# #
# Revision 1.9 1999/10/29 00:33:16 michail a.baikov # Revision 1.9 1999/10/29 00:33:16 michail a.baikov

10
compiler/export.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1998 by Florian Klaempfl Copyright (c) 1998-2000 by Florian Klaempfl
This unit implements an uniform export object This unit implements an uniform export object
@ -18,7 +18,8 @@
along with this program; if not, write to the Free Software along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
****************************************************************************} ****************************************************************************
}
unit export; unit export;
interface interface
@ -193,7 +194,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.8 1999-11-06 14:34:20 peter Revision 1.9 2000-01-07 01:14:27 peter
* updated copyright to 2000
Revision 1.8 1999/11/06 14:34:20 peter
* truncated log to 20 revs * truncated log to 20 revs
Revision 1.7 1999/10/21 14:29:34 peter Revision 1.7 1999/10/21 14:29:34 peter

7
compiler/files.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1996-98 by Florian Klaempfl Copyright (c) 1998-2000 by Florian Klaempfl
This unit implements an extended file management and the first loading This unit implements an extended file management and the first loading
and searching of the modules (ppufiles) and searching of the modules (ppufiles)
@ -1348,7 +1348,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.111 1999-12-08 01:01:11 peter Revision 1.112 2000-01-07 01:14:27 peter
* updated copyright to 2000
Revision 1.111 1999/12/08 01:01:11 peter
* fixed circular unit reference checking. loaded_from was reset after * fixed circular unit reference checking. loaded_from was reset after
reseting a unit, so no loaded_from info was available anymore. reseting a unit, so no loaded_from info was available anymore.

7
compiler/gdb.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1996-98 by Florian Klaempfl Copyright (c) 1998-2000 by Florian Klaempfl
This units contains special support for the GDB This units contains special support for the GDB
@ -249,7 +249,10 @@ end.
{ {
$Log$ $Log$
Revision 1.13 1999-11-09 23:51:25 pierre Revision 1.14 2000-01-07 01:14:27 peter
* updated copyright to 2000
Revision 1.13 1999/11/09 23:51:25 pierre
* some DBX work * some DBX work
Revision 1.12 1999/08/04 00:23:01 florian Revision 1.12 1999/08/04 00:23:01 florian

7
compiler/gendef.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1996-98 by Florian Klaempfl Copyright (c) 1998-2000 by Florian Klaempfl
Generation of a .def file for needed for Os2/Win32 Generation of a .def file for needed for Os2/Win32
@ -165,7 +165,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.4 1999-12-20 23:23:28 pierre Revision 1.5 2000-01-07 01:14:27 peter
* updated copyright to 2000
Revision 1.4 1999/12/20 23:23:28 pierre
+ $description $version + $description $version
Revision 1.3 1999/03/26 00:05:29 peter Revision 1.3 1999/03/26 00:05:29 peter

7
compiler/globals.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (C) 1993-98 by Florian Klaempfl Copyright (C) 1998-2000 by Florian Klaempfl
This unit implements some support functions and global variables This unit implements some support functions and global variables
@ -1472,7 +1472,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.45 2000-01-07 00:08:09 peter Revision 1.46 2000-01-07 01:14:27 peter
* updated copyright to 2000
Revision 1.45 2000/01/07 00:08:09 peter
* tp7 fix * tp7 fix
Revision 1.44 2000/01/06 15:48:59 peter Revision 1.44 2000/01/06 15:48:59 peter

7
compiler/globtype.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1993-98 by Florian Klaempfl, Pierre Muller Copyright (c) 1998-2000 by Florian Klaempfl, Pierre Muller
Global types Global types
@ -180,7 +180,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.24 1999-11-12 11:03:50 peter Revision 1.25 2000-01-07 01:14:27 peter
* updated copyright to 2000
Revision 1.24 1999/11/12 11:03:50 peter
* searchpaths changed to stringqueue object * searchpaths changed to stringqueue object
Revision 1.23 1999/11/09 13:00:38 peter Revision 1.23 1999/11/09 13:00:38 peter

7
compiler/hcgdata.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1996-98 by Florian Klaempfl Copyright (c) 1998-2000 by Florian Klaempfl
Routines for the code generation of data structures Routines for the code generation of data structures
like VMT,Messages like VMT,Messages
@ -616,7 +616,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.22 1999-12-02 19:22:16 peter Revision 1.23 2000-01-07 01:14:27 peter
* updated copyright to 2000
Revision 1.22 1999/12/02 19:22:16 peter
* write also parameters for override info * write also parameters for override info
Revision 1.21 1999/12/01 12:42:32 peter Revision 1.21 1999/12/01 12:42:32 peter

7
compiler/hcodegen.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1996-98 by Florian Klaempfl Copyright (c) 1998-2000 by Florian Klaempfl
This unit exports some help routines for the code generation This unit exports some help routines for the code generation
@ -405,7 +405,10 @@ end.
{ {
$Log$ $Log$
Revision 1.52 1999-12-09 23:18:04 pierre Revision 1.53 2000-01-07 01:14:27 peter
* updated copyright to 2000
Revision 1.52 1999/12/09 23:18:04 pierre
* no_fast_exit if procedure contains implicit termination code * no_fast_exit if procedure contains implicit termination code
Revision 1.51 1999/12/01 12:42:32 peter Revision 1.51 1999/12/01 12:42:32 peter

7
compiler/htypechk.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1996-98 by Florian Klaempfl Copyright (c) 1998-2000 by Florian Klaempfl
This unit exports some help routines for the type checking This unit exports some help routines for the type checking
@ -848,7 +848,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.54 1999-12-31 14:26:27 peter Revision 1.55 2000-01-07 01:14:27 peter
* updated copyright to 2000
Revision 1.54 1999/12/31 14:26:27 peter
* fixed crash with empty array constructors * fixed crash with empty array constructors
Revision 1.53 1999/12/18 14:55:21 florian Revision 1.53 1999/12/18 14:55:21 florian

7
compiler/import.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1998 by Peter Vreman Copyright (c) 1998-2000 by Peter Vreman
This unit implements an uniform import object This unit implements an uniform import object
@ -234,7 +234,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.15 1999-11-06 14:34:21 peter Revision 1.16 2000-01-07 01:14:27 peter
* updated copyright to 2000
Revision 1.15 1999/11/06 14:34:21 peter
* truncated log to 20 revs * truncated log to 20 revs
Revision 1.14 1999/11/02 15:06:57 peter Revision 1.14 1999/11/02 15:06:57 peter

9
compiler/innr.inc
View File

@ -1,7 +1,7 @@
{ {
$Id$ $Id$
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) 1993,98 by the Free Pascal development team Copyright (c) 1998-2000 by the Free Pascal development team
Internal Function/Constant Evaluator numbers Internal Function/Constant Evaluator numbers
@ -77,7 +77,7 @@ const
in_pi = 121; in_pi = 121;
in_abs_extended = 122; in_abs_extended = 122;
in_sqr_extended = 123; in_sqr_extended = 123;
in_sqrt_extended = 124; in_sqrt_extended = 124;
in_arctan_extended = 125; in_arctan_extended = 125;
in_ln_extended = 126; in_ln_extended = 126;
in_sin_extended = 127; in_sin_extended = 127;
@ -99,7 +99,10 @@ const
{ {
$Log$ $Log$
Revision 1.14 1999-09-15 20:35:40 florian Revision 1.15 2000-01-07 01:14:27 peter
* updated copyright to 2000
Revision 1.14 1999/09/15 20:35:40 florian
* small fix to operator overloading when in MMX mode * small fix to operator overloading when in MMX mode
+ the compiler uses now fldz and fld1 if possible + the compiler uses now fldz and fld1 if possible
+ some fixes to floating point registers + some fixes to floating point registers

7
compiler/link.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1998,99 by the FPC development team Copyright (c) 1998-2000 by Peter Vreman
This unit handles the linker and binder calls for programs and This unit handles the linker and binder calls for programs and
libraries libraries
@ -530,7 +530,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.78 1999-11-22 22:22:30 pierre Revision 1.79 2000-01-07 01:14:27 peter
* updated copyright to 2000
Revision 1.78 1999/11/22 22:22:30 pierre
* Give better info in script * Give better info in script
Revision 1.77 1999/11/12 11:03:50 peter Revision 1.77 1999/11/12 11:03:50 peter

7
compiler/m68k/cpuasm.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1999 by Florian Klaempfl Copyright (c) 1998-2000 by Florian Klaempfl
This program is free software; you can redistribute it and/or modify This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by it under the terms of the GNU General Public License as published by
@ -27,7 +27,10 @@ unit cpuasm;
end. end.
{ {
$Log$ $Log$
Revision 1.1 1999-09-16 23:05:57 florian Revision 1.2 2000-01-07 01:14:50 peter
* updated copyright to 2000
Revision 1.1 1999/09/16 23:05:57 florian
* m68k compiler is again compilable (only gas writer, no assembler reader) * m68k compiler is again compilable (only gas writer, no assembler reader)
} }

7
compiler/m68k/cpubase.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1995-98 by Florian Klaempfl, Carl Eric Codere Copyright (c) 1998-2000 by Florian Klaempfl, Carl Eric Codere
This unit implements an types and classes specific for the This unit implements an types and classes specific for the
MC68000/MC68020 MC68000/MC68020
@ -1576,7 +1576,10 @@ unit cpubase;
end. end.
{ {
$Log$ $Log$
Revision 1.1 1999-09-16 23:05:57 florian Revision 1.2 2000-01-07 01:14:50 peter
* updated copyright to 2000
Revision 1.1 1999/09/16 23:05:57 florian
* m68k compiler is again compilable (only gas writer, no assembler reader) * m68k compiler is again compilable (only gas writer, no assembler reader)
Revision 1.12 1999/08/19 13:02:08 pierre Revision 1.12 1999/08/19 13:02:08 pierre

130
compiler/make.cmd
View File

@ -1,66 +1,66 @@
@echo off @echo off
rem $id: make.cmd,v $ rem $id: make.cmd,v $
rem rem
rem ************************Make batchfile for OS/2**************************** rem ************************Make batchfile for OS/2****************************
rem * Purpose: The makefile contains a lot of Unix commands. While it is * rem * Purpose: The makefile contains a lot of Unix commands. While it is *
rem * possible to install for example a bash shell under OS/2 * rem * possible to install for example a bash shell under OS/2 *
rem * a batch file is much easier. * rem * a batch file is much easier. *
rem * * rem * *
rem * Copyright (c) 1998 by Daniel Mantione, developer of Free Pascal * rem * Copyright (c) 1998-2000 by Daniel Mantione, developer of Free Pascal *
rem *************************************************************************** rem ***************************************************************************
goto %1 goto %1
:clean :clean
pushd pushd
\pp\rtl\ \pp\rtl\
del /s *.ppo *.so2 *.oo2 *.ppu *.s *.o *.pp1 *.s1 *.o1>&dev\nul del /s *.ppo *.so2 *.oo2 *.ppu *.s *.o *.pp1 *.s1 *.o1>&dev\nul
popd popd
del *.ppo *.so2 *.oo2 *.ppu *.s *.o *.pp1 *.s1 *.o1>&dev\nul del *.ppo *.so2 *.oo2 *.ppu *.s *.o *.pp1 *.s1 *.o1>&dev\nul
goto eind goto eind
:prtx :prtx
pushd pushd
\pp\rtl\os2\ \pp\rtl\os2\
iff not exist prt0.oo2 then iff not exist prt0.oo2 then
as -o prt0.oo2 prt0.as as -o prt0.oo2 prt0.as
endiff endiff
iff not exist prt1.oo2 then iff not exist prt1.oo2 then
as -o prt1.oo2 prt1.as as -o prt1.oo2 prt1.as
endiff endiff
iff not exist code2.oo2 then iff not exist code2.oo2 then
as -o code2.oo2 code2.as as -o code2.oo2 code2.as
endiff endiff
iff not exist code3.oo2 then iff not exist code3.oo2 then
as -o code3.oo2 code3.as as -o code3.oo2 code3.as
endiff endiff
popd popd
goto eind goto eind
:compiler :compiler
call make prtx call make prtx
iff "%2"=="" then iff "%2"=="" then
ppos2 pp.pas ppos2 pp.pas
else else
%2 pp.pas %2 pp.pas
endiff endiff
goto eind goto eind
:remake :remake
call make clean call make clean
call make compiler %2 call make compiler %2
goto eind goto eind
:cycle :cycle
call make remake %2 call make remake %2
move pp.exe pp1.exe move pp.exe pp1.exe
call make remake pp1.exe call make remake pp1.exe
move pp.exe pp2.exe move pp.exe pp2.exe
call make remake pp2.exe call make remake pp2.exe
move pp.exe pp3.exe move pp.exe pp3.exe
goto eind goto eind
$log: make.cmd,v$ $log: make.cmd,v$
:eind :eind
 

7
compiler/messages.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1998 by Peter Vreman Copyright (c) 1998-2000 by Peter Vreman
This unit implements the message object This unit implements the message object
@ -264,7 +264,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.8 1999-07-18 10:19:55 florian Revision 1.9 2000-01-07 01:14:27 peter
* updated copyright to 2000
Revision 1.8 1999/07/18 10:19:55 florian
* made it compilable with Dlephi 4 again * made it compilable with Dlephi 4 again
+ fixed problem with large stack allocations on win32 + fixed problem with large stack allocations on win32

7
compiler/new/agatt.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1997 by Florian Klaempfl Copyright (c) 1998-2000 by Florian Klaempfl
This unit implements an abstract assembler write for GNU AT&T This unit implements an abstract assembler write for GNU AT&T
assebler syntax assebler syntax
@ -606,7 +606,10 @@ unit agatt;
end. end.
{ {
$Log$ $Log$
Revision 1.2 1999-09-03 13:08:36 jonas Revision 1.3 2000-01-07 01:14:50 peter
* updated copyright to 2000
Revision 1.2 1999/09/03 13:08:36 jonas
* defined some necessary virtual helper methods * defined some necessary virtual helper methods
Revision 1.1 1999/08/03 13:48:50 michael Revision 1.1 1999/08/03 13:48:50 michael

7
compiler/new/alpha/agas.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1997 by Florian Klaempfl Copyright (c) 1998-2000 by Florian Klaempfl
This unit implements an asm for the DEC Alpha This unit implements an asm for the DEC Alpha
@ -113,7 +113,10 @@ end.
{ {
$Log$ $Log$
Revision 1.4 1999-08-25 12:00:16 jonas Revision 1.5 2000-01-07 01:14:55 peter
* updated copyright to 2000
Revision 1.4 1999/08/25 12:00:16 jonas
* changed pai386, paippc and paiapha (same for tai*) to paicpu (taicpu) * changed pai386, paippc and paiapha (same for tai*) to paicpu (taicpu)
Revision 1.3 1999/08/05 15:50:31 michael Revision 1.3 1999/08/05 15:50:31 michael

7
compiler/new/alpha/aoptcpu.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1999 by Jonas Maebe, member of the Free Pascal Copyright (c) 1998-2000 by Jonas Maebe, member of the Free Pascal
Development Team Development Team
This unit implements the Alpha optimizer object This unit implements the Alpha optimizer object
@ -39,7 +39,10 @@ Implementation
End. End.
{ {
$Log$ $Log$
Revision 1.1 1999-12-24 22:49:23 jonas Revision 1.2 2000-01-07 01:14:55 peter
* updated copyright to 2000
Revision 1.1 1999/12/24 22:49:23 jonas
+ dummy to allow compiling + dummy to allow compiling
} }

7
compiler/new/alpha/aoptcpub.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1999 by Jonas Maebe, member of the Free Pascal Copyright (c) 1998-2000 by Jonas Maebe, member of the Free Pascal
Development Team Development Team
This unit contains several types and constants necessary for the This unit contains several types and constants necessary for the
@ -117,7 +117,10 @@ End.
{ {
$Log$ $Log$
Revision 1.1 1999-11-09 22:57:09 peter Revision 1.2 2000-01-07 01:14:55 peter
* updated copyright to 2000
Revision 1.1 1999/11/09 22:57:09 peter
* compiles again both i386,alpha both with optimizer * compiles again both i386,alpha both with optimizer
} }

7
compiler/new/alpha/aoptcpuc.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1999 by Jonas Maebe, member of the Free Pascal Copyright (c) 1998-2000 by Jonas Maebe, member of the Free Pascal
Development Team Development Team
This unit contains the processor specific implementation of the This unit contains the processor specific implementation of the
@ -39,7 +39,10 @@ Implementation
End. End.
{ {
$Log$ $Log$
Revision 1.1 1999-11-09 22:57:09 peter Revision 1.2 2000-01-07 01:14:55 peter
* updated copyright to 2000
Revision 1.1 1999/11/09 22:57:09 peter
* compiles again both i386,alpha both with optimizer * compiles again both i386,alpha both with optimizer
} }

7
compiler/new/alpha/aoptcpud.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1999 by Jonas Maebe, member of the Free Pascal Copyright (c) 1998-2000 by Jonas Maebe, member of the Free Pascal
Development Team Development Team
This unit contains the processor specific implementation of the This unit contains the processor specific implementation of the
@ -41,7 +41,10 @@ End.
{ {
$Log$ $Log$
Revision 1.1 1999-11-09 22:57:09 peter Revision 1.2 2000-01-07 01:14:56 peter
* updated copyright to 2000
Revision 1.1 1999/11/09 22:57:09 peter
* compiles again both i386,alpha both with optimizer * compiles again both i386,alpha both with optimizer
} }

7
compiler/new/alpha/cgcpu.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1993-98 by Florian Klaempfl Copyright (c) 1998-2000 by Florian Klaempfl
This unit implements the code generator for the DEC Alpha This unit implements the code generator for the DEC Alpha
@ -200,7 +200,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.8 1999-09-15 20:35:47 florian Revision 1.9 2000-01-07 01:14:56 peter
* updated copyright to 2000
Revision 1.8 1999/09/15 20:35:47 florian
* small fix to operator overloading when in MMX mode * small fix to operator overloading when in MMX mode
+ the compiler uses now fldz and fld1 if possible + the compiler uses now fldz and fld1 if possible
+ some fixes to floating point registers + some fixes to floating point registers

7
compiler/new/alpha/cpuasm.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1999 by Florian Klaempfl Copyright (c) 1998-2000 by Florian Klaempfl
Contains the assembler object for the Alpha Contains the assembler object for the Alpha
@ -285,7 +285,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.5 1999-08-25 12:00:18 jonas Revision 1.6 2000-01-07 01:14:56 peter
* updated copyright to 2000
Revision 1.5 1999/08/25 12:00:18 jonas
* changed pai386, paippc and paiapha (same for tai*) to paicpu (taicpu) * changed pai386, paippc and paiapha (same for tai*) to paicpu (taicpu)
Revision 1.4 1999/08/06 16:04:07 michael Revision 1.4 1999/08/06 16:04:07 michael

7
compiler/new/alpha/cpubase.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (C) 1997 by Florian Klaempfl Copyright (C) 1998-2000 by Florian Klaempfl
this unit implements an asmlistitem class for the DEC Alpha this unit implements an asmlistitem class for the DEC Alpha
@ -299,7 +299,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.15 1999-11-09 22:57:09 peter Revision 1.16 2000-01-07 01:14:56 peter
* updated copyright to 2000
Revision 1.15 1999/11/09 22:57:09 peter
* compiles again both i386,alpha both with optimizer * compiles again both i386,alpha both with optimizer
Revision 1.14 1999/08/23 23:27:55 pierre Revision 1.14 1999/08/23 23:27:55 pierre

2
compiler/new/alpha/cpuinfo.pas
View File

@ -1,7 +1,7 @@
{ {
$Id$ $Id$
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 by the Free Pascal development team Copyright (c) 1998-2000 by the Free Pascal development team
Basic Processor information Basic Processor information

7
compiler/new/alpha/tgcpu.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (C) 1993-99 by Florian Klaempfl Copyright (C) 1998-2000 by Florian Klaempfl
This unit handles the temporary variables stuff for Alpha This unit handles the temporary variables stuff for Alpha
@ -42,7 +42,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.3 1999-08-03 00:28:24 florian Revision 1.4 2000-01-07 01:14:56 peter
* updated copyright to 2000
Revision 1.3 1999/08/03 00:28:24 florian
- removed the stuff of the last commit :) - removed the stuff of the last commit :)
Revision 1.2 1999/08/03 00:25:28 florian Revision 1.2 1999/08/03 00:25:28 florian

7
compiler/new/aopt.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1999 by Jonas Maebe, member of the Free Pascal Copyright (c) 1998-2000 by Jonas Maebe, member of the Free Pascal
Development Team Development Team
This unit contains the interface routines between the code generator This unit contains the interface routines between the code generator
@ -241,7 +241,10 @@ End.
{ {
$Log$ $Log$
Revision 1.4 1999-11-09 22:57:08 peter Revision 1.5 2000-01-07 01:14:51 peter
* updated copyright to 2000
Revision 1.4 1999/11/09 22:57:08 peter
* compiles again both i386,alpha both with optimizer * compiles again both i386,alpha both with optimizer
Revision 1.3 1999/08/18 14:32:20 jonas Revision 1.3 1999/08/18 14:32:20 jonas

7
compiler/new/aoptbase.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1999 by Jonas Maebe, member of the Free Pascal Copyright (c) 1998-2000 by Jonas Maebe, member of the Free Pascal
Development Team Development Team
This unit contains the base of all optimizer related objects This unit contains the base of all optimizer related objects
@ -263,7 +263,10 @@ End.
{ {
$Log$ $Log$
Revision 1.4 1999-11-09 22:57:08 peter Revision 1.5 2000-01-07 01:14:51 peter
* updated copyright to 2000
Revision 1.4 1999/11/09 22:57:08 peter
* compiles again both i386,alpha both with optimizer * compiles again both i386,alpha both with optimizer
Revision 1.3 1999/09/08 15:01:31 jonas Revision 1.3 1999/09/08 15:01:31 jonas

7
compiler/new/aoptcs.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1999 by Jonas Maebe, member of the Free Pascal Copyright (c) 1998-2000 by Jonas Maebe, member of the Free Pascal
Development Team Development Team
This unit contains the common subexpression elimination object of the This unit contains the common subexpression elimination object of the
@ -850,7 +850,10 @@ End.
{ {
$Log$ $Log$
Revision 1.3 1999-08-25 12:00:10 jonas Revision 1.4 2000-01-07 01:14:51 peter
* updated copyright to 2000
Revision 1.3 1999/08/25 12:00:10 jonas
* changed pai386, paippc and paiapha (same for tai*) to paicpu (taicpu) * changed pai386, paippc and paiapha (same for tai*) to paicpu (taicpu)
Revision 1.2 1999/08/23 14:41:13 jonas Revision 1.2 1999/08/23 14:41:13 jonas

7
compiler/new/aoptda.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1999 by Jonas Maebe, member of the Free Pascal Copyright (c) 1998-2000 by Jonas Maebe, member of the Free Pascal
Development Team Development Team
This unit contains the data flow analyzer object of the assembler This unit contains the data flow analyzer object of the assembler
@ -177,7 +177,10 @@ End.
{ {
$Log$ $Log$
Revision 1.5 1999-11-09 22:57:08 peter Revision 1.6 2000-01-07 01:14:52 peter
* updated copyright to 2000
Revision 1.5 1999/11/09 22:57:08 peter
* compiles again both i386,alpha both with optimizer * compiles again both i386,alpha both with optimizer
Revision 1.4 1999/08/18 14:32:21 jonas Revision 1.4 1999/08/18 14:32:21 jonas

7
compiler/new/aoptobj.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1999 by Jonas Maebe, member of the Free Pascal Copyright (c) 1998-2000 by Jonas Maebe, member of the Free Pascal
Development Team Development Team
This unit contains the processor independent assembler optimizer This unit contains the processor independent assembler optimizer
@ -791,7 +791,10 @@ End.
{ {
$Log$ $Log$
Revision 1.7 1999-11-09 22:57:08 peter Revision 1.8 2000-01-07 01:14:52 peter
* updated copyright to 2000
Revision 1.7 1999/11/09 22:57:08 peter
* compiles again both i386,alpha both with optimizer * compiles again both i386,alpha both with optimizer
Revision 1.6 1999/09/29 13:50:34 jonas Revision 1.6 1999/09/29 13:50:34 jonas

7
compiler/new/cgbase.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1993-98 by Florian Klaempfl Copyright (c) 1998-2000 by Florian Klaempfl
This units implements some code generator helper routines This units implements some code generator helper routines
@ -512,7 +512,10 @@ unit cgbase;
end. end.
{ {
$Log$ $Log$
Revision 1.14 1999-12-24 22:47:42 jonas Revision 1.15 2000-01-07 01:14:52 peter
* updated copyright to 2000
Revision 1.14 1999/12/24 22:47:42 jonas
* added OC_NONE to the compare forms (to allow unconditional jumps) * added OC_NONE to the compare forms (to allow unconditional jumps)
Revision 1.13 1999/12/01 12:42:33 peter Revision 1.13 1999/12/01 12:42:33 peter

7
compiler/new/cgflw.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1993-98 by Florian Klaempfl Copyright (c) 1998-2000 by Florian Klaempfl
Generate assembler for nodes that influence the flow Generate assembler for nodes that influence the flow
@ -781,7 +781,10 @@ do_jmp:
end. end.
{ {
$Log$ $Log$
Revision 1.1 1999-11-03 14:13:59 jonas Revision 1.2 2000-01-07 01:14:52 peter
* updated copyright to 2000
Revision 1.1 1999/11/03 14:13:59 jonas
+ initial implementation + initial implementation

7
compiler/new/cgobj.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1993-99 by Florian Klaempfl Copyright (c) 1998-2000 by Florian Klaempfl
Member of the Free Pascal development team Member of the Free Pascal development team
This unit implements the basic code generator object This unit implements the basic code generator object
@ -1116,7 +1116,10 @@ unit cgobj;
end. end.
{ {
$Log$ $Log$
Revision 1.32 1999-12-01 12:42:33 peter Revision 1.33 2000-01-07 01:14:53 peter
* updated copyright to 2000
Revision 1.32 1999/12/01 12:42:33 peter
* fixed bug 698 * fixed bug 698
* removed some notes about unused vars * removed some notes about unused vars

7
compiler/new/convtree.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1999 by Florian Klaempfl Copyright (c) 1998-2000 by Florian Klaempfl
Converts the old tree nodes into the new OOP nodest Converts the old tree nodes into the new OOP nodest
This unit is necessary to interface the new code generator This unit is necessary to interface the new code generator
@ -73,7 +73,10 @@ unit convtree;
end. end.
{ {
$Log$ $Log$
Revision 1.5 1999-09-14 11:16:09 florian Revision 1.6 2000-01-07 01:14:53 peter
* updated copyright to 2000
Revision 1.5 1999/09/14 11:16:09 florian
* only small updates to work with the current compiler * only small updates to work with the current compiler
Revision 1.4 1999/01/24 22:32:35 florian Revision 1.4 1999/01/24 22:32:35 florian

7
compiler/new/i386/aoptcpu.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1999 by Jonas Maebe, member of the Free Pascal Copyright (c) 1998-2000 by Jonas Maebe, member of the Free Pascal
Development Team Development Team
This unit implements the i386 optimizer object This unit implements the i386 optimizer object
@ -39,7 +39,10 @@ Implementation
End. End.
{ {
$Log$ $Log$
Revision 1.5 1999-08-18 14:32:24 jonas Revision 1.6 2000-01-07 01:14:56 peter
* updated copyright to 2000
Revision 1.5 1999/08/18 14:32:24 jonas
+ compilable! + compilable!
+ dataflow analyzer finished + dataflow analyzer finished
+ start of CSE units + start of CSE units

7
compiler/new/i386/aoptcpub.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1999 by Jonas Maebe, member of the Free Pascal Copyright (c) 1998-2000 by Jonas Maebe, member of the Free Pascal
Development Team Development Team
This unit contains several types and constants necessary for the This unit contains several types and constants necessary for the
@ -214,7 +214,10 @@ End.
{ {
$Log$ $Log$
Revision 1.7 1999-11-09 22:57:09 peter Revision 1.8 2000-01-07 01:14:56 peter
* updated copyright to 2000
Revision 1.7 1999/11/09 22:57:09 peter
* compiles again both i386,alpha both with optimizer * compiles again both i386,alpha both with optimizer
Revision 1.6 1999/09/08 15:05:43 jonas Revision 1.6 1999/09/08 15:05:43 jonas

7
compiler/new/i386/aoptcpuc.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1999 by Jonas Maebe, member of the Free Pascal Copyright (c) 1998-2000 by Jonas Maebe, member of the Free Pascal
Development Team Development Team
This unit contains the processor specific implementation of the This unit contains the processor specific implementation of the
@ -85,7 +85,10 @@ End;
End. End.
{ {
$Log$ $Log$
Revision 1.2 1999-11-09 22:57:09 peter Revision 1.3 2000-01-07 01:14:57 peter
* updated copyright to 2000
Revision 1.2 1999/11/09 22:57:09 peter
* compiles again both i386,alpha both with optimizer * compiles again both i386,alpha both with optimizer
Revision 1.1 1999/08/18 14:32:26 jonas Revision 1.1 1999/08/18 14:32:26 jonas

7
compiler/new/i386/aoptcpud.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1999 by Jonas Maebe, member of the Free Pascal Copyright (c) 1998-2000 by Jonas Maebe, member of the Free Pascal
Development Team Development Team
This unit contains the processor specific implementation of the This unit contains the processor specific implementation of the
@ -257,7 +257,10 @@ End.
{ {
$Log$ $Log$
Revision 1.4 1999-11-09 22:57:09 peter Revision 1.5 2000-01-07 01:14:57 peter
* updated copyright to 2000
Revision 1.4 1999/11/09 22:57:09 peter
* compiles again both i386,alpha both with optimizer * compiles again both i386,alpha both with optimizer
Revision 1.3 1999/09/08 15:01:31 jonas Revision 1.3 1999/09/08 15:01:31 jonas

7
compiler/new/i386/cgcpu.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1993-98 by Florian Klaempfl Copyright (c) 1998-2000 by Florian Klaempfl
This unit implements the code generator for the i386 This unit implements the code generator for the i386
@ -140,7 +140,10 @@ unit cgcpu;
end. end.
{ {
$Log$ $Log$
Revision 1.8 1999-11-09 22:57:09 peter Revision 1.9 2000-01-07 01:14:57 peter
* updated copyright to 2000
Revision 1.8 1999/11/09 22:57:09 peter
* compiles again both i386,alpha both with optimizer * compiles again both i386,alpha both with optimizer
Revision 1.7 1999/09/15 20:35:47 florian Revision 1.7 1999/09/15 20:35:47 florian

2
compiler/new/i386/cpuinfo.pas
View File

@ -1,7 +1,7 @@
{ {
$Id$ $Id$
This file is part of the Free Pascal compiler This file is part of the Free Pascal compiler
Copyright (c) 1999 by Florian Klaempfl Copyright (c) 1998-2000 by Florian Klaempfl
Basic Processor information for i386 Basic Processor information for i386

7
compiler/new/i386/tgcpu.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (C) 1993-99 by Florian Klaempfl Copyright (C) 1998-2000 by Florian Klaempfl
This unit handles the temporary variables stuff for i386 This unit handles the temporary variables stuff for i386
@ -68,7 +68,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.5 1999-09-15 20:35:47 florian Revision 1.6 2000-01-07 01:14:57 peter
* updated copyright to 2000
Revision 1.5 1999/09/15 20:35:47 florian
* small fix to operator overloading when in MMX mode * small fix to operator overloading when in MMX mode
+ the compiler uses now fldz and fld1 if possible + the compiler uses now fldz and fld1 if possible
+ some fixes to floating point registers + some fixes to floating point registers

7
compiler/new/ncon.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (C) 1993-99 by Florian Klaempfl Copyright (C) 1998-2000 by Florian Klaempfl
This unit implements load nodes etc. This unit implements load nodes etc.
@ -39,7 +39,10 @@ unit ncon;
end. end.
{ {
$Log$ $Log$
Revision 1.2 1999-08-06 18:05:53 florian Revision 1.3 2000-01-07 01:14:53 peter
* updated copyright to 2000
Revision 1.2 1999/08/06 18:05:53 florian
* implemented some stuff for assignments * implemented some stuff for assignments
Revision 1.1 1999/08/06 16:15:38 florian Revision 1.1 1999/08/06 16:15:38 florian

7
compiler/new/nmem.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (C) 1993-99 by Florian Klaempfl Copyright (C) 1998-2000 by Florian Klaempfl
This unit implements load nodes etc. This unit implements load nodes etc.
@ -711,7 +711,10 @@ unit nmem;
end. end.
{ {
$Log$ $Log$
Revision 1.15 1999-12-06 18:17:10 peter Revision 1.16 2000-01-07 01:14:53 peter
* updated copyright to 2000
Revision 1.15 1999/12/06 18:17:10 peter
* newcg compiler compiles again * newcg compiler compiles again
Revision 1.14 1999/10/12 21:20:46 florian Revision 1.14 1999/10/12 21:20:46 florian

7
compiler/new/nstatmnt.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (C) 1993-99 by Florian Klaempfl Copyright (C) 1998-2000 by Florian Klaempfl
This unit implements block, statement nodes etc. This unit implements block, statement nodes etc.
@ -146,7 +146,10 @@ unit nstatmnt;
end. end.
{ {
$Log$ $Log$
Revision 1.4 1999-08-05 14:58:14 florian Revision 1.5 2000-01-07 01:14:54 peter
* updated copyright to 2000
Revision 1.4 1999/08/05 14:58:14 florian
* some fixes for the floating point registers * some fixes for the floating point registers
* more things for the new code generator * more things for the new code generator

7
compiler/new/pass_1.pas
View File

@ -1,6 +1,6 @@
{ {
$Id$ $Id$
Copyright (c) 1996-98 by Florian Klaempfl Copyright (c) 1998-2000 by Florian Klaempfl
This unit implements the first pass of the code generator This unit implements the first pass of the code generator
@ -168,7 +168,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.6 1999-10-12 21:20:47 florian Revision 1.7 2000-01-07 01:14:54 peter
* updated copyright to 2000
Revision 1.6 1999/10/12 21:20:47 florian
* new codegenerator compiles again * new codegenerator compiles again
Revision 1.5 1999/08/04 00:23:57 florian Revision 1.5 1999/08/04 00:23:57 florian

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