Selaa lähdekoodia

* forgot to add files

git-svn-id: trunk@6054 -
peter 18 vuotta sitten
vanhempi
commit
fc63672012
3 muutettua tiedostoa jossa 162 lisäystä ja 0 poistoa
  1. 2 0
      .gitattributes
  2. 102 0
      compiler/systems/i_symbian.pas
  3. 58 0
      compiler/systems/t_symbian.pas

+ 2 - 0
.gitattributes

@@ -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_palmos.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_wdosx.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_palmos.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_wdosx.pas svneol=native#text/plain
 compiler/systems/t_win.pas svneol=native#text/plain

+ 102 - 0
compiler/systems/i_symbian.pas

@@ -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 - 0
compiler/systems/t_symbian.pas

@@ -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.