瀏覽代碼

+ override the NOT node for the Z80 (not yet implemented)

git-svn-id: branches/z80@44991 -
nickysn 5 年之前
父節點
當前提交
63e6c8fcf1
共有 3 個文件被更改,包括 68 次插入1 次删除
  1. 1 0
      .gitattributes
  2. 1 1
      compiler/z80/cpunode.pas
  3. 66 0
      compiler/z80/nz80mat.pas

+ 1 - 0
.gitattributes

@@ -1072,6 +1072,7 @@ compiler/z80/cputarg.pas svneol=native#text/plain
 compiler/z80/hlcgcpu.pas svneol=native#text/plain
 compiler/z80/nz80add.pas svneol=native#text/plain
 compiler/z80/nz80cal.pas svneol=native#text/plain
+compiler/z80/nz80mat.pas svneol=native#text/plain
 compiler/z80/raz80.pas svneol=native#text/plain
 compiler/z80/raz80asm.pas svneol=native#text/plain
 compiler/z80/rgcpu.pas svneol=native#text/plain

+ 1 - 1
compiler/z80/cpunode.pas

@@ -36,7 +36,7 @@ unit cpunode;
        }
        ,nz80add
        ,nz80cal
-//       ,nz80mat
+       ,nz80mat
 //       ,nz80cnv
 //       ,nz80mem
 //       ,nz80util,

+ 66 - 0
compiler/z80/nz80mat.pas

@@ -0,0 +1,66 @@
+{
+    Copyright (c) 1998-2002 by Florian Klaempfl
+
+    Generate Z80 assembler for math 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 nz80mat;
+
+{$i fpcdefs.inc}
+
+interface
+
+    uses
+      node,nmat,ncgmat;
+
+    type
+
+      { tz80notnode }
+
+      tz80notnode = class(tcgnotnode)
+      protected
+        procedure second_boolean;override;
+      end;
+
+
+implementation
+
+    uses
+      globtype,systems,constexp,
+      cutils,verbose,globals,
+      symconst,symdef,aasmbase,aasmtai,aasmdata,aasmcpu,defutil,
+      cgbase,pass_2,
+      ncon,
+      cpubase,cpuinfo,
+      ncgutil,cgobj,cgutils,
+      hlcgobj;
+
+{*****************************************************************************
+                                tz80notnode
+*****************************************************************************}
+
+
+    procedure tz80notnode.second_boolean;
+      begin
+        internalerror(2020042208);
+      end;
+
+
+begin
+   cnotnode:=tz80notnode;
+end.