diff options
Diffstat (limited to 'compiler/sparc/cpupi.pas')
-rw-r--r-- | compiler/sparc/cpupi.pas | 84 |
1 files changed, 84 insertions, 0 deletions
diff --git a/compiler/sparc/cpupi.pas b/compiler/sparc/cpupi.pas new file mode 100644 index 0000000000..e3e32bebed --- /dev/null +++ b/compiler/sparc/cpupi.pas @@ -0,0 +1,84 @@ +{ + Copyright (c) 2002 by Florian Klaempfl + + This unit contains the CPU specific part of tprocinfo + + 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. + + **************************************************************************** +} +unit cpupi; + +{$i fpcdefs.inc} + +interface + + uses + cutils, + procinfo,cpuinfo, + psub; + + type + TSparcProcInfo=class(tcgprocinfo) + public + constructor create(aparent:tprocinfo);override; + procedure allocate_push_parasize(size:longint);override; + function calc_stackframe_size:longint;override; + end; + +implementation + + uses + systems,globals, + tgobj,paramgr,symconst; + + constructor tsparcprocinfo.create(aparent:tprocinfo); + begin + inherited create(aparent); + maxpushedparasize:=0; + end; + + + procedure tsparcprocinfo.allocate_push_parasize(size:longint); + begin + if size>maxpushedparasize then + maxpushedparasize:=size; + end; + + + function TSparcProcInfo.calc_stackframe_size:longint; + begin + { + Stackframe layout: + %fp + <locals> + <temp> + <arguments 6-n for calling> + %sp+92 + <space for arguments 0-5> \ + <return pointer for calling> | included in first_parm_offset + <register window save area for calling> / + %sp + + Alignment must be the max available, as doubles require + 8 byte alignment + } + result:=Align(tg.direction*tg.lasttemp+maxpushedparasize+target_info.first_parm_offset,aktalignment.localalignmax); + end; + + +begin + cprocinfo:=TSparcProcInfo; +end. |