Browse Source

- remove ncpucall for sparc, it has no use anymore

git-svn-id: trunk@18960 -
florian 14 years ago
parent
commit
1de4d16eea
3 changed files with 2 additions and 59 deletions
  1. 0 1
      .gitattributes
  2. 2 2
      compiler/sparc/cpunode.pas
  3. 0 56
      compiler/sparc/ncpucall.pas

+ 0 - 1
.gitattributes

@@ -487,7 +487,6 @@ compiler/sparc/cpupi.pas svneol=native#text/plain
 compiler/sparc/cputarg.pas svneol=native#text/plain
 compiler/sparc/cputarg.pas svneol=native#text/plain
 compiler/sparc/itcpugas.pas svneol=native#text/plain
 compiler/sparc/itcpugas.pas svneol=native#text/plain
 compiler/sparc/ncpuadd.pas svneol=native#text/plain
 compiler/sparc/ncpuadd.pas svneol=native#text/plain
-compiler/sparc/ncpucall.pas svneol=native#text/plain
 compiler/sparc/ncpucnv.pas svneol=native#text/plain
 compiler/sparc/ncpucnv.pas svneol=native#text/plain
 compiler/sparc/ncpuinln.pas svneol=native#text/plain
 compiler/sparc/ncpuinln.pas svneol=native#text/plain
 compiler/sparc/ncpumat.pas svneol=native#text/plain
 compiler/sparc/ncpumat.pas svneol=native#text/plain

+ 2 - 2
compiler/sparc/cpunode.pas

@@ -30,8 +30,8 @@ the behaviour of such a unit having just a USES clause! }
 implementation
 implementation
 
 
   uses
   uses
-    ncgbas,ncgflw,ncgcnv,ncgld,ncgmem,ncgcon,ncgset,
-    ncpuadd,ncpucall,ncpumat,ncpuinln,ncpucnv,ncpuset,
+    ncgbas,ncgcal,ncgflw,ncgcnv,ncgld,ncgmem,ncgcon,ncgset,
+    ncpuadd,ncpumat,ncpuinln,ncpucnv,ncpuset,
     { this not really a node }
     { this not really a node }
     rgcpu;
     rgcpu;
 
 

+ 0 - 56
compiler/sparc/ncpucall.pas

@@ -1,56 +0,0 @@
-{
-    Copyright (c) 1998-2002 by Florian Klaempfl
-
-    Generate sparc assembler for in call nodes
-
-    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 ncpucall;
-
-{$i fpcdefs.inc}
-
-interface
-
-    uses
-      ncgcal;
-
-    type
-       tsparccallnode = class(tcgcallnode)
-         procedure extra_post_call_code;override;
-       end;
-
-
-implementation
-
-    uses
-      cpubase,
-      aasmtai,aasmdata,
-      aasmcpu,
-      paramgr,
-      ncal;
-
-
-    procedure tsparccallnode.extra_post_call_code;
-      begin
-        if paramanager.ret_in_param(procdefinition.returndef,procdefinition.proccalloption) then
-          current_asmdata.CurrAsmList.concat(taicpu.op_const(A_UNIMP,procdefinition.returndef.size and $fff));
-      end;
-
-
-begin
-  ccallnode:=TSparcCallNode;
-end.