paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-28 10:39:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

added support for SPARC processors

Browse Source
This commit is contained in:
mazen 2002-08-29 11:02:36 +00:00
parent 66ab5e4a54
commit dd411127f4
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/sparc/cpupi.pas
View File

@ -33,7 +33,7 @@ unit cpupi;
cgbase,cpuinfo; cgbase,cpuinfo;
type type
Tppcprocinfo = class(tprocinfo) TSparcprocinfo = class(tprocinfo)
{ overall size of allocated stack space, currently this is used for the PowerPC only } { overall size of allocated stack space, currently this is used for the PowerPC only }
localsize : aword; localsize : aword;
@ -53,7 +53,7 @@ unit cpupi;
aasmtai, aasmtai,
tgobj; tgobj;
constructor Tppcprocinfo.create; constructor TSparcprocinfo.create;
begin begin
inherited create; inherited create;
@ -61,13 +61,13 @@ unit cpupi;
localsize:=0; localsize:=0;
end; end;
procedure Tppcprocinfo.after_header; procedure TSparcprocinfo.after_header;
begin begin
{ this value is necessary for nested procedures } { this value is necessary for nested procedures }
procdef.localst.address_fixup:=align(procdef.parast.datasize,16); procdef.localst.address_fixup:=align(procdef.parast.datasize,16);
end; end;
procedure Tppcprocinfo.after_pass1; procedure TSparcprocinfo.after_pass1;
begin begin
procdef.parast.address_fixup:=align(maxpushedparasize,16); procdef.parast.address_fixup:=align(maxpushedparasize,16);
if cs_asm_source in aktglobalswitches then if cs_asm_source in aktglobalswitches then
@ -85,11 +85,14 @@ unit cpupi;
end; end;
begin begin
cprocinfo:=Tppcprocinfo; cprocinfo:=TSparcprocinfo;
end. end.
{ {
$Log$ $Log$
Revision 1.1 2002-08-23 10:08:28 mazen Revision 1.2 2002-08-29 11:02:36 mazen
added support for SPARC processors
Revision 1.1 2002/08/23 10:08:28 mazen
*** empty log message *** *** empty log message ***
Revision 1.2 2002/08/18 20:06:30 peter Revision 1.2 2002/08/18 20:06:30 peter