mirror of
				https://gitlab.com/freepascal.org/fpc/source.git
				synced 2025-10-30 05:11:29 +01:00 
			
		
		
		
	
		
			
				
	
	
		
			155 lines
		
	
	
		
			5.0 KiB
		
	
	
	
		
			ObjectPascal
		
	
	
	
	
	
			
		
		
	
	
			155 lines
		
	
	
		
			5.0 KiB
		
	
	
	
		
			ObjectPascal
		
	
	
	
	
	
| {
 | |
|     $Id$
 | |
|     Copyright (c) 1998-2002 by Peter Vreman
 | |
| 
 | |
|     This unit implements support information structures for MacOS
 | |
| 
 | |
|     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.
 | |
|  ****************************************************************************
 | |
| }
 | |
| { This unit implements support information structures for MacOS. }
 | |
| unit i_macos;
 | |
| 
 | |
|   interface
 | |
| 
 | |
|     uses
 | |
|        systems;
 | |
|      const
 | |
|        system_powerpc_macos_info : tsysteminfo =
 | |
|           (
 | |
|             system       : system_powerpc_MACOS;
 | |
|             name         : 'MacOS (PowerPC)';
 | |
|             shortname    : 'MacOS';
 | |
|             flags        : [];
 | |
|             cpu          : cpu_powerpc;
 | |
|             unit_env     : '';
 | |
|             extradefines : '';
 | |
|             sourceext    : '.pp';
 | |
|             pasext       : '.pas'; //is normally .p on MacOS, but then the compiler doesnt compile.
 | |
|             exeext       : '';
 | |
|             defext       : '';
 | |
|             scriptext    : '';
 | |
|             smartext     : '.sl';
 | |
|             unitext      : '.ppu';
 | |
|             unitlibext   : '.ppl';
 | |
|             asmext       : '.s';
 | |
|             objext       : '.o';
 | |
|             resext       : '.res';
 | |
|             resobjext    : '.or';
 | |
|             sharedlibext : 'Lib';
 | |
|             staticlibext : 'Lib';
 | |
|             staticlibprefix : '';
 | |
|             sharedlibprefix : '';
 | |
|             sharedClibext : 'Lib';
 | |
|             staticClibext : 'Lib';
 | |
|             staticClibprefix : '';
 | |
|             sharedClibprefix : '';
 | |
|             Cprefix      : '';
 | |
|             newline      : #13;
 | |
|             dirsep       : ':';
 | |
|             files_case_relevent : false;
 | |
|             assem        : as_powerpc_mpw;
 | |
|             assemextern  : as_powerpc_mpw;
 | |
|             link         : nil;
 | |
|             linkextern   : nil;
 | |
|             ar           : ar_mpw_ar;
 | |
|             res          : res_powerpc_mpw;
 | |
|             script       : script_unix;
 | |
|             endian       : endian_big;
 | |
|             alignment    :
 | |
|               (
 | |
|                 procalign       : 4;
 | |
|                 loopalign       : 4;
 | |
|                 jumpalign       : 0;
 | |
|                 constalignmin   : 0;
 | |
|                 constalignmax   : 4;
 | |
|                 varalignmin     : 0;
 | |
|                 varalignmax     : 4;
 | |
|                 localalignmin   : 8;
 | |
|                 localalignmax   : 8;
 | |
|                 recordalignmin  : 0;
 | |
|                 recordalignmax  : 2;
 | |
|                 maxCrecordalign : 16
 | |
|               );
 | |
|             first_parm_offset : 8;
 | |
|             heapsize     : 256*1024;
 | |
|             stacksize    : 262144;
 | |
|             DllScanSupported:false;
 | |
|             use_function_relative_addresses : true;
 | |
|             abi : abi_powerpc_aix;
 | |
|           );
 | |
| 
 | |
|   implementation
 | |
| 
 | |
| initialization
 | |
| {$ifdef cpupowerpc}
 | |
|   {$ifdef macos}
 | |
|     set_source_info(system_powerpc_macos_info);
 | |
|   {$endif macos}
 | |
| {$endif cpupowerpc}
 | |
| end.
 | |
| {
 | |
|   $Log$
 | |
|   Revision 1.12  2003-10-03 22:09:49  peter
 | |
|     * removed paraalign
 | |
| 
 | |
|   Revision 1.11  2003/08/08 15:54:01  olle
 | |
|     * merged macos entry/exit code generation into the general one.
 | |
| 
 | |
|   Revision 1.10  2002/08/18 17:10:15  olle
 | |
|     + abi_powerpc_macos added to TSystemInfo
 | |
| 
 | |
|   Revision 1.9  2003/06/18 10:19:07  olle
 | |
|     * changed .p to .pas to make the compiler compile
 | |
| 
 | |
|   Revision 1.8  2003/01/13 22:15:58  florian
 | |
|     * changed ppu extentions from pput to ppu
 | |
| 
 | |
|   Revision 1.7  2003/01/13 17:16:44  olle
 | |
|     * Fixed typo
 | |
| 
 | |
|   Revision 1.6  2003/01/13 13:03:56  florian
 | |
|     - fixed res entry for MacOS, I don't understand why it worked before :/
 | |
| 
 | |
|   Revision 1.5  2002/10/20 17:54:32  olle
 | |
|     * changed newline char, asm file ending and case sensitivity
 | |
| 
 | |
|   Revision 1.4  2002/10/02 21:50:19  florian
 | |
|     * importing via external is now possible for macos
 | |
| 
 | |
|   Revision 1.3  2002/10/02 21:29:34  florian
 | |
|     * ppus have the extension ppu on macos as well now
 | |
| 
 | |
|   Revision 1.2  2002/09/11 19:59:14  florian
 | |
|     * renamed target macosppc to macppc
 | |
| 
 | |
|   Revision 1.1  2002/09/06 15:03:51  carl
 | |
|     * moved files to systems directory
 | |
| 
 | |
|   Revision 1.3  2002/08/20 21:40:44  florian
 | |
|     + target macos for ppc added
 | |
|     + frame work for mpw assembler output
 | |
| 
 | |
|   Revision 1.2  2002/08/12 15:08:39  carl
 | |
|     + stab register indexes for powerpc (moved from gdb to cpubase)
 | |
|     + tprocessor enumeration moved to cpuinfo
 | |
|     + linker in target_info is now a class
 | |
|     * many many updates for m68k (will soon start to compile)
 | |
|     - removed some ifdef or correct them for correct cpu
 | |
| 
 | |
|   Revision 1.1  2002/07/26 21:15:38  florian
 | |
|     * rewrote the system handling
 | |
| }
 | 
