paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 03:39:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

- logs removed

Browse Source
This commit is contained in:
mazen 2002-10-13 19:47:34 +00:00
parent c0a2149c38
commit 5ed8dfb74c
1 changed files with 108 additions and 266 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

374
compiler/sparc/cga.pas
View File

@ -1,18 +1,7 @@
{*****************************************************************************} {******************************************************************************
{ File : cga.pas }
{ Author : Mazen NEIFER }
{ Project : Free Pascal Compiler (FPC) }
{ Creation date : 2002\26\26 }
{ Last modification date : 2002\07\13 }
{ Licence : GPL }
{ Bug report : mazen.neifer.01@supaero.org }
{*****************************************************************************}
{
$Id$ $Id$
Copyright (c) 1998-2002 by Florian Klaempfl Copyright (c) 1998-2002 by Florian Klaempfl
Helper routines for the i386 code generator
This program is free software; you can redistribute it and/or modify This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or the Free Software Foundation; either version 2 of the License, or
@ -27,274 +16,127 @@
along with this program; if not, write to the Free Software along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
**************************************************************************** *****************************************************************************}
}
unit cga; unit cga;
{$INCLUDE fpcdefs.inc}
{$i fpcdefs.inc}
interface interface
uses
uses cpuinfo,cpubase,cginfo,
cpuinfo,cpubase,cginfo, symconst,symtype,symdef,aasmbase,aasmtai,aasmcpu;
symconst,symtype,symdef,aasmbase,aasmtai,aasmcpu; {$define TESTGETTEMP to store const that are written into temps for later release PM }
function def_opsize(p1:tdef):topsize;
{$define TESTGETTEMP to store const that function def_getreg(p1:tdef):tregister;
are written into temps for later release PM } procedure emitjmp(c:tasmcond;var l:tasmlabel);
procedure emit_none(i:tasmop;s:topsize);
function def_opsize(p1:tdef):topsize; procedure emit_const(i:tasmop;s:topsize;c:longint);
function def_getreg(p1:tdef):tregister; procedure emit_reg(i:tasmop;s:topsize;reg:tregister);
procedure emit_ref(i:tasmop;s:topsize;const ref:treference);
procedure emitjmp(c : tasmcond;var l : tasmlabel); procedure emit_const_reg(i:tasmop;s:topsize;c:longint;reg:tregister);
procedure emit_const_ref(i:tasmop;s:topsize;c:longint;const ref:treference);
procedure emit_none(i : tasmop;s : topsize); procedure emit_ref_reg(i:tasmop;s:topsize;const ref:treference;reg:tregister);
procedure emit_reg_ref(i:tasmop;s:topsize;reg:tregister;const ref:treference);
procedure emit_const(i : tasmop;s : topsize;c : longint); procedure emit_reg_reg(i:tasmop;s:topsize;reg1,reg2:tregister);
procedure emit_reg(i : tasmop;s : topsize;reg : tregister); procedure emit_const_reg_reg(i:tasmop;s:topsize;c:longint;reg1,reg2:tregister);
procedure emit_ref(i : tasmop;s : topsize;const ref : treference); procedure emit_reg_reg_reg(i:tasmop;s:topsize;reg1,reg2,reg3:tregister);
procedure emit_sym(i:tasmop;s:topsize;op:tasmsymbol);
procedure emit_const_reg(i : tasmop;s : topsize;c : longint;reg : tregister);
procedure emit_const_ref(i : tasmop;s : topsize;c : longint;const ref : treference);
procedure emit_ref_reg(i : tasmop;s : topsize;const ref : treference;reg : tregister);
procedure emit_reg_ref(i : tasmop;s : topsize;reg : tregister;const ref : treference);
procedure emit_reg_reg(i : tasmop;s : topsize;reg1,reg2 : tregister);
procedure emit_const_reg_reg(i : tasmop;s : topsize;c : longint;reg1,reg2 : tregister);
procedure emit_reg_reg_reg(i : tasmop;s : topsize;reg1,reg2,reg3 : tregister);
procedure emit_sym(i : tasmop;s : topsize;op : tasmsymbol);
implementation implementation
uses
uses cutils,
cutils, systems,globals,verbose,
systems,globals,verbose, cgbase,cgobj,tgobj,rgobj,rgcpu;
cgbase,cgobj,tgobj,rgobj,rgcpu;
{***************************************************************************** {*****************************************************************************
Helpers Helpers
*****************************************************************************} *****************************************************************************}
function def_opsize(p1:tdef):topsize;
function def_opsize(p1:tdef):topsize; begin
begin case p1.size of
case p1.size of 1:def_opsize:=S_B;
1 : def_opsize:=S_B; 2:def_opsize:=S_W;
2 : def_opsize:=S_W; 4:def_opsize:=S_L;
4 : def_opsize:=S_L; 8:def_opsize:=S_L;
{ I don't know if we need it (FK) } else
8 : def_opsize:=S_L; InternalError(130820001);
else end;
internalerror(130820001); end;
end; function def_getreg(p1:tdef):tregister;
end; begin
with rg do
def_getreg:=makeregsize(getregisterint(exprasmlist),int_cgsize(p1.size));
function def_getreg(p1:tdef):tregister; end;
begin
def_getreg:=rg.makeregsize(rg.getregisterint(exprasmlist),int_cgsize(p1.size));
end;
{***************************************************************************** {*****************************************************************************
Emit Assembler Emit Assembler
*****************************************************************************} *****************************************************************************}
procedure emitjmp(c:tasmcond;var l:tasmlabel);
procedure emitjmp(c : tasmcond;var l : tasmlabel); var
var ai:taicpu;
ai : taicpu; begin
if c=C_None
then
ai:= Taicpu.Op_sym(A_JMPL,S_NO,l)
else
begin begin
if c=C_None then ai:=Taicpu.Op_sym(A_JMPL,S_NO,l);
ai := Taicpu.Op_sym(A_JMPL,S_NO,l) ai.SetCondition(c);
else
begin
ai:=Taicpu.Op_sym(A_JMPL,S_NO,l);
ai.SetCondition(c);
end;
ai.is_jmp:=true;
exprasmList.concat(ai);
end; end;
ai.is_jmp:=true;
exprasmList.concat(ai);
procedure emit_none(i : tasmop;s : topsize); end;
begin procedure emit_none(i:tasmop;s:topsize);
exprasmList.concat(Taicpu.Op_none(i,s)); begin
end; exprasmList.concat(Taicpu.Op_none(i,s));
end;
procedure emit_reg(i : tasmop;s : topsize;reg : tregister); procedure emit_reg(i:tasmop;s:topsize;reg:tregister);
begin begin
exprasmList.concat(Taicpu.Op_reg(i,s,reg)); exprasmList.concat(Taicpu.Op_reg(i,s,reg));
end; end;
procedure emit_ref(i:tasmop;s:topsize;const ref:treference);
procedure emit_ref(i : tasmop;s : topsize;const ref : treference); begin
begin exprasmList.concat(Taicpu.Op_ref(i,s,ref));
exprasmList.concat(Taicpu.Op_ref(i,s,ref)); end;
end; procedure emit_const(i:tasmop;s:topsize;c:longint);
begin
procedure emit_const(i : tasmop;s : topsize;c : longint); exprasmList.concat(Taicpu.Op_const(i,s,aword(c)));
begin end;
exprasmList.concat(Taicpu.Op_const(i,s,aword(c))); procedure emit_const_reg(i:tasmop;s:topsize;c:longint;reg:tregister);
end; begin
exprasmList.concat(Taicpu.Op_const_reg(i,s,aword(c),reg));
procedure emit_const_reg(i : tasmop;s : topsize;c : longint;reg : tregister); end;
begin procedure emit_const_ref(i:tasmop;s:topsize;c:longint;const ref:treference);
exprasmList.concat(Taicpu.Op_const_reg(i,s,aword(c),reg)); begin
end; exprasmList.concat(Taicpu.Op_const_ref(i,s,aword(c),ref));
end;
procedure emit_const_ref(i : tasmop;s : topsize;c : longint;const ref : treference); procedure emit_ref_reg(i:tasmop;s:topsize;const ref:treference;reg:tregister);
begin begin
exprasmList.concat(Taicpu.Op_const_ref(i,s,aword(c),ref)); exprasmList.concat(Taicpu.Op_ref_reg(i,s,ref,reg));
end; end;
procedure emit_reg_ref(i:tasmop;s:topsize;reg:tregister;const ref:treference);
procedure emit_ref_reg(i : tasmop;s : topsize;const ref : treference;reg : tregister); begin
begin exprasmList.concat(Taicpu.Op_reg_ref(i,s,reg,ref));
exprasmList.concat(Taicpu.Op_ref_reg(i,s,ref,reg)); end;
end; procedure emit_reg_reg(i:tasmop;s:topsize;reg1,reg2:tregister);
begin
procedure emit_reg_ref(i : tasmop;s : topsize;reg : tregister;const ref : treference); if reg1<>reg2
begin then
exprasmList.concat(Taicpu.Op_reg_ref(i,s,reg,ref));
end;
PROCEDURE emit_reg_reg(i:tasmop;s:topsize;reg1,reg2:tregister);
BEGIN
IF reg1<>reg2
THEN
exprasmList.concat(Taicpu.Op_reg_reg(i,s,reg1,reg2)); exprasmList.concat(Taicpu.Op_reg_reg(i,s,reg1,reg2));
END; end;
procedure emit_const_reg_reg(i:tasmop;s:topsize;c:longint;reg1,reg2:tregister);
procedure emit_const_reg_reg(i : tasmop;s : topsize;c : longint;reg1,reg2 : tregister); begin
begin exprasmList.concat(Taicpu.Op_reg_const_reg(i,s,reg1,c,reg2));
exprasmList.concat(Taicpu.Op_reg_const_reg(i,s,reg1,c,reg2)); end;
end; procedure emit_reg_reg_reg(i:tasmop;s:topsize;reg1,reg2,reg3:tregister);
begin
procedure emit_reg_reg_reg(i : tasmop;s : topsize;reg1,reg2,reg3 : tregister); exprasmList.concat(Taicpu.Op_reg_reg_reg(i,s,reg1,reg2,reg3));
begin end;
exprasmList.concat(Taicpu.Op_reg_reg_reg(i,s,reg1,reg2,reg3)); procedure emit_sym(i:tasmop;s:topsize;op:tasmsymbol);
end; begin
exprasmList.concat(Taicpu.Op_sym(i,s,op));
procedure emit_sym(i : tasmop;s : topsize;op : tasmsymbol); end;
begin
exprasmList.concat(Taicpu.Op_sym(i,s,op));
end;
end. end.
{ {
$Log$ $Log$
Revision 1.1 2002-08-22 08:30:50 mazen Revision 1.2 2002-10-13 19:47:34 mazen
- logs removed
Revision 1.1 2002/08/22 08:30:50 mazen
first insertion 2002\08\22 first insertion 2002\08\22
Revision 1.32 2002/05/18 13:34:21 peter
* readded missing revisions
Revision 1.31 2002/05/16 19:46:50 carl
+ defines.inc -> fpcdefs.inc to avoid conflicts if compiling by hand
+ try to fix temp allocation (still in ifdef)
+ generic constructor calls
+ start of tassembler / tmodulebase class cleanup
Revision 1.29 2002/05/13 19:54:37 peter
* removed n386ld and n386util units
* maybe_save/maybe_restore added instead of the old maybe_push
Revision 1.28 2002/05/12 16:53:16 peter
* moved entry and exitcode to ncgutil and cgobj
* foreach gets extra argument for passing local data to the
iterator function
* -CR checks also class typecasts at runtime by changing them
into as
* fixed compiler to cycle with the -CR option
* fixed stabs with elf writer, finally the global variables can
be watched
* removed a lot of routines from cga unit and replaced them by
calls to cgobj
* u32bit-s32bit updates for and,or,xor nodes. When one element is
u32bit then the other is typecasted also to u32bit without giving
a rangecheck warning/error.
* fixed pascal calling method with reversing also the high tree in
the parast, detected by tcalcst3 test
Revision 1.27 2002/04/25 20:16:39 peter
* moved more routines from cga/n386util
Revision 1.26 2002/04/21 15:29:53 carl
* changeregsize -> rg.makeregsize
Revision 1.25 2002/04/20 21:37:07 carl
+ generic FPC_CHECKPOINTER
+ first parameter offset in stack now portable
* rename some constants
+ move some cpu stuff to other units
- remove unused constents
* fix stacksize for some targets
* fix generic size problems which depend now on EXTEND_SIZE constant
* removing frame pointer in routines is only available for : i386,m68k and vis targets
Revision 1.24 2002/04/19 15:39:34 peter
* removed some more routines from cga
* moved location_force_reg/mem to ncgutil
* moved arrayconstructnode secondpass to ncgld
Revision 1.23 2002/04/15 19:44:20 peter
* fixed stackcheck that would be called recursively when a stack
error was found
* generic changeregsize(reg,size) for i386 register resizing
* removed some more routines from cga unit
* fixed returnvalue handling
* fixed default stacksize of linux and go32v2, 8kb was a bit small :-)
Revision 1.22 2002/04/14 20:54:17 carl
+ stack checking enabled for all targets (it is simulated now)
Revision 1.21 2002/04/04 19:06:08 peter
* removed unused units
* use tlocation.size in cg.a_*loc*() routines
Revision 1.20 2002/04/04 18:30:22 carl
+ added wdosx support (patch from Pavel)
Revision 1.19 2002/04/02 17:11:33 peter
* tlocation,treference update
* LOC_CONSTANT added for better constant handling
* secondadd splitted in multiple routines
* location_force_reg added for loading a location to a register
of a specified size
* secondassignment parses now first the right and then the left node
(this is compatible with Kylix). This saves a lot of push/pop especially
with string operations
* adapted some routines to use the new cg methods
Revision 1.18 2002/03/31 20:26:37 jonas
+ a_loadfpu_* and a_loadmm_* methods in tcg
* register allocation is now handled by a class and is mostly processor
independent (+rgobj.pas and i386/rgcpu.pas)
* temp allocation is now handled by a class (+tgobj.pas, -i386\tgcpu.pas)
* some small improvements and fixes to the optimizer
* some register allocation fixes
* some fpuvaroffset fixes in the unary minus node
* push/popusedregisters is now called rg.save/restoreusedregisters and
(for i386) uses temps instead of push/pop's when using -Op3 (that code is
also better optimizable)
* fixed and optimized register saving/restoring for new/dispose nodes
* LOC_FPU locations now also require their "register" field to be set to
R_ST, not R_ST0 (the latter is used for LOC_CFPUREGISTER locations only)
- list field removed of the tnode class because it's not used currently
and can cause hard-to-find bugs
Revision 1.17 2002/03/28 16:07:52 armin
+ initialize threadvars defined local in units
Revision 1.16 2002/03/04 19:10:12 peter
* removed compiler warnings
Revision 1.15 2002/01/24 18:25:53 peter
* implicit result variable generation for assembler routines
* removed m_tp modeswitch, use m_tp7 or not(m_fpc) instead
Revision 1.14 2002/01/19 14:21:17 peter
* fixed init/final for value parameters
} }