paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 13:09:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

* renamed i386asm and i386base to cpuasm and cpubase

Browse Source
This commit is contained in:
florian 1999-08-04 00:22:34 +00:00
parent 89b7d18f54
commit ca53eee67e
65 changed files with 3065 additions and 389 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ag386att.pas
View File

@ -49,8 +49,7 @@ unit ag386att;
{$endif Delphi} {$endif Delphi}
strings, strings,
globtype,globals,systems, globtype,globals,systems,
files,verbose files,verbose,cpubase,cpuasm
,i386base,i386asm
{$ifdef GDB} {$ifdef GDB}
,gdb ,gdb
{$endif GDB} {$endif GDB}
@ -832,7 +831,10 @@ unit ag386att;
end. end.
{ {
$Log$ $Log$
Revision 1.7 1999-07-30 12:26:07 peter Revision 1.8 1999-08-04 00:22:34 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.7 1999/07/30 12:26:07 peter
* write .size only for linux * write .size only for linux
Revision 1.6 1999/07/29 20:53:56 peter Revision 1.6 1999/07/29 20:53:56 peter

10
compiler/ag386bin.pas
View File

@ -31,8 +31,7 @@ unit ag386bin;
interface interface
uses uses
i386base, cpubase,cobjects,aasm,files,assemble;
cobjects,aasm,files,assemble;
type type
togtype=(og_none,og_dbg,og_coff,og_pecoff); togtype=(og_none,og_dbg,og_coff,og_pecoff);
@ -79,7 +78,7 @@ unit ag386bin;
uses uses
strings, strings,
globtype,globals,systems,verbose, globtype,globals,systems,verbose,
i386asm, cpuasm,
{$ifdef GDB} {$ifdef GDB}
gdb, gdb,
{$endif} {$endif}
@ -906,7 +905,10 @@ unit ag386bin;
end. end.
{ {
$Log$ $Log$
Revision 1.21 1999-08-01 18:28:09 florian Revision 1.22 1999-08-04 00:22:35 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.21 1999/08/01 18:28:09 florian
* modifications for the new code generator * modifications for the new code generator
Revision 1.20 1999/07/31 12:33:11 peter Revision 1.20 1999/07/31 12:33:11 peter

8
compiler/ag386int.pas
View File

@ -42,8 +42,7 @@ unit ag386int;
uses uses
strings, strings,
globtype,globals,systems,cobjects, globtype,globals,systems,cobjects,
files,verbose files,verbose,cpubase,cpuasm
,i386base,i386asm
{$ifdef GDB} {$ifdef GDB}
,gdb ,gdb
{$endif GDB} {$endif GDB}
@ -628,7 +627,10 @@ ait_stab_function_name : ;
end. end.
{ {
$Log$ $Log$
Revision 1.50 1999-07-22 09:37:31 florian Revision 1.51 1999-08-04 00:22:36 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.50 1999/07/22 09:37:31 florian
+ resourcestring implemented + resourcestring implemented
+ start of longstring support + start of longstring support

8
compiler/ag386nsm.pas
View File

@ -43,8 +43,7 @@ unit ag386nsm;
uses uses
strings, strings,
globtype,globals,systems,cobjects, globtype,globals,systems,cobjects,
files,verbose files,verbose,cpubase,cpuasm
,i386base,i386asm
{$ifdef GDB} {$ifdef GDB}
,gdb ,gdb
{$endif GDB} {$endif GDB}
@ -603,7 +602,10 @@ ait_stab_function_name : ;
end. end.
{ {
$Log$ $Log$
Revision 1.47 1999-08-01 18:28:10 florian Revision 1.48 1999-08-04 00:22:37 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.47 1999/08/01 18:28:10 florian
* modifications for the new code generator * modifications for the new code generator
Revision 1.46 1999/07/22 09:37:33 florian Revision 1.46 1999/07/22 09:37:33 florian

7
compiler/cg386add.pas
View File

@ -37,7 +37,7 @@ implementation
cobjects,verbose,globals, cobjects,verbose,globals,
symconst,symtable,aasm,types, symconst,symtable,aasm,types,
hcodegen,temp_gen,pass_2, hcodegen,temp_gen,pass_2,
i386base,i386asm, cpubase,cpuasm,
cgai386,tgeni386; cgai386,tgeni386;
{***************************************************************************** {*****************************************************************************
@ -2091,7 +2091,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.70 1999-08-03 22:02:31 peter Revision 1.71 1999-08-04 00:22:40 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.70 1999/08/03 22:02:31 peter
* moved bitmask constants to sets * moved bitmask constants to sets
* some other type/const renamings * some other type/const renamings

11
compiler/cg386cal.pas
View File

@ -44,11 +44,7 @@ implementation
gdb, gdb,
{$endif GDB} {$endif GDB}
hcodegen,temp_gen,pass_2, hcodegen,temp_gen,pass_2,
i386base,i386asm, cpubase,cpuasm,
{$ifdef dummy}
end { this overcomes the annoying highlighting problem in my TP IDE,
the IDE assumes i386asm start a asm block (FK) }
{$endif}
cgai386,tgeni386,cg386ld; cgai386,tgeni386,cg386ld;
{***************************************************************************** {*****************************************************************************
@ -1176,7 +1172,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.95 1999-08-03 22:02:34 peter Revision 1.96 1999-08-04 00:22:41 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.95 1999/08/03 22:02:34 peter
* moved bitmask constants to sets * moved bitmask constants to sets
* some other type/const renamings * some other type/const renamings

7
compiler/cg386cnv.pas
View File

@ -44,7 +44,7 @@ implementation
cobjects,verbose,globtype,globals,systems, cobjects,verbose,globtype,globals,systems,
symconst,symtable,aasm,types, symconst,symtable,aasm,types,
hcodegen,temp_gen,pass_2,pass_1, hcodegen,temp_gen,pass_2,pass_1,
i386base,i386asm, cpubase,cpuasm,
cgai386,tgeni386; cgai386,tgeni386;
@ -1463,7 +1463,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.81 1999-08-03 22:02:36 peter Revision 1.82 1999-08-04 00:22:43 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.81 1999/08/03 22:02:36 peter
* moved bitmask constants to sets * moved bitmask constants to sets
* some other type/const renamings * some other type/const renamings

7
compiler/cg386con.pas
View File

@ -41,7 +41,7 @@ implementation
cobjects,verbose,globals, cobjects,verbose,globals,
symconst,symtable,aasm,types, symconst,symtable,aasm,types,
hcodegen,temp_gen,pass_2, hcodegen,temp_gen,pass_2,
i386base,i386asm, cpubase,cpuasm,
cgai386,tgeni386; cgai386,tgeni386;
{***************************************************************************** {*****************************************************************************
@ -401,7 +401,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.38 1999-08-03 22:02:38 peter Revision 1.39 1999-08-04 00:22:45 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.38 1999/08/03 22:02:38 peter
* moved bitmask constants to sets * moved bitmask constants to sets
* some other type/const renamings * some other type/const renamings

7
compiler/cg386flw.pas
View File

@ -47,7 +47,7 @@ implementation
cobjects,verbose,globals,systems, cobjects,verbose,globals,systems,
symconst,symtable,aasm,types, symconst,symtable,aasm,types,
hcodegen,temp_gen,pass_2, hcodegen,temp_gen,pass_2,
i386base,i386asm, cpubase,cpuasm,
cgai386,tgeni386; cgai386,tgeni386;
{***************************************************************************** {*****************************************************************************
@ -772,7 +772,10 @@ do_jmp:
end. end.
{ {
$Log$ $Log$
Revision 1.44 1999-08-03 22:02:39 peter Revision 1.45 1999-08-04 00:22:46 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.44 1999/08/03 22:02:39 peter
* moved bitmask constants to sets * moved bitmask constants to sets
* some other type/const renamings * some other type/const renamings

7
compiler/cg386inl.pas
View File

@ -36,7 +36,7 @@ implementation
cobjects,verbose,globals,files, cobjects,verbose,globals,files,
symconst,symtable,aasm,types, symconst,symtable,aasm,types,
hcodegen,temp_gen,pass_1,pass_2, hcodegen,temp_gen,pass_1,pass_2,
i386base,i386asm, cpubase,cpuasm,
cgai386,tgeni386,cg386cal; cgai386,tgeni386,cg386cal;
@ -1313,7 +1313,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.64 1999-08-03 22:02:42 peter Revision 1.65 1999-08-04 00:22:47 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.64 1999/08/03 22:02:42 peter
* moved bitmask constants to sets * moved bitmask constants to sets
* some other type/const renamings * some other type/const renamings

7
compiler/cg386ld.pas
View File

@ -39,7 +39,7 @@ implementation
cobjects,verbose,globals, cobjects,verbose,globals,
symconst,symtable,aasm,types, symconst,symtable,aasm,types,
hcodegen,temp_gen,pass_2, hcodegen,temp_gen,pass_2,
i386base,i386asm, cpubase,cpuasm,
cgai386,tgeni386,cg386cnv,cresstr; cgai386,tgeni386,cg386cnv,cresstr;
{***************************************************************************** {*****************************************************************************
@ -875,7 +875,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.68 1999-08-03 22:02:43 peter Revision 1.69 1999-08-04 00:22:50 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.68 1999/08/03 22:02:43 peter
* moved bitmask constants to sets * moved bitmask constants to sets
* some other type/const renamings * some other type/const renamings

7
compiler/cg386mat.pas
View File

@ -39,7 +39,7 @@ implementation
cobjects,verbose,globals, cobjects,verbose,globals,
symconst,symtable,aasm,types, symconst,symtable,aasm,types,
hcodegen,temp_gen,pass_2, hcodegen,temp_gen,pass_2,
i386base,i386asm, cpubase,cpuasm,
{$ifdef dummy} {$ifdef dummy}
end { this overcomes the annoying highlighting problem in my TP IDE, end { this overcomes the annoying highlighting problem in my TP IDE,
the IDE assumes i386asm start a asm block (FK) } the IDE assumes i386asm start a asm block (FK) }
@ -930,7 +930,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.28 1999-08-03 22:02:45 peter Revision 1.29 1999-08-04 00:22:51 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.28 1999/08/03 22:02:45 peter
* moved bitmask constants to sets * moved bitmask constants to sets
* some other type/const renamings * some other type/const renamings

7
compiler/cg386mem.pas
View File

@ -47,7 +47,7 @@ implementation
cobjects,verbose,globals, cobjects,verbose,globals,
symconst,symtable,aasm,types, symconst,symtable,aasm,types,
hcodegen,temp_gen,pass_2,pass_1, hcodegen,temp_gen,pass_2,pass_1,
i386base,i386asm, cpubase,cpuasm,
cgai386,tgeni386; cgai386,tgeni386;
{***************************************************************************** {*****************************************************************************
@ -849,7 +849,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.48 1999-08-03 22:02:47 peter Revision 1.49 1999-08-04 00:22:53 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.48 1999/08/03 22:02:47 peter
* moved bitmask constants to sets * moved bitmask constants to sets
* some other type/const renamings * some other type/const renamings

7
compiler/cg386set.pas
View File

@ -38,7 +38,7 @@ implementation
cobjects,verbose,globals, cobjects,verbose,globals,
symconst,symtable,aasm,types, symconst,symtable,aasm,types,
hcodegen,temp_gen,pass_2, hcodegen,temp_gen,pass_2,
i386base,i386asm, cpubase,cpuasm,
cgai386,tgeni386; cgai386,tgeni386;
const const
@ -918,7 +918,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.36 1999-08-03 22:02:48 peter Revision 1.37 1999-08-04 00:22:54 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.36 1999/08/03 22:02:48 peter
* moved bitmask constants to sets * moved bitmask constants to sets
* some other type/const renamings * some other type/const renamings

10
compiler/cgai386.pas
View File

@ -26,10 +26,7 @@ unit cgai386;
uses uses
cobjects,tree, cobjects,tree,
i386base,i386asm, cpubase,cpuasm,
{$ifdef dummy}
end { to get correct syntax highlighting }
{$endif dummy}
symconst,symtable,aasm,win_targ; symconst,symtable,aasm,win_targ;
{$define TESTGETTEMP to store const that {$define TESTGETTEMP to store const that
@ -3140,7 +3137,10 @@ procedure mov_reg_to_dest(p : ptree; s : topsize; reg : tregister);
end. end.
{ {
$Log$ $Log$
Revision 1.23 1999-08-03 22:02:49 peter Revision 1.24 1999-08-04 00:22:55 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.23 1999/08/03 22:02:49 peter
* moved bitmask constants to sets * moved bitmask constants to sets
* some other type/const renamings * some other type/const renamings

1633
compiler/cpuasm.pas Normal file
View File

File diff suppressed because it is too large Load Diff

1091
compiler/cpubase.pas Normal file
View File

File diff suppressed because it is too large Load Diff

9
compiler/csopt386.pas
View File

@ -32,9 +32,7 @@ Procedure CSE(AsmL: PAasmOutput; First, Last: Pai);
Implementation Implementation
Uses Uses
CObjects, verbose, hcodegen, globals CObjects, verbose, hcodegen, globals,cpubase,cpuasm,DAOpt386;
,i386base,i386asm
,DAOpt386;
{ {
Function PaiInSequence(P: Pai; Const Seq: TContent): Boolean; Function PaiInSequence(P: Pai; Const Seq: TContent): Boolean;
@ -555,7 +553,10 @@ End.
{ {
$Log$ $Log$
Revision 1.22 1999-06-03 15:45:08 jonas Revision 1.23 1999-08-04 00:22:58 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.22 1999/06/03 15:45:08 jonas
* sequences are now checked only once (previously, some long ones were * sequences are now checked only once (previously, some long ones were
checked once completely and then several times partially) checked once completely and then several times partially)

10
compiler/daopt386.pas
View File

@ -33,12 +33,9 @@ Interface
Uses Uses
GlobType, GlobType,
CObjects,Aasm, CObjects,Aasm,
i386base,i386asm cpubase,cpuasm;
;
Type Type
TRegArray = Array[R_EAX..R_BL] of TRegister; TRegArray = Array[R_EAX..R_BL] of TRegister;
TRegSet = Set of R_EAX..R_BL; TRegSet = Set of R_EAX..R_BL;
TRegInfo = Record TRegInfo = Record
@ -2238,7 +2235,10 @@ End.
{ {
$Log$ $Log$
Revision 1.52 1999-08-02 14:35:21 jonas Revision 1.53 1999-08-04 00:22:59 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.52 1999/08/02 14:35:21 jonas
* bugfix in DestroyRefs * bugfix in DestroyRefs
Revision 1.51 1999/08/02 12:12:53 jonas Revision 1.51 1999/08/02 12:12:53 jonas

10
compiler/gdb.pas
View File

@ -25,10 +25,7 @@ unit gdb;
interface interface
uses uses
globtype, globtype,cpubase,
{$ifdef i386}
i386base,
{$endif i386}
strings,cobjects,globals,aasm; strings,cobjects,globals,aasm;
{stab constants } {stab constants }
@ -257,7 +254,10 @@ end.
{ {
$Log$ $Log$
Revision 1.11 1999-05-27 19:44:27 peter Revision 1.12 1999-08-04 00:23:01 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.11 1999/05/27 19:44:27 peter
* removed oldasm * removed oldasm
* plabel -> pasmlabel * plabel -> pasmlabel
* -a switches to source writing automaticly * -a switches to source writing automaticly

17
compiler/hcodegen.pas
View File

@ -27,17 +27,7 @@ unit hcodegen;
uses uses
cobjects, cobjects,
tokens,verbose, tokens,verbose,
aasm,symtable aasm,symtable,cpubase;
{$ifdef i386}
,i386base
{$endif}
{$ifdef m68k}
,m68k
{$endif}
{$ifdef alpha}
,cpubase
{$endif}
;
const const
pi_uses_asm = $1; { set, if the procedure uses asm } pi_uses_asm = $1; { set, if the procedure uses asm }
@ -301,7 +291,10 @@ end.
{ {
$Log$ $Log$
Revision 1.36 1999-08-01 23:09:26 michael Revision 1.37 1999-08-04 00:23:02 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.36 1999/08/01 23:09:26 michael
* procbase -> cpubase * procbase -> cpubase
Revision 1.35 1999/08/01 23:04:49 michael Revision 1.35 1999/08/01 23:04:49 michael

2
compiler/mppc386.bat
View File

@ -1,4 +1,4 @@
ppc386 -O2p3 -Ch8000000 -dI386 -dGDB -dBROWSERLOG -a -Sg pp.pas %1 %2 %3 %4 %5 %6 %7 %8 %9 ppc386 -O-p3 -Ch8000000 -dI386 -dGDB -dBROWSERLOG -Sg pp.pas %1 %2 %3 %4 %5 %6 %7 %8 %9
if errorlevel 0 goto success if errorlevel 0 goto success
goto failed goto failed
:success :success

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

@ -25,9 +25,7 @@ unit cgcpu;
interface interface
uses uses
cgobj,aasm cgobj,aasm,cpuasm,cpubase;
{$i cpuunit.inc}
;
type type
pcgalpha = ^tcgalpha; pcgalpha = ^tcgalpha;
@ -124,7 +122,10 @@ unit cgcpu;
end. end.
{ {
$Log$ $Log$
Revision 1.1 1999-08-03 22:39:46 florian Revision 1.2 1999-08-04 00:24:00 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.1 1999/08/03 22:39:46 florian
* initial revision * initial revision
Revision 1.2 1999/08/01 23:19:59 florian Revision 1.2 1999/08/01 23:19:59 florian

9
compiler/new/cgbase.pas
View File

@ -25,9 +25,7 @@ unit cgbase;
interface interface
uses uses
globtype,cobjects,aasm,symtable,verbose,tree globtype,cobjects,aasm,symtable,verbose,tree,cpuasm,cpubase;
{$I cpuunit.inc}
;
const const
pi_uses_asm = $1; { set, if the procedure uses asm } pi_uses_asm = $1; { set, if the procedure uses asm }
@ -395,7 +393,10 @@ unit cgbase;
end. end.
{ {
$Log$ $Log$
Revision 1.5 1999-08-01 18:22:32 florian Revision 1.6 1999-08-04 00:23:51 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.5 1999/08/01 18:22:32 florian
* made it again compilable * made it again compilable
Revision 1.4 1999/01/23 23:29:45 florian Revision 1.4 1999/01/23 23:29:45 florian

21
compiler/new/cgobj.pas
View File

@ -25,9 +25,7 @@ unit cgobj;
interface interface
uses uses
cobjects,aasm,symtable cobjects,aasm,symtable,symconst,cpuasm,cpubase;
{$I cpuunit.inc}
;
type type
qword = comp; qword = comp;
@ -308,7 +306,7 @@ unit cgobj;
list^.insert(new(pai_align,init(4))); list^.insert(new(pai_align,init(4)));
end; end;
{ save registers on cdecl } { save registers on cdecl }
if ((aktprocsym^.definition^.options and pocdecl)<>0) then if (po_savestdregs in aktprocsym^.definition^.procoptions) then
begin begin
for r:=firstreg to lastreg do for r:=firstreg to lastreg do
begin begin
@ -330,20 +328,20 @@ unit cgobj;
begin begin
CGMessage(cg_d_stackframe_omited); CGMessage(cg_d_stackframe_omited);
nostackframe:=true; nostackframe:=true;
if (aktprocsym^.definition^.options and (pounitinit or poproginit or pounitfinalize)<>0) then if (aktprocsym^.definition^.proctypeoption in [potype_unitinit,potype_proginit,potype_unitfinalize]) then
parasize:=0 parasize:=0
else else
parasize:=aktprocsym^.definition^.parast^.datasize+procinfo.call_offset-pointersize; parasize:=aktprocsym^.definition^.parast^.datasize+procinfo.call_offset-pointersize;
end end
else else
begin begin
if (aktprocsym^.definition^.options and (pounitinit or poproginit or pounitfinalize)<>0) then if (aktprocsym^.definition^.proctypeoption in [potype_unitinit,potype_proginit,potype_unitfinalize]) then
parasize:=0 parasize:=0
else else
parasize:=aktprocsym^.definition^.parast^.datasize+procinfo.call_offset-pointersize*2; parasize:=aktprocsym^.definition^.parast^.datasize+procinfo.call_offset-pointersize*2;
nostackframe:=false; nostackframe:=false;
if (aktprocsym^.definition^.options and pointerrupt)<>0 then if (po_interrupt in aktprocsym^.definition^.procoptions) then
g_interrupt_stackframe_entry(list); g_interrupt_stackframe_entry(list);
g_stackframe_entry(list,stackframe); g_stackframe_entry(list,stackframe);
@ -355,7 +353,7 @@ unit cgobj;
if cs_profile in aktmoduleswitches then if cs_profile in aktmoduleswitches then
g_profilecode(@initcode); g_profilecode(@initcode);
if (not inlined) and ((aktprocsym^.definition^.options and poproginit)<>0) then if (not inlined) and (aktprocsym^.definition^.proctypeoption in [potype_unitinit]) then
begin begin
{ needs the target a console flags ? } { needs the target a console flags ? }
@ -417,7 +415,7 @@ unit cgobj;
end; end;
{ generate copies of call by value parameters } { generate copies of call by value parameters }
if (aktprocsym^.definition^.options and poassembler=0) then if (po_assembler in aktprocsym^.definition^.procoptions) then
begin begin
{$ifndef VALUEPARA} {$ifndef VALUEPARA}
aktprocsym^.definition^.parast^.foreach({$ifdef FPC}@{$endif FPC}_copyopenarrays); aktprocsym^.definition^.parast^.foreach({$ifdef FPC}@{$endif FPC}_copyopenarrays);
@ -676,7 +674,10 @@ unit cgobj;
end. end.
{ {
$Log$ $Log$
Revision 1.9 1999-08-02 23:13:21 florian Revision 1.10 1999-08-04 00:23:52 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.9 1999/08/02 23:13:21 florian
* more changes to compile for the Alpha * more changes to compile for the Alpha
Revision 1.8 1999/08/02 17:14:07 florian Revision 1.8 1999/08/02 17:14:07 florian

47
compiler/new/cpuunit.inc
View File

@ -1,47 +0,0 @@
{
$Id$
Copyright (c) 1998 by Florian Klaempfl
This file includes the appropriate cpu unit
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
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,
but WITHOUT ANY WARRANTY; without even the implied warranty of
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.
****************************************************************************
}
{$ifdef i386}
,i386base
,i386asm
{$else}
,cpubase
,cpuinfo
{$endif}
{
$Log$
Revision 1.5 1999-08-02 17:16:42 michael
+ Changes for alpha
Revision 1.4 1999/08/01 23:07:13 michael
+ Procbase- -> cpubase
Revision 1.3 1999/08/01 23:04:51 michael
+ Changes for Alpha
Revision 1.2 1999/08/01 18:22:34 florian
* made it again compilable
Revision 1.1 1998/12/15 22:16:03 florian
* first version, all planned processors (?) added
}

12
compiler/new/nmem.pas
View File

@ -46,9 +46,8 @@ unit nmem;
implementation implementation
uses uses
cobjects,aasm,cgbase,cgobj,types,verbose,tgobj,tgcpu cobjects,aasm,cgbase,cgobj,types,verbose,tgobj,tgcpu,symconst,
{$I cpuunit.inc} cpubase,cpuasm;
;
{**************************************************************************** {****************************************************************************
TLOADNODE TLOADNODE
@ -111,7 +110,7 @@ unit nmem;
begin begin
hregister:=R_NO; hregister:=R_NO;
{ C variable } { C variable }
if (pvarsym(symtableentry)^.var_options and vo_is_C_var)<>0 then if (vo_is_C_var in pvarsym(symtableentry)^.varoptions) then
begin begin
location.reference.symbol:=newasmsymbol(symtableentry^.mangledname); location.reference.symbol:=newasmsymbol(symtableentry^.mangledname);
end end
@ -272,7 +271,10 @@ unit nmem;
end. end.
{ {
$Log$ $Log$
Revision 1.4 1999-08-03 17:09:45 florian Revision 1.5 1999-08-04 00:23:56 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.4 1999/08/03 17:09:45 florian
* the alpha compiler can be compiled now * the alpha compiler can be compiled now
Revision 1.3 1999/08/02 17:14:08 florian Revision 1.3 1999/08/02 17:14:08 florian

8
compiler/new/pass_1.pas
View File

@ -40,12 +40,11 @@ implementation
globtype,systems, globtype,systems,
cobjects,verbose,globals, cobjects,verbose,globals,
aasm,symtable,types, aasm,symtable,types,
cgbase cgbase,cpuasm,cpubase
{ not yet converted: { not yet converted:
htypechk,tcadd,tccal,tccnv,tccon,tcflw, htypechk,tcadd,tccal,tccnv,tccon,tcflw,
tcinl,tcld,tcmat,tcmem,tcset tcinl,tcld,tcmat,tcmem,tcset
} }
{$I cpuunit.inc}
; ;
{***************************************************************************** {*****************************************************************************
@ -222,7 +221,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.4 1999-08-01 18:22:36 florian Revision 1.5 1999-08-04 00:23:57 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.4 1999/08/01 18:22:36 florian
* made it again compilable * made it again compilable
Revision 1.3 1999/01/23 23:29:48 florian Revision 1.3 1999/01/23 23:29:48 florian

22
compiler/new/pass_2.pas
View File

@ -43,12 +43,11 @@ implementation
uses uses
globtype,systems, globtype,systems,
cobjects,verbose,comphook,globals,files, cobjects,verbose,comphook,globals,files,
symtable,types,aasm,scanner, symconst,symtable,types,aasm,scanner,
pass_1,tgobj,cgbase,cgobj,tgcpu pass_1,tgobj,cgbase,cgobj,tgcpu,cpuasm,cpubase
{$ifdef GDB} {$ifdef GDB}
,gdb ,gdb
{$endif} {$endif}
{$i cpuunit.inc}
; ;
type type
perrornode = ^terrornode; perrornode = ^terrornode;
@ -181,7 +180,7 @@ implementation
var var
i,j,k : longint; i,j,k : longint;
begin begin
if (pvarsym(p)^.typ=varsym) and ((pvarsym(p)^.var_options and vo_regable)<>0) then if (pvarsym(p)^.typ=varsym) and (vo_regable in pvarsym(p)^.varoptions) then
begin begin
{ walk through all momentary register variables } { walk through all momentary register variables }
for i:=1 to maxvarregs do for i:=1 to maxvarregs do
@ -261,10 +260,10 @@ implementation
} }
if assigned(aktprocsym) then if assigned(aktprocsym) then
begin begin
if (aktprocsym^.definition^.options and if not(aktprocsym^.definition^.proctypeoption in [potype_constructor,potype_destructor]) and
(poconstructor+podestructor{+poinline}+pointerrupt)=0) and not(po_interrupt in aktprocsym^.definition^.procoptions) and
((procinfo.flags and pi_do_call)=0) and ((procinfo.flags and pi_do_call)=0) and
(lexlevel>=normal_function_level) then (lexlevel>=normal_function_level) then
begin begin
{ use ESP as frame pointer } { use ESP as frame pointer }
procinfo.framepointer:=stack_pointer; procinfo.framepointer:=stack_pointer;
@ -408,7 +407,7 @@ implementation
end; end;
end; end;
if assigned(aktprocsym) and if assigned(aktprocsym) and
((aktprocsym^.definition^.options and poinline)<>0) then (pocall_inline in aktprocsym^.definition^.proccalloptions) then
make_const_global:=true; make_const_global:=true;
do_secondpass(p); do_secondpass(p);
@ -425,7 +424,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.4 1999-08-03 17:09:46 florian Revision 1.5 1999-08-04 00:23:58 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.4 1999/08/03 17:09:46 florian
* the alpha compiler can be compiled now * the alpha compiler can be compiled now
Revision 1.3 1999/08/03 00:30:36 florian Revision 1.3 1999/08/03 00:30:36 florian

9
compiler/new/tree.pas
View File

@ -29,9 +29,7 @@ unit tree;
interface interface
uses uses
globtype,cobjects,symtable,aasm symconst,globtype,cobjects,symtable,aasm,cpuasm,cpubase;
{$I cpuunit.inc}
;
type type
pconstset = ^tconstset; pconstset = ^tconstset;
@ -1902,7 +1900,10 @@ unit tree;
end. end.
{ {
$Log$ $Log$
Revision 1.10 1999-08-02 17:14:12 florian Revision 1.11 1999-08-04 00:23:59 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.10 1999/08/02 17:14:12 florian
+ changed the temp. generator to an object + changed the temp. generator to an object
Revision 1.9 1999/08/01 23:19:58 florian Revision 1.9 1999/08/01 23:19:58 florian

7
compiler/og386.pas
View File

@ -34,7 +34,7 @@ unit og386;
dos, dos,
{$endif Delphi} {$endif Delphi}
owbase,owar, owbase,owar,
systems,i386base,aasm; systems,cpubase,aasm;
type type
tsecsize = array[tsection] of longint; tsecsize = array[tsection] of longint;
@ -278,7 +278,10 @@ unit og386;
end. end.
{ {
$Log$ $Log$
Revision 1.10 1999-07-18 10:19:56 florian Revision 1.11 1999-08-04 00:23:04 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.10 1999/07/18 10:19:56 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

8
compiler/og386cff.pas
View File

@ -69,8 +69,7 @@ unit og386cff;
uses uses
cobjects, cobjects,
systems,i386base,aasm, systems,cpubase,aasm,og386;
og386;
type type
preloc = ^treloc; preloc = ^treloc;
@ -946,7 +945,10 @@ unit og386cff;
end. end.
{ {
$Log$ $Log$
Revision 1.9 1999-07-03 00:27:02 peter Revision 1.10 1999-08-04 00:23:05 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.9 1999/07/03 00:27:02 peter
* better smartlinking support * better smartlinking support
Revision 1.8 1999/06/03 16:39:09 pierre Revision 1.8 1999/06/03 16:39:09 pierre

9
compiler/og386dbg.pas
View File

@ -28,9 +28,7 @@ unit og386dbg;
interface interface
uses uses
systems,i386base, systems,aasm,cpubase,og386;
aasm,
og386;
type type
pdbgoutput = ^tdbgoutput; pdbgoutput = ^tdbgoutput;
@ -182,7 +180,10 @@ unit og386dbg;
end. end.
{ {
$Log$ $Log$
Revision 1.4 1999-07-03 00:29:53 peter Revision 1.5 1999-08-04 00:23:06 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.4 1999/07/03 00:29:53 peter
* new link writing to the ppu, one .ppu is needed for all link types, * new link writing to the ppu, one .ppu is needed for all link types,
static (.o) is now always created also when smartlinking is used static (.o) is now always created also when smartlinking is used

8
compiler/og386elf.pas
View File

@ -68,8 +68,7 @@ unit og386elf;
interface interface
uses uses
cobjects, cobjects,og386,cpubase,aasm;
og386,i386base,aasm;
type type
preloc = ^treloc; preloc = ^treloc;
@ -839,7 +838,10 @@ unit og386elf;
end. end.
{ {
$Log$ $Log$
Revision 1.1 1999-05-01 13:24:24 peter Revision 1.2 1999-08-04 00:23:07 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.1 1999/05/01 13:24:24 peter
* merged nasm compiler * merged nasm compiler
* old asm moved to oldasm/ * old asm moved to oldasm/

10
compiler/pass_1.pas
View File

@ -41,13 +41,12 @@ implementation
aasm,symtable,types, aasm,symtable,types,
hcodegen,htypechk, hcodegen,htypechk,
tcadd,tccal,tccnv,tccon,tcflw, tcadd,tccal,tccnv,tccon,tcflw,
tcinl,tcld,tcmat,tcmem,tcset tcinl,tcld,tcmat,tcmem,tcset,cpubase,cpuasm
{$ifdef i386} {$ifdef i386}
,i386base,i386asm
,tgeni386 ,tgeni386
{$endif} {$endif}
{$ifdef m68k} {$ifdef m68k}
,m68k,tgen68k ,tgen68k
{$endif} {$endif}
; ;
@ -368,7 +367,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.102 1999-05-27 19:44:42 peter Revision 1.103 1999-08-04 00:23:09 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.102 1999/05/27 19:44:42 peter
* removed oldasm * removed oldasm
* plabel -> pasmlabel * plabel -> pasmlabel
* -a switches to source writing automaticly * -a switches to source writing automaticly

10
compiler/pass_2.pas
View File

@ -44,18 +44,17 @@ implementation
globtype,systems, globtype,systems,
cobjects,comphook,verbose,globals,files, cobjects,comphook,verbose,globals,files,
symconst,symtable,types,aasm,scanner, symconst,symtable,types,aasm,scanner,
pass_1,hcodegen,temp_gen pass_1,hcodegen,temp_gen,cpubase,cpuasm
{$ifdef GDB} {$ifdef GDB}
,gdb ,gdb
{$endif} {$endif}
{$ifdef i386} {$ifdef i386}
,i386base,i386asm
,tgeni386,cgai386 ,tgeni386,cgai386
,cg386con,cg386mat,cg386cnv,cg386set,cg386add ,cg386con,cg386mat,cg386cnv,cg386set,cg386add
,cg386mem,cg386cal,cg386ld,cg386flw,cg386inl ,cg386mem,cg386cal,cg386ld,cg386flw,cg386inl
{$endif} {$endif}
{$ifdef m68k} {$ifdef m68k}
,m68k,tgen68k,cga68k ,tgen68k,cga68k
,cg68kcon,cg68kmat,cg68kcnv,cg68kset,cg68kadd ,cg68kcon,cg68kmat,cg68kcnv,cg68kset,cg68kadd
,cg68kmem,cg68kcal,cg68kld,cg68kflw,cg68kinl ,cg68kmem,cg68kcal,cg68kld,cg68kflw,cg68kinl
{$endif} {$endif}
@ -539,7 +538,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.27 1999-08-03 22:02:55 peter Revision 1.28 1999-08-04 00:23:10 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.27 1999/08/03 22:02:55 peter
* moved bitmask constants to sets * moved bitmask constants to sets
* some other type/const renamings * some other type/const renamings

14
compiler/pdecl.pas
View File

@ -58,7 +58,8 @@ unit pdecl;
uses uses
cobjects,scanner, cobjects,scanner,
symconst,aasm,tree,pass_1,strings, symconst,aasm,tree,pass_1,strings,
files,types,verbose,systems,import files,types,verbose,systems,import,
cpubase
{$ifndef newcg} {$ifndef newcg}
,tccnv ,tccnv
{$endif newcg} {$endif newcg}
@ -68,12 +69,6 @@ unit pdecl;
{ parser specific stuff } { parser specific stuff }
,pbase,ptconst,pexpr,psub,pexports ,pbase,ptconst,pexpr,psub,pexports
{ processor specific stuff } { processor specific stuff }
{$ifdef i386}
,i386base
{$endif}
{$ifdef m68k}
,m68k
{$endif}
{ codegen } { codegen }
,hcodegen,hcgdata ,hcodegen,hcgdata
; ;
@ -2390,7 +2385,10 @@ unit pdecl;
end. end.
{ {
$Log$ $Log$
Revision 1.139 1999-08-03 22:02:56 peter Revision 1.140 1999-08-04 00:23:11 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.139 1999/08/03 22:02:56 peter
* moved bitmask constants to sets * moved bitmask constants to sets
* some other type/const renamings * some other type/const renamings

20
compiler/pexpr.pas
View File

@ -53,20 +53,11 @@ unit pexpr;
{$ifndef newcg} {$ifndef newcg}
tccal, tccal,
{$endif newcg} {$endif newcg}
pass_1 pass_1,
{ parser specific stuff } { parser specific stuff }
,pbase,pdecl pbase,pdecl,
{ processor specific stuff } { processor specific stuff }
{$ifdef i386} cpubase,cpuinfo;
,i386base
{$endif}
{$ifdef m68k}
,m68k
{$endif}
{$ifdef alpha}
,cpubase,cpuinfo
{$endif}
;
const const
allow_type : boolean = true; allow_type : boolean = true;
@ -2070,7 +2061,10 @@ unit pexpr;
end. end.
{ {
$Log$ $Log$
Revision 1.129 1999-08-03 22:02:59 peter Revision 1.130 1999-08-04 00:23:12 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.129 1999/08/03 22:02:59 peter
* moved bitmask constants to sets * moved bitmask constants to sets
* some other type/const renamings * some other type/const renamings

20
compiler/pmodules.pas
View File

@ -37,19 +37,8 @@ unit pmodules;
cobjects,comphook,globals,verbose,files, cobjects,comphook,globals,verbose,files,
symconst,symtable,aasm,hcodegen, symconst,symtable,aasm,hcodegen,
link,assemble,import,export,gendef,ppu,comprsrc, link,assemble,import,export,gendef,ppu,comprsrc,
cresstr cresstr,cpubase,cpuasm,
{$ifdef i386} scanner,pbase,psystem,pdecl,psub,parser;
,i386base,i386asm
{$endif}
{$ifdef m68k}
,m68k
{$endif}
{$ifdef newcg}
{$ifndef i386}
,cpubase
{$endif}
{$endif newcg}
,scanner,pbase,psystem,pdecl,psub,parser;
procedure create_objectfile; procedure create_objectfile;
@ -1364,7 +1353,10 @@ unit pmodules;
end. end.
{ {
$Log$ $Log$
Revision 1.138 1999-08-03 22:03:02 peter Revision 1.139 1999-08-04 00:23:15 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.138 1999/08/03 22:03:02 peter
* moved bitmask constants to sets * moved bitmask constants to sets
* some other type/const renamings * some other type/const renamings

8
compiler/popt386.pas
View File

@ -34,8 +34,7 @@ Implementation
Uses Uses
globtype,systems, globtype,systems,
globals,verbose,hcodegen, globals,verbose,hcodegen,
i386base,i386asm, cpubase,cpuasm,DAOpt386;
DAOpt386;
Function RegUsedAfterInstruction(Reg: TRegister; p: Pai; Var UsedRegs: TRegSet): Boolean; Function RegUsedAfterInstruction(Reg: TRegister; p: Pai; Var UsedRegs: TRegSet): Boolean;
Begin Begin
@ -1525,7 +1524,10 @@ End.
{ {
$Log$ $Log$
Revision 1.59 1999-08-03 17:13:28 jonas Revision 1.60 1999-08-04 00:23:16 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.59 1999/08/03 17:13:28 jonas
* fix for sar/shr-shl optimization * fix for sar/shr-shl optimization
Revision 1.58 1999/07/30 18:17:55 jonas Revision 1.58 1999/07/30 18:17:55 jonas

7
compiler/pp.pas
View File

@ -168,7 +168,7 @@ uses
{$endif gdb} {$endif gdb}
{$ifdef i386} {$ifdef i386}
{$O opts386} {$O opts386}
{$O i386base} {$O cpubase}
{$O cgai386} {$O cgai386}
{$O tgeni386} {$O tgeni386}
{$O cg386add} {$O cg386add}
@ -271,7 +271,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.44 1999-06-02 22:44:13 pierre Revision 1.45 1999-08-04 00:23:18 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.44 1999/06/02 22:44:13 pierre
* previous wrong log corrected * previous wrong log corrected
Revision 1.43 1999/06/02 22:25:44 pierre Revision 1.43 1999/06/02 22:25:44 pierre

11
compiler/pstatmnt.pas
View File

@ -42,9 +42,8 @@ unit pstatmnt;
globtype,systems,tokens, globtype,systems,tokens,
strings,cobjects,globals,files,verbose, strings,cobjects,globals,files,verbose,
symconst,symtable,aasm,pass_1,types,scanner,hcodegen,ppu symconst,symtable,aasm,pass_1,types,scanner,hcodegen,ppu
,pbase,pexpr,pdecl ,pbase,pexpr,pdecl,cpubase,cpuasm
{$ifdef i386} {$ifdef i386}
,i386base,i386asm
,tgeni386 ,tgeni386
{$ifndef NoRa386Int} {$ifndef NoRa386Int}
,ra386int ,ra386int
@ -63,8 +62,7 @@ unit pstatmnt;
{$endif NoRa68kMot} {$endif NoRa68kMot}
{$endif m68k} {$endif m68k}
{$ifdef alpha} {$ifdef alpha}
,cpubase,cpuasm ,tgeni386 { this is a dummy!! }
,tgeni386
{$endif alpha} {$endif alpha}
; ;
@ -1290,7 +1288,10 @@ unit pstatmnt;
end. end.
{ {
$Log$ $Log$
Revision 1.95 1999-08-03 22:03:03 peter Revision 1.96 1999-08-04 00:23:19 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.95 1999/08/03 22:03:03 peter
* moved bitmask constants to sets * moved bitmask constants to sets
* some other type/const renamings * some other type/const renamings

16
compiler/psub.pas
View File

@ -52,7 +52,7 @@ uses
strings,globals,verbose,files, strings,globals,verbose,files,
scanner,aasm,tree,types, scanner,aasm,tree,types,
import,gendef, import,gendef,
hcodegen,temp_gen,pass_1 hcodegen,temp_gen,pass_1,cpubase,cpuasm
{$ifndef NOPASS2} {$ifndef NOPASS2}
,pass_2 ,pass_2
{$endif} {$endif}
@ -60,10 +60,6 @@ uses
,gdb ,gdb
{$endif GDB} {$endif GDB}
{$ifdef i386} {$ifdef i386}
,i386base,i386asm
{$ifdef dummy}
end { avoid the stupid highlighting of the TP IDE }
{$endif dummy}
,tgeni386 ,tgeni386
{$ifndef newcg} {$ifndef newcg}
,cgai386 ,cgai386
@ -73,15 +69,12 @@ uses
{$endif} {$endif}
{$endif} {$endif}
{$ifdef m68k} {$ifdef m68k}
,m68k,tgen68k,cga68k ,tgen68k,cga68k
{$endif} {$endif}
{ parser specific stuff } { parser specific stuff }
,pbase,pdecl,pexpr,pstatmnt ,pbase,pdecl,pexpr,pstatmnt
{$ifdef newcg} {$ifdef newcg}
,tgcpu,convtree,cgobj,tgeni386 { for the new code generator tgeni386 is only a dummy } ,tgcpu,convtree,cgobj,tgeni386 { for the new code generator tgeni386 is only a dummy }
{$ifndef i386}
,cpubase
{$endif i386}
{$endif newcg} {$endif newcg}
; ;
@ -2040,7 +2033,10 @@ end.
{ {
$Log$ $Log$
Revision 1.9 1999-08-03 22:03:05 peter Revision 1.10 1999-08-04 00:23:20 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.9 1999/08/03 22:03:05 peter
* moved bitmask constants to sets * moved bitmask constants to sets
* some other type/const renamings * some other type/const renamings

19
compiler/ptconst.pas
View File

@ -37,19 +37,13 @@ unit ptconst;
globtype,systems,tokens, globtype,systems,tokens,
cobjects,globals,scanner, cobjects,globals,scanner,
symconst,aasm,types,verbose, symconst,aasm,types,verbose,
tree,pass_1 tree,pass_1,
{ parser specific stuff } { parser specific stuff }
,pbase,pexpr pbase,pexpr,
{ processor specific stuff } { processor specific stuff }
{$ifdef i386} cpubase,
,i386base
{$endif}
{$ifdef m68k}
,m68k
{$endif}
{ codegen } { codegen }
,hcodegen,hcgdata hcodegen,hcgdata;
;
{ this procedure reads typed constants } { this procedure reads typed constants }
@ -707,7 +701,10 @@ unit ptconst;
end. end.
{ {
$Log$ $Log$
Revision 1.49 1999-08-03 22:03:08 peter Revision 1.50 1999-08-04 00:23:21 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.49 1999/08/03 22:03:08 peter
* moved bitmask constants to sets * moved bitmask constants to sets
* some other type/const renamings * some other type/const renamings

12
compiler/ra386.pas
View File

@ -24,9 +24,7 @@ Unit Ra386;
interface interface
uses uses
aasm, aasm,cpubase,RAUtils;
i386base,
RAUtils;
{ Parser helpers } { Parser helpers }
function is_prefix(t:tasmop):boolean; function is_prefix(t:tasmop):boolean;
@ -54,8 +52,7 @@ type
implementation implementation
uses uses
globtype,systems,globals,verbose, globtype,systems,globals,verbose,cpuasm;
i386asm;
{***************************************************************************** {*****************************************************************************
@ -341,7 +338,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.7 1999-05-27 19:44:55 peter Revision 1.8 1999-08-04 00:23:23 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.7 1999/05/27 19:44:55 peter
* removed oldasm * removed oldasm
* plabel -> pasmlabel * plabel -> pasmlabel
* -a switches to source writing automaticly * -a switches to source writing automaticly

10
compiler/ra386att.pas
View File

@ -37,9 +37,8 @@ Implementation
Uses Uses
globtype, globtype,
strings,cobjects,systems,verbose,globals, strings,cobjects,systems,verbose,globals,
files,aasm,types,symconst,symtable,scanner,hcodegen files,aasm,types,symconst,symtable,scanner,hcodegen,
,i386base cpubase,rautils,ra386;
,rautils,ra386;
type type
tasmtoken = ( tasmtoken = (
@ -1955,7 +1954,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.55 1999-08-03 22:03:09 peter Revision 1.56 1999-08-04 00:23:25 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.55 1999/08/03 22:03:09 peter
* moved bitmask constants to sets * moved bitmask constants to sets
* some other type/const renamings * some other type/const renamings

10
compiler/ra386dir.pas
View File

@ -32,9 +32,8 @@ unit Ra386dir;
implementation implementation
uses uses
files,hcodegen,globals,scanner,aasm files,hcodegen,globals,scanner,aasm,cpubase,cpuasm,
,i386base,i386asm cobjects,symconst,symtable,types,verbose,
,cobjects,symconst,symtable,types,verbose,
rautils,ra386; rautils,ra386;
function assemble : ptree; function assemble : ptree;
@ -291,7 +290,10 @@ unit Ra386dir;
end. end.
{ {
$Log$ $Log$
Revision 1.22 1999-08-03 22:03:11 peter Revision 1.23 1999-08-04 00:23:26 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.22 1999/08/03 22:03:11 peter
* moved bitmask constants to sets * moved bitmask constants to sets
* some other type/const renamings * some other type/const renamings

10
compiler/ra386int.pas
View File

@ -38,9 +38,8 @@ Implementation
Uses Uses
globtype, globtype,
strings,cobjects,systems,verbose,globals, strings,cobjects,systems,verbose,globals,
files,aasm,types,scanner,hcodegen,symtable files,aasm,types,scanner,hcodegen,symtable,cpubase,
,i386base rautils,ra386;
,rautils,ra386;
type type
@ -1670,7 +1669,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.41 1999-07-24 11:17:16 peter Revision 1.42 1999-08-04 00:23:27 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.41 1999/07/24 11:17:16 peter
* suffix parsing for at&t fixed for things like movsbl * suffix parsing for at&t fixed for things like movsbl
* string constants are now handle correctly and also allowed in * string constants are now handle correctly and also allowed in
constant expressions constant expressions

13
compiler/rautils.pas
View File

@ -27,13 +27,7 @@ Uses
strings, strings,
cobjects, cobjects,
globtype,systems,verbose,globals,files, globtype,systems,verbose,globals,files,
symconst,symtable,aasm,hcodegen symconst,symtable,aasm,hcodegen,cpubase,cpuasm
{$ifdef i386}
,i386base,i386asm
{$endif}
{$ifdef m68k}
,m68k
{$endif}
; ;
Const Const
@ -1384,7 +1378,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.21 1999-08-03 22:03:12 peter Revision 1.22 1999-08-04 00:23:28 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.21 1999/08/03 22:03:12 peter
* moved bitmask constants to sets * moved bitmask constants to sets
* some other type/const renamings * some other type/const renamings

13
compiler/symtable.pas
View File

@ -36,16 +36,8 @@ unit symtable;
globtype,globals,tokens,systems,verbose, globtype,globals,tokens,systems,verbose,
symconst, symconst,
aasm aasm
{$ifdef i386}
,i386base
{$endif}
{$ifdef m68k}
,m68k
{$endif}
{$ifdef alpha}
,cpubase ,cpubase
,cpuinfo ,cpuinfo
{$endif}
{$ifdef GDB} {$ifdef GDB}
,gdb ,gdb
{$endif} {$endif}
@ -2343,7 +2335,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.35 1999-08-03 22:03:22 peter Revision 1.36 1999-08-04 00:23:31 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.35 1999/08/03 22:03:22 peter
* moved bitmask constants to sets * moved bitmask constants to sets
* some other type/const renamings * some other type/const renamings

7
compiler/systems.pas
View File

@ -63,7 +63,7 @@ unit systems;
); );
ttargetflags = (tf_none, ttargetflags = (tf_none,
tf_supports_stack_checking,tf_need_export tf_supports_stack_checking,tf_need_export,tf_needs_isconsole
); );
const const
@ -1626,7 +1626,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.88 1999-08-03 22:03:23 peter Revision 1.89 1999-08-04 00:23:32 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.88 1999/08/03 22:03:23 peter
* moved bitmask constants to sets * moved bitmask constants to sets
* some other type/const renamings * some other type/const renamings

15
compiler/tcadd.pas
View File

@ -35,14 +35,8 @@ implementation
globtype,systems,tokens, globtype,systems,tokens,
cobjects,verbose,globals, cobjects,verbose,globals,
symconst,symtable,aasm,types, symconst,symtable,aasm,types,
hcodegen,htypechk,pass_1 hcodegen,htypechk,pass_1,
{$ifdef i386} cpubase,tccnv
,i386base
{$endif}
{$ifdef m68k}
,m68k
{$endif}
,tccnv
; ;
{***************************************************************************** {*****************************************************************************
@ -1117,7 +1111,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.38 1999-08-03 22:03:24 peter Revision 1.39 1999-08-04 00:23:33 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.38 1999/08/03 22:03:24 peter
* moved bitmask constants to sets * moved bitmask constants to sets
* some other type/const renamings * some other type/const renamings

12
compiler/tccal.pas
View File

@ -40,12 +40,9 @@ implementation
globtype,systems, globtype,systems,
cobjects,verbose,globals, cobjects,verbose,globals,
symconst,aasm,types, symconst,aasm,types,
hcodegen,htypechk,pass_1 hcodegen,htypechk,pass_1,cpubase
{$ifdef i386} {$ifdef i386}
,i386base,tgeni386 ,tgeni386
{$endif}
{$ifdef m68k}
,m68k,tgen68k
{$endif} {$endif}
; ;
@ -1195,7 +1192,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.55 1999-08-03 22:03:27 peter Revision 1.56 1999-08-04 00:23:34 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.55 1999/08/03 22:03:27 peter
* moved bitmask constants to sets * moved bitmask constants to sets
* some other type/const renamings * some other type/const renamings

14
compiler/tccnv.pas
View File

@ -42,14 +42,7 @@ implementation
globtype,systems,tokens, globtype,systems,tokens,
cobjects,verbose,globals, cobjects,verbose,globals,
symconst,symtable,aasm,types, symconst,symtable,aasm,types,
hcodegen,htypechk,pass_1 hcodegen,htypechk,pass_1,cpubase;
{$ifdef i386}
,i386base
{$endif}
{$ifdef m68k}
,m68k
{$endif}
;
{***************************************************************************** {*****************************************************************************
@ -926,7 +919,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.42 1999-08-03 22:03:28 peter Revision 1.43 1999-08-04 00:23:36 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.42 1999/08/03 22:03:28 peter
* moved bitmask constants to sets * moved bitmask constants to sets
* some other type/const renamings * some other type/const renamings

14
compiler/tccon.pas
View File

@ -39,14 +39,7 @@ implementation
uses uses
cobjects,verbose,globals,systems, cobjects,verbose,globals,systems,
symconst,symtable,aasm,types, symconst,symtable,aasm,types,
hcodegen,pass_1 hcodegen,pass_1,cpubase;
{$ifdef i386}
,i386base
{$endif}
{$ifdef m68k}
,m68k
{$endif}
;
{***************************************************************************** {*****************************************************************************
FirstRealConst FirstRealConst
@ -126,7 +119,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.7 1999-08-03 22:03:29 peter Revision 1.8 1999-08-04 00:23:38 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.7 1999/08/03 22:03:29 peter
* moved bitmask constants to sets * moved bitmask constants to sets
* some other type/const renamings * some other type/const renamings

11
compiler/tcflw.pas
View File

@ -45,13 +45,9 @@ implementation
globtype,systems, globtype,systems,
cobjects,verbose,globals, cobjects,verbose,globals,
symtable,aasm,types, symtable,aasm,types,
hcodegen,htypechk,temp_gen,pass_1 hcodegen,htypechk,temp_gen,pass_1,cpubase
{$ifdef i386} {$ifdef i386}
,i386base
,tgeni386 ,tgeni386
{$endif}
{$ifdef m68k}
,m68k,tgen68k
{$endif} {$endif}
; ;
@ -492,7 +488,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.14 1999-08-03 22:03:30 peter Revision 1.15 1999-08-04 00:23:39 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.14 1999/08/03 22:03:30 peter
* moved bitmask constants to sets * moved bitmask constants to sets
* some other type/const renamings * some other type/const renamings

11
compiler/tcinl.pas
View File

@ -36,13 +36,9 @@ implementation
globtype, globtype,
symconst,symtable,aasm,types, symconst,symtable,aasm,types,
hcodegen,htypechk,pass_1, hcodegen,htypechk,pass_1,
tccal tccal,cpubase
{$ifdef i386} {$ifdef i386}
,i386base
,tgeni386 ,tgeni386
{$endif}
{$ifdef m68k}
,m68k,tgen68k
{$endif} {$endif}
; ;
@ -1123,7 +1119,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.44 1999-08-03 22:03:32 peter Revision 1.45 1999-08-04 00:23:40 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.44 1999/08/03 22:03:32 peter
* moved bitmask constants to sets * moved bitmask constants to sets
* some other type/const renamings * some other type/const renamings

11
compiler/tcld.pas
View File

@ -40,13 +40,9 @@ implementation
cobjects,verbose,globals,systems, cobjects,verbose,globals,systems,
symconst,symtable,aasm,types, symconst,symtable,aasm,types,
hcodegen,htypechk,pass_1, hcodegen,htypechk,pass_1,
tccnv tccnv,cpubase
{$ifdef i386} {$ifdef i386}
,i386base
,tgeni386 ,tgeni386
{$endif}
{$ifdef m68k}
,m68k,tgen68k
{$endif} {$endif}
; ;
@ -481,7 +477,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.37 1999-08-03 22:03:33 peter Revision 1.38 1999-08-04 00:23:41 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.37 1999/08/03 22:03:33 peter
* moved bitmask constants to sets * moved bitmask constants to sets
* some other type/const renamings * some other type/const renamings

14
compiler/tcmat.pas
View File

@ -38,14 +38,7 @@ implementation
globtype,systems,tokens, globtype,systems,tokens,
cobjects,verbose,globals, cobjects,verbose,globals,
symconst,symtable,aasm,types, symconst,symtable,aasm,types,
hcodegen,htypechk,pass_1 hcodegen,htypechk,pass_1,cpubase;
{$ifdef i386}
,i386base
{$endif}
{$ifdef m68k}
,m68k
{$endif}
;
{***************************************************************************** {*****************************************************************************
FirstModDiv FirstModDiv
@ -413,7 +406,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.17 1999-08-03 22:03:34 peter Revision 1.18 1999-08-04 00:23:43 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.17 1999/08/03 22:03:34 peter
* moved bitmask constants to sets * moved bitmask constants to sets
* some other type/const renamings * some other type/const renamings

14
compiler/tcmem.pas
View File

@ -46,14 +46,7 @@ implementation
globtype,systems, globtype,systems,
cobjects,verbose,globals, cobjects,verbose,globals,
symconst,symtable,aasm,types, symconst,symtable,aasm,types,
hcodegen,htypechk,pass_1 hcodegen,htypechk,pass_1,cpubase;
{$ifdef i386}
,i386base
{$endif}
{$ifdef m68k}
,m68k
{$endif}
;
{***************************************************************************** {*****************************************************************************
FirstLoadVMT FirstLoadVMT
@ -596,7 +589,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.22 1999-08-03 22:03:35 peter Revision 1.23 1999-08-04 00:23:44 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.22 1999/08/03 22:03:35 peter
* moved bitmask constants to sets * moved bitmask constants to sets
* some other type/const renamings * some other type/const renamings

10
compiler/tcset.pas
View File

@ -39,13 +39,12 @@ implementation
cobjects,verbose,globals, cobjects,verbose,globals,
symconst,symtable,aasm,types, symconst,symtable,aasm,types,
hcodegen,htypechk,pass_1, hcodegen,htypechk,pass_1,
tccnv tccnv,cpubase
{$ifdef i386} {$ifdef i386}
,i386base
,tgeni386 ,tgeni386
{$endif} {$endif}
{$ifdef m68k} {$ifdef m68k}
,m68k,tgen68k ,tgen68k
{$endif} {$endif}
; ;
@ -255,7 +254,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.11 1999-08-03 22:03:38 peter Revision 1.12 1999-08-04 00:23:45 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.11 1999/08/03 22:03:38 peter
* moved bitmask constants to sets * moved bitmask constants to sets
* some other type/const renamings * some other type/const renamings

17
compiler/temp_gen.pas
View File

@ -25,17 +25,7 @@ unit temp_gen;
interface interface
uses uses
{$ifdef i386} cpubase,cpuinfo,cobjects,globals,tree,hcodegen,verbose,files,aasm;
i386base,i386asm,
{$endif i386}
{$ifdef m68k}
m68k,
{$endif m68k}
{$ifdef alpha}
cpubase,
cpuinfo,
{$endif m68k}
cobjects,globals,tree,hcodegen,verbose,files,aasm;
type type
ttemptype = (tt_none,tt_free,tt_normal,tt_persistant,tt_ansistring,tt_freeansistring,tt_widestring,tt_freewidestring); ttemptype = (tt_none,tt_free,tt_normal,tt_persistant,tt_ansistring,tt_freeansistring,tt_widestring,tt_freewidestring);
@ -530,7 +520,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.33 1999-08-02 00:34:06 michael Revision 1.34 1999-08-04 00:23:46 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.33 1999/08/02 00:34:06 michael
* alpha has no index * alpha has no index
Revision 1.32 1999/06/09 23:00:13 peter Revision 1.32 1999/06/09 23:00:13 peter

14
compiler/tgeni386.pas
View File

@ -25,13 +25,8 @@ unit tgeni386;
interface interface
uses uses
cobjects,globals,tree,hcodegen,verbose,files,aasm cobjects,globals,tree,hcodegen,verbose,files,aasm,
{$ifdef i386} cpubase,cpuasm
,i386base,i386asm
{$ifdef dummy}
end
{$endif}
{$endif}
; ;
type type
@ -472,7 +467,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.28 1999-08-02 17:17:11 florian Revision 1.29 1999-08-04 00:23:48 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.28 1999/08/02 17:17:11 florian
* small changes for the new code generator * small changes for the new code generator
Revision 1.27 1999/06/09 23:22:39 peter Revision 1.27 1999/06/09 23:22:39 peter

17
compiler/tree.pas
View File

@ -30,17 +30,7 @@ unit tree;
uses uses
globtype,cobjects, globtype,cobjects,
symconst,symtable,aasm symconst,symtable,aasm,cpubase;
{$ifdef i386}
,i386base
{$endif}
{$ifdef m68k}
,m68k
{$endif}
{$ifdef alpha}
,alpha
{$endif}
;
type type
pconstset = ^tconstset; pconstset = ^tconstset;
@ -1731,7 +1721,10 @@ unit tree;
end. end.
{ {
$Log$ $Log$
Revision 1.85 1999-08-03 22:03:40 peter Revision 1.86 1999-08-04 00:23:49 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.85 1999/08/03 22:03:40 peter
* moved bitmask constants to sets * moved bitmask constants to sets
* some other type/const renamings * some other type/const renamings

11
compiler/win_targ.pas
View File

@ -56,12 +56,10 @@ unit win_targ;
implementation implementation
uses uses
aasm,files,strings,globtype,globals,cobjects,systems,verbose aasm,files,strings,globtype,globals,cobjects,systems,verbose,
cpubase,cpuasm
{$ifdef GDB} {$ifdef GDB}
,gdb ,gdb
{$endif}
{$ifdef i386}
,i386base,i386asm
{$endif} {$endif}
; ;
@ -728,7 +726,10 @@ unit win_targ;
end. end.
{ {
$Log$ $Log$
Revision 1.30 1999-07-29 20:54:11 peter Revision 1.31 1999-08-04 00:23:50 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.30 1999/07/29 20:54:11 peter
* write .size also * write .size also
Revision 1.29 1999/07/22 16:12:28 peter Revision 1.29 1999/07/22 16:12:28 peter