mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-14 22:09:32 +02:00
* forgot to add files
git-svn-id: trunk@6054 -
This commit is contained in:
parent
8db1abd729
commit
fc63672012
2
.gitattributes
vendored
2
.gitattributes
vendored
@ -460,6 +460,7 @@ compiler/systems/i_nwm.pas svneol=native#text/plain
|
|||||||
compiler/systems/i_os2.pas svneol=native#text/plain
|
compiler/systems/i_os2.pas svneol=native#text/plain
|
||||||
compiler/systems/i_palmos.pas svneol=native#text/plain
|
compiler/systems/i_palmos.pas svneol=native#text/plain
|
||||||
compiler/systems/i_sunos.pas svneol=native#text/plain
|
compiler/systems/i_sunos.pas svneol=native#text/plain
|
||||||
|
compiler/systems/i_symbian.pas svneol=native#text/plain
|
||||||
compiler/systems/i_watcom.pas svneol=native#text/plain
|
compiler/systems/i_watcom.pas svneol=native#text/plain
|
||||||
compiler/systems/i_wdosx.pas svneol=native#text/plain
|
compiler/systems/i_wdosx.pas svneol=native#text/plain
|
||||||
compiler/systems/i_win.pas svneol=native#text/plain
|
compiler/systems/i_win.pas svneol=native#text/plain
|
||||||
@ -481,6 +482,7 @@ compiler/systems/t_nwm.pas svneol=native#text/plain
|
|||||||
compiler/systems/t_os2.pas svneol=native#text/plain
|
compiler/systems/t_os2.pas svneol=native#text/plain
|
||||||
compiler/systems/t_palmos.pas svneol=native#text/plain
|
compiler/systems/t_palmos.pas svneol=native#text/plain
|
||||||
compiler/systems/t_sunos.pas svneol=native#text/plain
|
compiler/systems/t_sunos.pas svneol=native#text/plain
|
||||||
|
compiler/systems/t_symbian.pas svneol=native#text/plain
|
||||||
compiler/systems/t_watcom.pas svneol=native#text/plain
|
compiler/systems/t_watcom.pas svneol=native#text/plain
|
||||||
compiler/systems/t_wdosx.pas svneol=native#text/plain
|
compiler/systems/t_wdosx.pas svneol=native#text/plain
|
||||||
compiler/systems/t_win.pas svneol=native#text/plain
|
compiler/systems/t_win.pas svneol=native#text/plain
|
||||||
|
102
compiler/systems/i_symbian.pas
Normal file
102
compiler/systems/i_symbian.pas
Normal file
@ -0,0 +1,102 @@
|
|||||||
|
{
|
||||||
|
Copyright (c) 1998-2002 by Peter Vreman
|
||||||
|
|
||||||
|
This unit implements support information structures for win32
|
||||||
|
|
||||||
|
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 win32. }
|
||||||
|
unit i_symbian;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
systems;
|
||||||
|
|
||||||
|
const
|
||||||
|
system_i386_symbian_info : tsysteminfo =
|
||||||
|
(
|
||||||
|
system : system_i386_SYMBIAN;
|
||||||
|
name : 'Symbian OS for i386';
|
||||||
|
shortname : 'Symbian';
|
||||||
|
flags : [tf_files_case_aware,tf_has_dllscanner,tf_use_function_relative_addresses
|
||||||
|
,tf_smartlink_sections{,tf_section_threadvars}{,tf_needs_dwarf_cfi},tf_winlikewidestring];
|
||||||
|
cpu : cpu_i386;
|
||||||
|
unit_env : 'SYMBIANUNITS';
|
||||||
|
extradefines : 'UNIX;SYMBIAN';
|
||||||
|
exeext : '.exe';
|
||||||
|
defext : '.def';
|
||||||
|
scriptext : '.bat';
|
||||||
|
smartext : '.sl';
|
||||||
|
unitext : '.ppu';
|
||||||
|
unitlibext : '.ppl';
|
||||||
|
asmext : '.s';
|
||||||
|
objext : '.o';
|
||||||
|
resext : '.res';
|
||||||
|
resobjext : '.or';
|
||||||
|
sharedlibext : '.dll';
|
||||||
|
staticlibext : '.a';
|
||||||
|
staticlibprefix : 'libp';
|
||||||
|
sharedlibprefix : '';
|
||||||
|
sharedClibext : '.dll';
|
||||||
|
staticClibext : '.a';
|
||||||
|
staticClibprefix : 'lib';
|
||||||
|
sharedClibprefix : '';
|
||||||
|
Cprefix : '_';
|
||||||
|
newline : #13#10;
|
||||||
|
dirsep : '\';
|
||||||
|
assem : as_i386_pecoff;
|
||||||
|
assemextern : as_gas;
|
||||||
|
link : nil;
|
||||||
|
linkextern : nil;
|
||||||
|
ar : ar_gnu_ar;
|
||||||
|
res : res_gnu_windres;
|
||||||
|
dbg : dbg_stabs;
|
||||||
|
script : script_dos;
|
||||||
|
endian : endian_little;
|
||||||
|
alignment :
|
||||||
|
(
|
||||||
|
procalign : 16;
|
||||||
|
loopalign : 4;
|
||||||
|
jumpalign : 0;
|
||||||
|
constalignmin : 0;
|
||||||
|
constalignmax : 16;
|
||||||
|
varalignmin : 0;
|
||||||
|
varalignmax : 16;
|
||||||
|
localalignmin : 4;
|
||||||
|
localalignmax : 8;
|
||||||
|
recordalignmin : 0;
|
||||||
|
recordalignmax : 4;
|
||||||
|
maxCrecordalign : 16
|
||||||
|
);
|
||||||
|
first_parm_offset : 8;
|
||||||
|
stacksize : 262144;
|
||||||
|
abi : abi_default;
|
||||||
|
);
|
||||||
|
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
initialization
|
||||||
|
|
||||||
|
{$ifdef CPU86}
|
||||||
|
set_source_info(system_i386_symbian_info);
|
||||||
|
{$endif CPU86}
|
||||||
|
|
||||||
|
{$ifdef CPUARM}
|
||||||
|
set_source_info(system_arm_symbian_info);
|
||||||
|
{$endif CPUARM}
|
||||||
|
end.
|
58
compiler/systems/t_symbian.pas
Normal file
58
compiler/systems/t_symbian.pas
Normal file
@ -0,0 +1,58 @@
|
|||||||
|
{
|
||||||
|
Copyright (c) 1998-2002 by Peter Vreman
|
||||||
|
|
||||||
|
This unit implements support import,export,link routines
|
||||||
|
for the (i386) Win32 target
|
||||||
|
|
||||||
|
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 t_symbian;
|
||||||
|
|
||||||
|
{$i fpcdefs.inc}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
cutils,cclasses,
|
||||||
|
aasmbase,aasmtai,aasmdata,aasmcpu,fmodule,globtype,globals,systems,verbose,
|
||||||
|
symconst,symdef,symsym,
|
||||||
|
script,gendef,
|
||||||
|
cpubase,
|
||||||
|
import,export,link,cgobj,t_win, i_symbian;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
SysUtils,
|
||||||
|
cfileutils,
|
||||||
|
cpuinfo,cgutils,dbgbase,
|
||||||
|
owar,ogbase,ogcoff;
|
||||||
|
|
||||||
|
{*****************************************************************************
|
||||||
|
Initialize
|
||||||
|
*****************************************************************************}
|
||||||
|
|
||||||
|
initialization
|
||||||
|
{$ifdef i386}
|
||||||
|
RegisterExternalLinker(system_i386_symbian_info,TExternalLinkerWin);
|
||||||
|
RegisterInternalLinker(system_i386_symbian_info,TInternalLinkerWin);
|
||||||
|
RegisterImport(system_i386_symbian,TImportLibWin);
|
||||||
|
RegisterExport(system_i386_symbian,TExportLibWin);
|
||||||
|
RegisterDLLScanner(system_i386_symbian,TDLLScannerWin);
|
||||||
|
// RegisterRes(res_gnu_windres_info);
|
||||||
|
RegisterTarget(system_i386_symbian_info);
|
||||||
|
{$endif i386}
|
||||||
|
end.
|
Loading…
Reference in New Issue
Block a user