mirror of
				https://gitlab.com/freepascal.org/fpc/source.git
				synced 2025-10-31 22:49:35 +01:00 
			
		
		
		
	 b57c95043f
			
		
	
	
		b57c95043f
		
	
	
	
	
		
			
			o made all (non-abstract) tdef and tsym constructors virtual
   o added c*def/c*sym classref types for every (non-abstract) t*def/t*sym
     class
   o added cpusym unit for every architecture that derives a tcpu*def/tcpu*sym
     class from the base classes, and initialises the c*def/c*sym classes with
     them. This is done so that the llvm target will be able to derive from
     the tcpu*def/sym classes without umpteen ifdefs, and it also means that
     the WPO can devirtualise everything because the c* variables are only
     initialised with one class type
   o replaced all t*def/t*sym constructor calls with c*def/c*sym constructor
     calls
git-svn-id: trunk@27361 -
		
	
			
		
			
				
	
	
		
			41 lines
		
	
	
		
			1.4 KiB
		
	
	
	
		
			ObjectPascal
		
	
	
	
	
	
			
		
		
	
	
			41 lines
		
	
	
		
			1.4 KiB
		
	
	
	
		
			ObjectPascal
		
	
	
	
	
	
| {******************************************************************************
 | |
|     Copyright (c) 2000 by Florian Klaempfl
 | |
| 
 | |
|     Includes the iSPARC code generator
 | |
| 
 | |
|     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 CpuNode;
 | |
| 
 | |
| {$I fpcdefs.inc}
 | |
| 
 | |
| interface
 | |
| { This unit is used to define the specific CPU implementations. All needed
 | |
| actions are included in the INITALIZATION part of these units. This explains
 | |
| the behaviour of such a unit having just a USES clause! }
 | |
| 
 | |
| implementation
 | |
| 
 | |
|   uses
 | |
|     ncgbas,ncgflw,ncgcnv,ncgld,ncgmem,ncgcon,ncgset,
 | |
|     ncpuadd,ncpucall,ncpumat,ncpuinln,ncpucnv,ncpuset,
 | |
|     { this not really a node }
 | |
|     rgcpu,
 | |
|     { symtable }
 | |
|     symcpu;
 | |
| 
 | |
| end.
 |