mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-22 08:29:29 +02:00
* renamed i386asm and i386base to cpuasm and cpubase
This commit is contained in:
florian
parent
89b7d18f54
commit
ca53eee67e
@ -49,8 +49,7 @@ unit ag386att;
|
||||
{$endif Delphi}
|
||||
strings,
|
||||
globtype,globals,systems,
|
||||
files,verbose
|
||||
,i386base,i386asm
|
||||
files,verbose,cpubase,cpuasm
|
||||
{$ifdef GDB}
|
||||
,gdb
|
||||
{$endif GDB}
|
||||
@ -832,7 +831,10 @@ unit ag386att;
|
||||
end.
|
||||
{
|
||||
$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
|
||||
|
||||
Revision 1.6 1999/07/29 20:53:56 peter
|
||||
|
||||
@ -31,8 +31,7 @@ unit ag386bin;
|
||||
interface
|
||||
|
||||
uses
|
||||
i386base,
|
||||
cobjects,aasm,files,assemble;
|
||||
cpubase,cobjects,aasm,files,assemble;
|
||||
|
||||
type
|
||||
togtype=(og_none,og_dbg,og_coff,og_pecoff);
|
||||
@ -79,7 +78,7 @@ unit ag386bin;
|
||||
uses
|
||||
strings,
|
||||
globtype,globals,systems,verbose,
|
||||
i386asm,
|
||||
cpuasm,
|
||||
{$ifdef GDB}
|
||||
gdb,
|
||||
{$endif}
|
||||
@ -906,7 +905,10 @@ unit ag386bin;
|
||||
end.
|
||||
{
|
||||
$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
|
||||
|
||||
Revision 1.20 1999/07/31 12:33:11 peter
|
||||
|
||||
@ -42,8 +42,7 @@ unit ag386int;
|
||||
uses
|
||||
strings,
|
||||
globtype,globals,systems,cobjects,
|
||||
files,verbose
|
||||
,i386base,i386asm
|
||||
files,verbose,cpubase,cpuasm
|
||||
{$ifdef GDB}
|
||||
,gdb
|
||||
{$endif GDB}
|
||||
@ -628,7 +627,10 @@ ait_stab_function_name : ;
|
||||
end.
|
||||
{
|
||||
$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
|
||||
+ start of longstring support
|
||||
|
||||
|
||||
@ -43,8 +43,7 @@ unit ag386nsm;
|
||||
uses
|
||||
strings,
|
||||
globtype,globals,systems,cobjects,
|
||||
files,verbose
|
||||
,i386base,i386asm
|
||||
files,verbose,cpubase,cpuasm
|
||||
{$ifdef GDB}
|
||||
,gdb
|
||||
{$endif GDB}
|
||||
@ -603,7 +602,10 @@ ait_stab_function_name : ;
|
||||
end.
|
||||
{
|
||||
$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
|
||||
|
||||
Revision 1.46 1999/07/22 09:37:33 florian
|
||||
|
||||
@ -37,7 +37,7 @@ implementation
|
||||
cobjects,verbose,globals,
|
||||
symconst,symtable,aasm,types,
|
||||
hcodegen,temp_gen,pass_2,
|
||||
i386base,i386asm,
|
||||
cpubase,cpuasm,
|
||||
cgai386,tgeni386;
|
||||
|
||||
{*****************************************************************************
|
||||
@ -2091,7 +2091,10 @@ implementation
|
||||
end.
|
||||
{
|
||||
$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
|
||||
* some other type/const renamings
|
||||
|
||||
|
||||
@ -44,11 +44,7 @@ implementation
|
||||
gdb,
|
||||
{$endif GDB}
|
||||
hcodegen,temp_gen,pass_2,
|
||||
i386base,i386asm,
|
||||
{$ifdef dummy}
|
||||
end { this overcomes the annoying highlighting problem in my TP IDE,
|
||||
the IDE assumes i386asm start a asm block (FK) }
|
||||
{$endif}
|
||||
cpubase,cpuasm,
|
||||
cgai386,tgeni386,cg386ld;
|
||||
|
||||
{*****************************************************************************
|
||||
@ -1176,7 +1172,10 @@ implementation
|
||||
end.
|
||||
{
|
||||
$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
|
||||
* some other type/const renamings
|
||||
|
||||
|
||||
@ -44,7 +44,7 @@ implementation
|
||||
cobjects,verbose,globtype,globals,systems,
|
||||
symconst,symtable,aasm,types,
|
||||
hcodegen,temp_gen,pass_2,pass_1,
|
||||
i386base,i386asm,
|
||||
cpubase,cpuasm,
|
||||
cgai386,tgeni386;
|
||||
|
||||
|
||||
@ -1463,7 +1463,10 @@ implementation
|
||||
end.
|
||||
{
|
||||
$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
|
||||
* some other type/const renamings
|
||||
|
||||
|
||||
@ -41,7 +41,7 @@ implementation
|
||||
cobjects,verbose,globals,
|
||||
symconst,symtable,aasm,types,
|
||||
hcodegen,temp_gen,pass_2,
|
||||
i386base,i386asm,
|
||||
cpubase,cpuasm,
|
||||
cgai386,tgeni386;
|
||||
|
||||
{*****************************************************************************
|
||||
@ -401,7 +401,10 @@ implementation
|
||||
end.
|
||||
{
|
||||
$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
|
||||
* some other type/const renamings
|
||||
|
||||
|
||||
@ -47,7 +47,7 @@ implementation
|
||||
cobjects,verbose,globals,systems,
|
||||
symconst,symtable,aasm,types,
|
||||
hcodegen,temp_gen,pass_2,
|
||||
i386base,i386asm,
|
||||
cpubase,cpuasm,
|
||||
cgai386,tgeni386;
|
||||
|
||||
{*****************************************************************************
|
||||
@ -772,7 +772,10 @@ do_jmp:
|
||||
end.
|
||||
{
|
||||
$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
|
||||
* some other type/const renamings
|
||||
|
||||
|
||||
@ -36,7 +36,7 @@ implementation
|
||||
cobjects,verbose,globals,files,
|
||||
symconst,symtable,aasm,types,
|
||||
hcodegen,temp_gen,pass_1,pass_2,
|
||||
i386base,i386asm,
|
||||
cpubase,cpuasm,
|
||||
cgai386,tgeni386,cg386cal;
|
||||
|
||||
|
||||
@ -1313,7 +1313,10 @@ implementation
|
||||
end.
|
||||
{
|
||||
$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
|
||||
* some other type/const renamings
|
||||
|
||||
|
||||
@ -39,7 +39,7 @@ implementation
|
||||
cobjects,verbose,globals,
|
||||
symconst,symtable,aasm,types,
|
||||
hcodegen,temp_gen,pass_2,
|
||||
i386base,i386asm,
|
||||
cpubase,cpuasm,
|
||||
cgai386,tgeni386,cg386cnv,cresstr;
|
||||
|
||||
{*****************************************************************************
|
||||
@ -875,7 +875,10 @@ implementation
|
||||
end.
|
||||
{
|
||||
$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
|
||||
* some other type/const renamings
|
||||
|
||||
|
||||
@ -39,7 +39,7 @@ implementation
|
||||
cobjects,verbose,globals,
|
||||
symconst,symtable,aasm,types,
|
||||
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) }
|
||||
@ -930,7 +930,10 @@ implementation
|
||||
end.
|
||||
{
|
||||
$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
|
||||
* some other type/const renamings
|
||||
|
||||
|
||||
@ -47,7 +47,7 @@ implementation
|
||||
cobjects,verbose,globals,
|
||||
symconst,symtable,aasm,types,
|
||||
hcodegen,temp_gen,pass_2,pass_1,
|
||||
i386base,i386asm,
|
||||
cpubase,cpuasm,
|
||||
cgai386,tgeni386;
|
||||
|
||||
{*****************************************************************************
|
||||
@ -849,7 +849,10 @@ implementation
|
||||
end.
|
||||
{
|
||||
$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
|
||||
* some other type/const renamings
|
||||
|
||||
|
||||
@ -38,7 +38,7 @@ implementation
|
||||
cobjects,verbose,globals,
|
||||
symconst,symtable,aasm,types,
|
||||
hcodegen,temp_gen,pass_2,
|
||||
i386base,i386asm,
|
||||
cpubase,cpuasm,
|
||||
cgai386,tgeni386;
|
||||
|
||||
const
|
||||
@ -918,7 +918,10 @@ implementation
|
||||
end.
|
||||
{
|
||||
$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
|
||||
* some other type/const renamings
|
||||
|
||||
|
||||
@ -26,10 +26,7 @@ unit cgai386;
|
||||
|
||||
uses
|
||||
cobjects,tree,
|
||||
i386base,i386asm,
|
||||
{$ifdef dummy}
|
||||
end { to get correct syntax highlighting }
|
||||
{$endif dummy}
|
||||
cpubase,cpuasm,
|
||||
symconst,symtable,aasm,win_targ;
|
||||
|
||||
{$define TESTGETTEMP to store const that
|
||||
@ -3140,7 +3137,10 @@ procedure mov_reg_to_dest(p : ptree; s : topsize; reg : tregister);
|
||||
end.
|
||||
{
|
||||
$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
|
||||
* some other type/const renamings
|
||||
|
||||
|
||||
1633
compiler/cpuasm.pas
Normal file
1633
compiler/cpuasm.pas
Normal file
File diff suppressed because it is too large
Load Diff
1091
compiler/cpubase.pas
Normal file
1091
compiler/cpubase.pas
Normal file
File diff suppressed because it is too large
Load Diff
@ -32,9 +32,7 @@ Procedure CSE(AsmL: PAasmOutput; First, Last: Pai);
|
||||
Implementation
|
||||
|
||||
Uses
|
||||
CObjects, verbose, hcodegen, globals
|
||||
,i386base,i386asm
|
||||
,DAOpt386;
|
||||
CObjects, verbose, hcodegen, globals,cpubase,cpuasm,DAOpt386;
|
||||
|
||||
{
|
||||
Function PaiInSequence(P: Pai; Const Seq: TContent): Boolean;
|
||||
@ -555,7 +553,10 @@ End.
|
||||
|
||||
{
|
||||
$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
|
||||
checked once completely and then several times partially)
|
||||
|
||||
|
||||
@ -33,12 +33,9 @@ Interface
|
||||
Uses
|
||||
GlobType,
|
||||
CObjects,Aasm,
|
||||
i386base,i386asm
|
||||
;
|
||||
|
||||
cpubase,cpuasm;
|
||||
|
||||
Type
|
||||
|
||||
TRegArray = Array[R_EAX..R_BL] of TRegister;
|
||||
TRegSet = Set of R_EAX..R_BL;
|
||||
TRegInfo = Record
|
||||
@ -2238,7 +2235,10 @@ End.
|
||||
|
||||
{
|
||||
$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
|
||||
|
||||
Revision 1.51 1999/08/02 12:12:53 jonas
|
||||
|
||||
@ -25,10 +25,7 @@ unit gdb;
|
||||
interface
|
||||
|
||||
uses
|
||||
globtype,
|
||||
{$ifdef i386}
|
||||
i386base,
|
||||
{$endif i386}
|
||||
globtype,cpubase,
|
||||
strings,cobjects,globals,aasm;
|
||||
|
||||
{stab constants }
|
||||
@ -257,7 +254,10 @@ end.
|
||||
|
||||
{
|
||||
$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
|
||||
* plabel -> pasmlabel
|
||||
* -a switches to source writing automaticly
|
||||
|
||||
@ -27,17 +27,7 @@ unit hcodegen;
|
||||
uses
|
||||
cobjects,
|
||||
tokens,verbose,
|
||||
aasm,symtable
|
||||
{$ifdef i386}
|
||||
,i386base
|
||||
{$endif}
|
||||
{$ifdef m68k}
|
||||
,m68k
|
||||
{$endif}
|
||||
{$ifdef alpha}
|
||||
,cpubase
|
||||
{$endif}
|
||||
;
|
||||
aasm,symtable,cpubase;
|
||||
|
||||
const
|
||||
pi_uses_asm = $1; { set, if the procedure uses asm }
|
||||
@ -301,7 +291,10 @@ end.
|
||||
|
||||
{
|
||||
$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
|
||||
|
||||
Revision 1.35 1999/08/01 23:04:49 michael
|
||||
|
||||
@ -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
|
||||
goto failed
|
||||
:success
|
||||
|
||||
@ -25,9 +25,7 @@ unit cgcpu;
|
||||
interface
|
||||
|
||||
uses
|
||||
cgobj,aasm
|
||||
{$i cpuunit.inc}
|
||||
;
|
||||
cgobj,aasm,cpuasm,cpubase;
|
||||
|
||||
type
|
||||
pcgalpha = ^tcgalpha;
|
||||
@ -124,7 +122,10 @@ unit cgcpu;
|
||||
end.
|
||||
{
|
||||
$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
|
||||
|
||||
Revision 1.2 1999/08/01 23:19:59 florian
|
||||
|
||||
@ -25,9 +25,7 @@ unit cgbase;
|
||||
interface
|
||||
|
||||
uses
|
||||
globtype,cobjects,aasm,symtable,verbose,tree
|
||||
{$I cpuunit.inc}
|
||||
;
|
||||
globtype,cobjects,aasm,symtable,verbose,tree,cpuasm,cpubase;
|
||||
|
||||
const
|
||||
pi_uses_asm = $1; { set, if the procedure uses asm }
|
||||
@ -395,7 +393,10 @@ unit cgbase;
|
||||
end.
|
||||
{
|
||||
$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
|
||||
|
||||
Revision 1.4 1999/01/23 23:29:45 florian
|
||||
|
||||
@ -25,9 +25,7 @@ unit cgobj;
|
||||
interface
|
||||
|
||||
uses
|
||||
cobjects,aasm,symtable
|
||||
{$I cpuunit.inc}
|
||||
;
|
||||
cobjects,aasm,symtable,symconst,cpuasm,cpubase;
|
||||
|
||||
type
|
||||
qword = comp;
|
||||
@ -308,7 +306,7 @@ unit cgobj;
|
||||
list^.insert(new(pai_align,init(4)));
|
||||
end;
|
||||
{ save registers on cdecl }
|
||||
if ((aktprocsym^.definition^.options and pocdecl)<>0) then
|
||||
if (po_savestdregs in aktprocsym^.definition^.procoptions) then
|
||||
begin
|
||||
for r:=firstreg to lastreg do
|
||||
begin
|
||||
@ -330,20 +328,20 @@ unit cgobj;
|
||||
begin
|
||||
CGMessage(cg_d_stackframe_omited);
|
||||
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
|
||||
else
|
||||
parasize:=aktprocsym^.definition^.parast^.datasize+procinfo.call_offset-pointersize;
|
||||
end
|
||||
else
|
||||
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
|
||||
else
|
||||
parasize:=aktprocsym^.definition^.parast^.datasize+procinfo.call_offset-pointersize*2;
|
||||
nostackframe:=false;
|
||||
|
||||
if (aktprocsym^.definition^.options and pointerrupt)<>0 then
|
||||
if (po_interrupt in aktprocsym^.definition^.procoptions) then
|
||||
g_interrupt_stackframe_entry(list);
|
||||
|
||||
g_stackframe_entry(list,stackframe);
|
||||
@ -355,7 +353,7 @@ unit cgobj;
|
||||
|
||||
if cs_profile in aktmoduleswitches then
|
||||
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
|
||||
|
||||
{ needs the target a console flags ? }
|
||||
@ -417,7 +415,7 @@ unit cgobj;
|
||||
end;
|
||||
|
||||
{ generate copies of call by value parameters }
|
||||
if (aktprocsym^.definition^.options and poassembler=0) then
|
||||
if (po_assembler in aktprocsym^.definition^.procoptions) then
|
||||
begin
|
||||
{$ifndef VALUEPARA}
|
||||
aktprocsym^.definition^.parast^.foreach({$ifdef FPC}@{$endif FPC}_copyopenarrays);
|
||||
@ -676,7 +674,10 @@ unit cgobj;
|
||||
end.
|
||||
{
|
||||
$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
|
||||
|
||||
Revision 1.8 1999/08/02 17:14:07 florian
|
||||
|
||||
@ -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
|
||||
|
||||
}
|
||||
@ -46,9 +46,8 @@ unit nmem;
|
||||
implementation
|
||||
|
||||
uses
|
||||
cobjects,aasm,cgbase,cgobj,types,verbose,tgobj,tgcpu
|
||||
{$I cpuunit.inc}
|
||||
;
|
||||
cobjects,aasm,cgbase,cgobj,types,verbose,tgobj,tgcpu,symconst,
|
||||
cpubase,cpuasm;
|
||||
|
||||
{****************************************************************************
|
||||
TLOADNODE
|
||||
@ -111,7 +110,7 @@ unit nmem;
|
||||
begin
|
||||
hregister:=R_NO;
|
||||
{ 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
|
||||
location.reference.symbol:=newasmsymbol(symtableentry^.mangledname);
|
||||
end
|
||||
@ -272,7 +271,10 @@ unit nmem;
|
||||
end.
|
||||
{
|
||||
$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
|
||||
|
||||
Revision 1.3 1999/08/02 17:14:08 florian
|
||||
|
||||
@ -40,12 +40,11 @@ implementation
|
||||
globtype,systems,
|
||||
cobjects,verbose,globals,
|
||||
aasm,symtable,types,
|
||||
cgbase
|
||||
cgbase,cpuasm,cpubase
|
||||
{ not yet converted:
|
||||
htypechk,tcadd,tccal,tccnv,tccon,tcflw,
|
||||
tcinl,tcld,tcmat,tcmem,tcset
|
||||
}
|
||||
{$I cpuunit.inc}
|
||||
;
|
||||
|
||||
{*****************************************************************************
|
||||
@ -222,7 +221,10 @@ implementation
|
||||
end.
|
||||
{
|
||||
$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
|
||||
|
||||
Revision 1.3 1999/01/23 23:29:48 florian
|
||||
|
||||
@ -43,12 +43,11 @@ implementation
|
||||
uses
|
||||
globtype,systems,
|
||||
cobjects,verbose,comphook,globals,files,
|
||||
symtable,types,aasm,scanner,
|
||||
pass_1,tgobj,cgbase,cgobj,tgcpu
|
||||
symconst,symtable,types,aasm,scanner,
|
||||
pass_1,tgobj,cgbase,cgobj,tgcpu,cpuasm,cpubase
|
||||
{$ifdef GDB}
|
||||
,gdb
|
||||
{$endif}
|
||||
{$i cpuunit.inc}
|
||||
;
|
||||
type
|
||||
perrornode = ^terrornode;
|
||||
@ -181,7 +180,7 @@ implementation
|
||||
var
|
||||
i,j,k : longint;
|
||||
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
|
||||
{ walk through all momentary register variables }
|
||||
for i:=1 to maxvarregs do
|
||||
@ -261,10 +260,10 @@ implementation
|
||||
}
|
||||
if assigned(aktprocsym) then
|
||||
begin
|
||||
if (aktprocsym^.definition^.options and
|
||||
(poconstructor+podestructor{+poinline}+pointerrupt)=0) and
|
||||
((procinfo.flags and pi_do_call)=0) and
|
||||
(lexlevel>=normal_function_level) then
|
||||
if not(aktprocsym^.definition^.proctypeoption in [potype_constructor,potype_destructor]) and
|
||||
not(po_interrupt in aktprocsym^.definition^.procoptions) and
|
||||
((procinfo.flags and pi_do_call)=0) and
|
||||
(lexlevel>=normal_function_level) then
|
||||
begin
|
||||
{ use ESP as frame pointer }
|
||||
procinfo.framepointer:=stack_pointer;
|
||||
@ -408,7 +407,7 @@ implementation
|
||||
end;
|
||||
end;
|
||||
if assigned(aktprocsym) and
|
||||
((aktprocsym^.definition^.options and poinline)<>0) then
|
||||
(pocall_inline in aktprocsym^.definition^.proccalloptions) then
|
||||
make_const_global:=true;
|
||||
do_secondpass(p);
|
||||
|
||||
@ -425,7 +424,10 @@ implementation
|
||||
end.
|
||||
{
|
||||
$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
|
||||
|
||||
Revision 1.3 1999/08/03 00:30:36 florian
|
||||
|
||||
@ -29,9 +29,7 @@ unit tree;
|
||||
interface
|
||||
|
||||
uses
|
||||
globtype,cobjects,symtable,aasm
|
||||
{$I cpuunit.inc}
|
||||
;
|
||||
symconst,globtype,cobjects,symtable,aasm,cpuasm,cpubase;
|
||||
|
||||
type
|
||||
pconstset = ^tconstset;
|
||||
@ -1902,7 +1900,10 @@ unit tree;
|
||||
end.
|
||||
{
|
||||
$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
|
||||
|
||||
Revision 1.9 1999/08/01 23:19:58 florian
|
||||
|
||||
@ -34,7 +34,7 @@ unit og386;
|
||||
dos,
|
||||
{$endif Delphi}
|
||||
owbase,owar,
|
||||
systems,i386base,aasm;
|
||||
systems,cpubase,aasm;
|
||||
|
||||
type
|
||||
tsecsize = array[tsection] of longint;
|
||||
@ -278,7 +278,10 @@ unit og386;
|
||||
end.
|
||||
{
|
||||
$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
|
||||
+ fixed problem with large stack allocations on win32
|
||||
|
||||
|
||||
@ -69,8 +69,7 @@ unit og386cff;
|
||||
|
||||
uses
|
||||
cobjects,
|
||||
systems,i386base,aasm,
|
||||
og386;
|
||||
systems,cpubase,aasm,og386;
|
||||
|
||||
type
|
||||
preloc = ^treloc;
|
||||
@ -946,7 +945,10 @@ unit og386cff;
|
||||
end.
|
||||
{
|
||||
$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
|
||||
|
||||
Revision 1.8 1999/06/03 16:39:09 pierre
|
||||
|
||||
@ -28,9 +28,7 @@ unit og386dbg;
|
||||
|
||||
interface
|
||||
uses
|
||||
systems,i386base,
|
||||
aasm,
|
||||
og386;
|
||||
systems,aasm,cpubase,og386;
|
||||
|
||||
type
|
||||
pdbgoutput = ^tdbgoutput;
|
||||
@ -182,7 +180,10 @@ unit og386dbg;
|
||||
end.
|
||||
{
|
||||
$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,
|
||||
static (.o) is now always created also when smartlinking is used
|
||||
|
||||
|
||||
@ -68,8 +68,7 @@ unit og386elf;
|
||||
interface
|
||||
|
||||
uses
|
||||
cobjects,
|
||||
og386,i386base,aasm;
|
||||
cobjects,og386,cpubase,aasm;
|
||||
|
||||
type
|
||||
preloc = ^treloc;
|
||||
@ -839,7 +838,10 @@ unit og386elf;
|
||||
end.
|
||||
{
|
||||
$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
|
||||
* old asm moved to oldasm/
|
||||
|
||||
|
||||
@ -41,13 +41,12 @@ implementation
|
||||
aasm,symtable,types,
|
||||
hcodegen,htypechk,
|
||||
tcadd,tccal,tccnv,tccon,tcflw,
|
||||
tcinl,tcld,tcmat,tcmem,tcset
|
||||
tcinl,tcld,tcmat,tcmem,tcset,cpubase,cpuasm
|
||||
{$ifdef i386}
|
||||
,i386base,i386asm
|
||||
,tgeni386
|
||||
{$endif}
|
||||
{$ifdef m68k}
|
||||
,m68k,tgen68k
|
||||
,tgen68k
|
||||
{$endif}
|
||||
;
|
||||
|
||||
@ -368,7 +367,10 @@ implementation
|
||||
end.
|
||||
{
|
||||
$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
|
||||
* plabel -> pasmlabel
|
||||
* -a switches to source writing automaticly
|
||||
|
||||
@ -44,18 +44,17 @@ implementation
|
||||
globtype,systems,
|
||||
cobjects,comphook,verbose,globals,files,
|
||||
symconst,symtable,types,aasm,scanner,
|
||||
pass_1,hcodegen,temp_gen
|
||||
pass_1,hcodegen,temp_gen,cpubase,cpuasm
|
||||
{$ifdef GDB}
|
||||
,gdb
|
||||
{$endif}
|
||||
{$ifdef i386}
|
||||
,i386base,i386asm
|
||||
,tgeni386,cgai386
|
||||
,cg386con,cg386mat,cg386cnv,cg386set,cg386add
|
||||
,cg386mem,cg386cal,cg386ld,cg386flw,cg386inl
|
||||
{$endif}
|
||||
{$ifdef m68k}
|
||||
,m68k,tgen68k,cga68k
|
||||
,tgen68k,cga68k
|
||||
,cg68kcon,cg68kmat,cg68kcnv,cg68kset,cg68kadd
|
||||
,cg68kmem,cg68kcal,cg68kld,cg68kflw,cg68kinl
|
||||
{$endif}
|
||||
@ -539,7 +538,10 @@ implementation
|
||||
end.
|
||||
{
|
||||
$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
|
||||
* some other type/const renamings
|
||||
|
||||
|
||||
@ -58,7 +58,8 @@ unit pdecl;
|
||||
uses
|
||||
cobjects,scanner,
|
||||
symconst,aasm,tree,pass_1,strings,
|
||||
files,types,verbose,systems,import
|
||||
files,types,verbose,systems,import,
|
||||
cpubase
|
||||
{$ifndef newcg}
|
||||
,tccnv
|
||||
{$endif newcg}
|
||||
@ -68,12 +69,6 @@ unit pdecl;
|
||||
{ parser specific stuff }
|
||||
,pbase,ptconst,pexpr,psub,pexports
|
||||
{ processor specific stuff }
|
||||
{$ifdef i386}
|
||||
,i386base
|
||||
{$endif}
|
||||
{$ifdef m68k}
|
||||
,m68k
|
||||
{$endif}
|
||||
{ codegen }
|
||||
,hcodegen,hcgdata
|
||||
;
|
||||
@ -2390,7 +2385,10 @@ unit pdecl;
|
||||
end.
|
||||
{
|
||||
$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
|
||||
* some other type/const renamings
|
||||
|
||||
|
||||
@ -53,20 +53,11 @@ unit pexpr;
|
||||
{$ifndef newcg}
|
||||
tccal,
|
||||
{$endif newcg}
|
||||
pass_1
|
||||
pass_1,
|
||||
{ parser specific stuff }
|
||||
,pbase,pdecl
|
||||
pbase,pdecl,
|
||||
{ processor specific stuff }
|
||||
{$ifdef i386}
|
||||
,i386base
|
||||
{$endif}
|
||||
{$ifdef m68k}
|
||||
,m68k
|
||||
{$endif}
|
||||
{$ifdef alpha}
|
||||
,cpubase,cpuinfo
|
||||
{$endif}
|
||||
;
|
||||
cpubase,cpuinfo;
|
||||
|
||||
const
|
||||
allow_type : boolean = true;
|
||||
@ -2070,7 +2061,10 @@ unit pexpr;
|
||||
end.
|
||||
{
|
||||
$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
|
||||
* some other type/const renamings
|
||||
|
||||
|
||||
@ -37,19 +37,8 @@ unit pmodules;
|
||||
cobjects,comphook,globals,verbose,files,
|
||||
symconst,symtable,aasm,hcodegen,
|
||||
link,assemble,import,export,gendef,ppu,comprsrc,
|
||||
cresstr
|
||||
{$ifdef i386}
|
||||
,i386base,i386asm
|
||||
{$endif}
|
||||
{$ifdef m68k}
|
||||
,m68k
|
||||
{$endif}
|
||||
{$ifdef newcg}
|
||||
{$ifndef i386}
|
||||
,cpubase
|
||||
{$endif}
|
||||
{$endif newcg}
|
||||
,scanner,pbase,psystem,pdecl,psub,parser;
|
||||
cresstr,cpubase,cpuasm,
|
||||
scanner,pbase,psystem,pdecl,psub,parser;
|
||||
|
||||
|
||||
procedure create_objectfile;
|
||||
@ -1364,7 +1353,10 @@ unit pmodules;
|
||||
end.
|
||||
{
|
||||
$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
|
||||
* some other type/const renamings
|
||||
|
||||
|
||||
@ -34,8 +34,7 @@ Implementation
|
||||
Uses
|
||||
globtype,systems,
|
||||
globals,verbose,hcodegen,
|
||||
i386base,i386asm,
|
||||
DAOpt386;
|
||||
cpubase,cpuasm,DAOpt386;
|
||||
|
||||
Function RegUsedAfterInstruction(Reg: TRegister; p: Pai; Var UsedRegs: TRegSet): Boolean;
|
||||
Begin
|
||||
@ -1525,7 +1524,10 @@ End.
|
||||
|
||||
{
|
||||
$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
|
||||
|
||||
Revision 1.58 1999/07/30 18:17:55 jonas
|
||||
|
||||
@ -168,7 +168,7 @@ uses
|
||||
{$endif gdb}
|
||||
{$ifdef i386}
|
||||
{$O opts386}
|
||||
{$O i386base}
|
||||
{$O cpubase}
|
||||
{$O cgai386}
|
||||
{$O tgeni386}
|
||||
{$O cg386add}
|
||||
@ -271,7 +271,10 @@ begin
|
||||
end.
|
||||
{
|
||||
$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
|
||||
|
||||
Revision 1.43 1999/06/02 22:25:44 pierre
|
||||
|
||||
@ -42,9 +42,8 @@ unit pstatmnt;
|
||||
globtype,systems,tokens,
|
||||
strings,cobjects,globals,files,verbose,
|
||||
symconst,symtable,aasm,pass_1,types,scanner,hcodegen,ppu
|
||||
,pbase,pexpr,pdecl
|
||||
,pbase,pexpr,pdecl,cpubase,cpuasm
|
||||
{$ifdef i386}
|
||||
,i386base,i386asm
|
||||
,tgeni386
|
||||
{$ifndef NoRa386Int}
|
||||
,ra386int
|
||||
@ -63,8 +62,7 @@ unit pstatmnt;
|
||||
{$endif NoRa68kMot}
|
||||
{$endif m68k}
|
||||
{$ifdef alpha}
|
||||
,cpubase,cpuasm
|
||||
,tgeni386
|
||||
,tgeni386 { this is a dummy!! }
|
||||
{$endif alpha}
|
||||
;
|
||||
|
||||
@ -1290,7 +1288,10 @@ unit pstatmnt;
|
||||
end.
|
||||
{
|
||||
$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
|
||||
* some other type/const renamings
|
||||
|
||||
|
||||
@ -52,7 +52,7 @@ uses
|
||||
strings,globals,verbose,files,
|
||||
scanner,aasm,tree,types,
|
||||
import,gendef,
|
||||
hcodegen,temp_gen,pass_1
|
||||
hcodegen,temp_gen,pass_1,cpubase,cpuasm
|
||||
{$ifndef NOPASS2}
|
||||
,pass_2
|
||||
{$endif}
|
||||
@ -60,10 +60,6 @@ uses
|
||||
,gdb
|
||||
{$endif GDB}
|
||||
{$ifdef i386}
|
||||
,i386base,i386asm
|
||||
{$ifdef dummy}
|
||||
end { avoid the stupid highlighting of the TP IDE }
|
||||
{$endif dummy}
|
||||
,tgeni386
|
||||
{$ifndef newcg}
|
||||
,cgai386
|
||||
@ -73,15 +69,12 @@ uses
|
||||
{$endif}
|
||||
{$endif}
|
||||
{$ifdef m68k}
|
||||
,m68k,tgen68k,cga68k
|
||||
,tgen68k,cga68k
|
||||
{$endif}
|
||||
{ parser specific stuff }
|
||||
,pbase,pdecl,pexpr,pstatmnt
|
||||
{$ifdef newcg}
|
||||
,tgcpu,convtree,cgobj,tgeni386 { for the new code generator tgeni386 is only a dummy }
|
||||
{$ifndef i386}
|
||||
,cpubase
|
||||
{$endif i386}
|
||||
{$endif newcg}
|
||||
;
|
||||
|
||||
@ -2040,7 +2033,10 @@ end.
|
||||
|
||||
{
|
||||
$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
|
||||
* some other type/const renamings
|
||||
|
||||
|
||||
@ -37,19 +37,13 @@ unit ptconst;
|
||||
globtype,systems,tokens,
|
||||
cobjects,globals,scanner,
|
||||
symconst,aasm,types,verbose,
|
||||
tree,pass_1
|
||||
tree,pass_1,
|
||||
{ parser specific stuff }
|
||||
,pbase,pexpr
|
||||
pbase,pexpr,
|
||||
{ processor specific stuff }
|
||||
{$ifdef i386}
|
||||
,i386base
|
||||
{$endif}
|
||||
{$ifdef m68k}
|
||||
,m68k
|
||||
{$endif}
|
||||
cpubase,
|
||||
{ codegen }
|
||||
,hcodegen,hcgdata
|
||||
;
|
||||
hcodegen,hcgdata;
|
||||
|
||||
|
||||
{ this procedure reads typed constants }
|
||||
@ -707,7 +701,10 @@ unit ptconst;
|
||||
end.
|
||||
{
|
||||
$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
|
||||
* some other type/const renamings
|
||||
|
||||
|
||||
@ -24,9 +24,7 @@ Unit Ra386;
|
||||
interface
|
||||
|
||||
uses
|
||||
aasm,
|
||||
i386base,
|
||||
RAUtils;
|
||||
aasm,cpubase,RAUtils;
|
||||
|
||||
{ Parser helpers }
|
||||
function is_prefix(t:tasmop):boolean;
|
||||
@ -54,8 +52,7 @@ type
|
||||
implementation
|
||||
|
||||
uses
|
||||
globtype,systems,globals,verbose,
|
||||
i386asm;
|
||||
globtype,systems,globals,verbose,cpuasm;
|
||||
|
||||
|
||||
{*****************************************************************************
|
||||
@ -341,7 +338,10 @@ end;
|
||||
end.
|
||||
{
|
||||
$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
|
||||
* plabel -> pasmlabel
|
||||
* -a switches to source writing automaticly
|
||||
|
||||
@ -37,9 +37,8 @@ Implementation
|
||||
Uses
|
||||
globtype,
|
||||
strings,cobjects,systems,verbose,globals,
|
||||
files,aasm,types,symconst,symtable,scanner,hcodegen
|
||||
,i386base
|
||||
,rautils,ra386;
|
||||
files,aasm,types,symconst,symtable,scanner,hcodegen,
|
||||
cpubase,rautils,ra386;
|
||||
|
||||
type
|
||||
tasmtoken = (
|
||||
@ -1955,7 +1954,10 @@ begin
|
||||
end.
|
||||
{
|
||||
$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
|
||||
* some other type/const renamings
|
||||
|
||||
|
||||
@ -32,9 +32,8 @@ unit Ra386dir;
|
||||
implementation
|
||||
|
||||
uses
|
||||
files,hcodegen,globals,scanner,aasm
|
||||
,i386base,i386asm
|
||||
,cobjects,symconst,symtable,types,verbose,
|
||||
files,hcodegen,globals,scanner,aasm,cpubase,cpuasm,
|
||||
cobjects,symconst,symtable,types,verbose,
|
||||
rautils,ra386;
|
||||
|
||||
function assemble : ptree;
|
||||
@ -291,7 +290,10 @@ unit Ra386dir;
|
||||
end.
|
||||
{
|
||||
$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
|
||||
* some other type/const renamings
|
||||
|
||||
|
||||
@ -38,9 +38,8 @@ Implementation
|
||||
Uses
|
||||
globtype,
|
||||
strings,cobjects,systems,verbose,globals,
|
||||
files,aasm,types,scanner,hcodegen,symtable
|
||||
,i386base
|
||||
,rautils,ra386;
|
||||
files,aasm,types,scanner,hcodegen,symtable,cpubase,
|
||||
rautils,ra386;
|
||||
|
||||
|
||||
type
|
||||
@ -1670,7 +1669,10 @@ begin
|
||||
end.
|
||||
{
|
||||
$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
|
||||
* string constants are now handle correctly and also allowed in
|
||||
constant expressions
|
||||
|
||||
@ -27,13 +27,7 @@ Uses
|
||||
strings,
|
||||
cobjects,
|
||||
globtype,systems,verbose,globals,files,
|
||||
symconst,symtable,aasm,hcodegen
|
||||
{$ifdef i386}
|
||||
,i386base,i386asm
|
||||
{$endif}
|
||||
{$ifdef m68k}
|
||||
,m68k
|
||||
{$endif}
|
||||
symconst,symtable,aasm,hcodegen,cpubase,cpuasm
|
||||
;
|
||||
|
||||
Const
|
||||
@ -1384,7 +1378,10 @@ end;
|
||||
end.
|
||||
{
|
||||
$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
|
||||
* some other type/const renamings
|
||||
|
||||
|
||||
@ -36,16 +36,8 @@ unit symtable;
|
||||
globtype,globals,tokens,systems,verbose,
|
||||
symconst,
|
||||
aasm
|
||||
{$ifdef i386}
|
||||
,i386base
|
||||
{$endif}
|
||||
{$ifdef m68k}
|
||||
,m68k
|
||||
{$endif}
|
||||
{$ifdef alpha}
|
||||
,cpubase
|
||||
,cpuinfo
|
||||
{$endif}
|
||||
{$ifdef GDB}
|
||||
,gdb
|
||||
{$endif}
|
||||
@ -2343,7 +2335,10 @@ implementation
|
||||
end.
|
||||
{
|
||||
$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
|
||||
* some other type/const renamings
|
||||
|
||||
|
||||
@ -63,7 +63,7 @@ unit systems;
|
||||
);
|
||||
|
||||
ttargetflags = (tf_none,
|
||||
tf_supports_stack_checking,tf_need_export
|
||||
tf_supports_stack_checking,tf_need_export,tf_needs_isconsole
|
||||
);
|
||||
|
||||
const
|
||||
@ -1626,7 +1626,10 @@ begin
|
||||
end.
|
||||
{
|
||||
$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
|
||||
* some other type/const renamings
|
||||
|
||||
|
||||
@ -35,14 +35,8 @@ implementation
|
||||
globtype,systems,tokens,
|
||||
cobjects,verbose,globals,
|
||||
symconst,symtable,aasm,types,
|
||||
hcodegen,htypechk,pass_1
|
||||
{$ifdef i386}
|
||||
,i386base
|
||||
{$endif}
|
||||
{$ifdef m68k}
|
||||
,m68k
|
||||
{$endif}
|
||||
,tccnv
|
||||
hcodegen,htypechk,pass_1,
|
||||
cpubase,tccnv
|
||||
;
|
||||
|
||||
{*****************************************************************************
|
||||
@ -1117,7 +1111,10 @@ implementation
|
||||
end.
|
||||
{
|
||||
$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
|
||||
* some other type/const renamings
|
||||
|
||||
|
||||
@ -40,12 +40,9 @@ implementation
|
||||
globtype,systems,
|
||||
cobjects,verbose,globals,
|
||||
symconst,aasm,types,
|
||||
hcodegen,htypechk,pass_1
|
||||
hcodegen,htypechk,pass_1,cpubase
|
||||
{$ifdef i386}
|
||||
,i386base,tgeni386
|
||||
{$endif}
|
||||
{$ifdef m68k}
|
||||
,m68k,tgen68k
|
||||
,tgeni386
|
||||
{$endif}
|
||||
;
|
||||
|
||||
@ -1195,7 +1192,10 @@ implementation
|
||||
end.
|
||||
{
|
||||
$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
|
||||
* some other type/const renamings
|
||||
|
||||
|
||||
@ -42,14 +42,7 @@ implementation
|
||||
globtype,systems,tokens,
|
||||
cobjects,verbose,globals,
|
||||
symconst,symtable,aasm,types,
|
||||
hcodegen,htypechk,pass_1
|
||||
{$ifdef i386}
|
||||
,i386base
|
||||
{$endif}
|
||||
{$ifdef m68k}
|
||||
,m68k
|
||||
{$endif}
|
||||
;
|
||||
hcodegen,htypechk,pass_1,cpubase;
|
||||
|
||||
|
||||
{*****************************************************************************
|
||||
@ -926,7 +919,10 @@ implementation
|
||||
end.
|
||||
{
|
||||
$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
|
||||
* some other type/const renamings
|
||||
|
||||
|
||||
@ -39,14 +39,7 @@ implementation
|
||||
uses
|
||||
cobjects,verbose,globals,systems,
|
||||
symconst,symtable,aasm,types,
|
||||
hcodegen,pass_1
|
||||
{$ifdef i386}
|
||||
,i386base
|
||||
{$endif}
|
||||
{$ifdef m68k}
|
||||
,m68k
|
||||
{$endif}
|
||||
;
|
||||
hcodegen,pass_1,cpubase;
|
||||
|
||||
{*****************************************************************************
|
||||
FirstRealConst
|
||||
@ -126,7 +119,10 @@ implementation
|
||||
end.
|
||||
{
|
||||
$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
|
||||
* some other type/const renamings
|
||||
|
||||
|
||||
@ -45,13 +45,9 @@ implementation
|
||||
globtype,systems,
|
||||
cobjects,verbose,globals,
|
||||
symtable,aasm,types,
|
||||
hcodegen,htypechk,temp_gen,pass_1
|
||||
hcodegen,htypechk,temp_gen,pass_1,cpubase
|
||||
{$ifdef i386}
|
||||
,i386base
|
||||
,tgeni386
|
||||
{$endif}
|
||||
{$ifdef m68k}
|
||||
,m68k,tgen68k
|
||||
{$endif}
|
||||
;
|
||||
|
||||
@ -492,7 +488,10 @@ implementation
|
||||
end.
|
||||
{
|
||||
$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
|
||||
* some other type/const renamings
|
||||
|
||||
|
||||
@ -36,13 +36,9 @@ implementation
|
||||
globtype,
|
||||
symconst,symtable,aasm,types,
|
||||
hcodegen,htypechk,pass_1,
|
||||
tccal
|
||||
tccal,cpubase
|
||||
{$ifdef i386}
|
||||
,i386base
|
||||
,tgeni386
|
||||
{$endif}
|
||||
{$ifdef m68k}
|
||||
,m68k,tgen68k
|
||||
{$endif}
|
||||
;
|
||||
|
||||
@ -1123,7 +1119,10 @@ implementation
|
||||
end.
|
||||
{
|
||||
$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
|
||||
* some other type/const renamings
|
||||
|
||||
|
||||
@ -40,13 +40,9 @@ implementation
|
||||
cobjects,verbose,globals,systems,
|
||||
symconst,symtable,aasm,types,
|
||||
hcodegen,htypechk,pass_1,
|
||||
tccnv
|
||||
tccnv,cpubase
|
||||
{$ifdef i386}
|
||||
,i386base
|
||||
,tgeni386
|
||||
{$endif}
|
||||
{$ifdef m68k}
|
||||
,m68k,tgen68k
|
||||
{$endif}
|
||||
;
|
||||
|
||||
@ -481,7 +477,10 @@ implementation
|
||||
end.
|
||||
{
|
||||
$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
|
||||
* some other type/const renamings
|
||||
|
||||
|
||||
@ -38,14 +38,7 @@ implementation
|
||||
globtype,systems,tokens,
|
||||
cobjects,verbose,globals,
|
||||
symconst,symtable,aasm,types,
|
||||
hcodegen,htypechk,pass_1
|
||||
{$ifdef i386}
|
||||
,i386base
|
||||
{$endif}
|
||||
{$ifdef m68k}
|
||||
,m68k
|
||||
{$endif}
|
||||
;
|
||||
hcodegen,htypechk,pass_1,cpubase;
|
||||
|
||||
{*****************************************************************************
|
||||
FirstModDiv
|
||||
@ -413,7 +406,10 @@ implementation
|
||||
end.
|
||||
{
|
||||
$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
|
||||
* some other type/const renamings
|
||||
|
||||
|
||||
@ -46,14 +46,7 @@ implementation
|
||||
globtype,systems,
|
||||
cobjects,verbose,globals,
|
||||
symconst,symtable,aasm,types,
|
||||
hcodegen,htypechk,pass_1
|
||||
{$ifdef i386}
|
||||
,i386base
|
||||
{$endif}
|
||||
{$ifdef m68k}
|
||||
,m68k
|
||||
{$endif}
|
||||
;
|
||||
hcodegen,htypechk,pass_1,cpubase;
|
||||
|
||||
{*****************************************************************************
|
||||
FirstLoadVMT
|
||||
@ -596,7 +589,10 @@ implementation
|
||||
end.
|
||||
{
|
||||
$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
|
||||
* some other type/const renamings
|
||||
|
||||
|
||||
@ -39,13 +39,12 @@ implementation
|
||||
cobjects,verbose,globals,
|
||||
symconst,symtable,aasm,types,
|
||||
hcodegen,htypechk,pass_1,
|
||||
tccnv
|
||||
tccnv,cpubase
|
||||
{$ifdef i386}
|
||||
,i386base
|
||||
,tgeni386
|
||||
{$endif}
|
||||
{$ifdef m68k}
|
||||
,m68k,tgen68k
|
||||
,tgen68k
|
||||
{$endif}
|
||||
;
|
||||
|
||||
@ -255,7 +254,10 @@ implementation
|
||||
end.
|
||||
{
|
||||
$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
|
||||
* some other type/const renamings
|
||||
|
||||
|
||||
@ -25,17 +25,7 @@ unit temp_gen;
|
||||
interface
|
||||
|
||||
uses
|
||||
{$ifdef i386}
|
||||
i386base,i386asm,
|
||||
{$endif i386}
|
||||
{$ifdef m68k}
|
||||
m68k,
|
||||
{$endif m68k}
|
||||
{$ifdef alpha}
|
||||
cpubase,
|
||||
cpuinfo,
|
||||
{$endif m68k}
|
||||
cobjects,globals,tree,hcodegen,verbose,files,aasm;
|
||||
cpubase,cpuinfo,cobjects,globals,tree,hcodegen,verbose,files,aasm;
|
||||
|
||||
type
|
||||
ttemptype = (tt_none,tt_free,tt_normal,tt_persistant,tt_ansistring,tt_freeansistring,tt_widestring,tt_freewidestring);
|
||||
@ -530,7 +520,10 @@ begin
|
||||
end.
|
||||
{
|
||||
$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
|
||||
|
||||
Revision 1.32 1999/06/09 23:00:13 peter
|
||||
|
||||
@ -25,13 +25,8 @@ unit tgeni386;
|
||||
interface
|
||||
|
||||
uses
|
||||
cobjects,globals,tree,hcodegen,verbose,files,aasm
|
||||
{$ifdef i386}
|
||||
,i386base,i386asm
|
||||
{$ifdef dummy}
|
||||
end
|
||||
{$endif}
|
||||
{$endif}
|
||||
cobjects,globals,tree,hcodegen,verbose,files,aasm,
|
||||
cpubase,cpuasm
|
||||
;
|
||||
|
||||
type
|
||||
@ -472,7 +467,10 @@ begin
|
||||
end.
|
||||
{
|
||||
$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
|
||||
|
||||
Revision 1.27 1999/06/09 23:22:39 peter
|
||||
|
||||
@ -30,17 +30,7 @@ unit tree;
|
||||
|
||||
uses
|
||||
globtype,cobjects,
|
||||
symconst,symtable,aasm
|
||||
{$ifdef i386}
|
||||
,i386base
|
||||
{$endif}
|
||||
{$ifdef m68k}
|
||||
,m68k
|
||||
{$endif}
|
||||
{$ifdef alpha}
|
||||
,alpha
|
||||
{$endif}
|
||||
;
|
||||
symconst,symtable,aasm,cpubase;
|
||||
|
||||
type
|
||||
pconstset = ^tconstset;
|
||||
@ -1731,7 +1721,10 @@ unit tree;
|
||||
end.
|
||||
{
|
||||
$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
|
||||
* some other type/const renamings
|
||||
|
||||
|
||||
@ -56,12 +56,10 @@ unit win_targ;
|
||||
implementation
|
||||
|
||||
uses
|
||||
aasm,files,strings,globtype,globals,cobjects,systems,verbose
|
||||
aasm,files,strings,globtype,globals,cobjects,systems,verbose,
|
||||
cpubase,cpuasm
|
||||
{$ifdef GDB}
|
||||
,gdb
|
||||
{$endif}
|
||||
{$ifdef i386}
|
||||
,i386base,i386asm
|
||||
{$endif}
|
||||
;
|
||||
|
||||
@ -728,7 +726,10 @@ unit win_targ;
|
||||
end.
|
||||
{
|
||||
$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
|
||||
|
||||
Revision 1.29 1999/07/22 16:12:28 peter
|
||||
|
||||
Loading…
Reference in New Issue
Block a user