paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-02-19 19:16:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ added wdosx patch from Pavel

Browse Source
This commit is contained in:
carl 2002-04-04 18:09:49 +00:00
parent e043c5af70
commit db5e51182c
1 changed files with 185 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

185
compiler/targets/t_wdosx.pas Normal file
View File

@ -0,0 +1,185 @@
{
$Id$
Copyright (c) 2002 Pavel ??????
This unit implements support import,export,link routines
for the (i386) WDOSX 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_wdosx;
{$i defines.inc}
interface
implementation
uses
{$ifdef Delphi}
dmisc,
{$else Delphi}
dos,
{$endif Delphi}
cutils,cclasses,
aasm,fmodule,globtype,globals,systems,verbose,
symconst,symsym,
script,gendef,
cpubase,cpuasm,
{$ifdef GDB}
gdb,
{$endif}
import,export,link,t_win32;
type
timportlibwdosx=class(timportlibwin32)
procedure GetDefExt(var N:longint;var P:pStr4);override;
end;
texportlibwdosx=texportlibwin32;
tlinkerwdosx=class(tlinkerwin32)
public
function MakeExecutable:boolean;override;
end;
tDLLScannerWdosx=class(tDLLScannerWin32)
public
procedure GetDefExt(var N:longint;var P:pStr4);override;
end;
const
DefaultDLLExtensions:array[1..2]of string[4]=('.WDL','.DLL');
{*****************************************************************************
TIMPORTLIBWDOSX
*****************************************************************************}
procedure timportlibwdosx.GetDefExt(var N:longint;var P:pStr4);
begin
N:=sizeof(DefaultDLLExtensions)div sizeof(DefaultDLLExtensions[1]);
pointer(P):=@DefaultDLLExtensions;
end;
{*****************************************************************************
TLINKERWDOSX
*****************************************************************************}
function TLinkerWdosx.MakeExecutable:boolean;
begin
Result:=inherited;
if Result then
DoExec(FindUtil('stubit'),current_module.exefilename^,false,false);
end;
{****************************************************************************
TDLLScannerWdosx
****************************************************************************}
procedure tDLLScannerWdosx.GetDefExt(var N:longint;var P:pStr4);
begin
N:=sizeof(DefaultDLLExtensions)div sizeof(DefaultDLLExtensions[1]);
pointer(P):=@DefaultDLLExtensions;
end;
{*****************************************************************************
Initialize
*****************************************************************************}
const
target_i386_wdosx_info : ttargetinfo =
(
target : target_i386_wdosx;
name : 'WDOSX DOS extender';
shortname : 'WDOSX';
flags : [];
cpu : i386;
unit_env : 'WDOSXUNITS';
extradefines : 'MSWINDOWS';
sourceext : '.pp';
pasext : '.pas';
exeext : '.exe';
defext : '.def';
scriptext : '.bat';
smartext : '.sld';
unitext : '.ppd';
unitlibext : '.ppl';
asmext : '.sd';
objext : '.od';
resext : '.rc';
resobjext : '.odr';
sharedlibext : '.dll';
staticlibext : '.ad';
staticlibprefix : 'libp';
sharedlibprefix : '';
sharedClibext : '.dll';
staticClibext : '.a';
staticClibprefix : 'lib';
sharedClibprefix : '';
Cprefix : '_';
newline : #13#10;
dirsep : '\';
files_case_relevent : false;
assem : as_i386_pecoffwdosx;
assemextern : as_i386_aswdosx;
link : ld_i386_wdosx;
linkextern : ld_i386_wdosx;
ar : ar_gnu_arw;
res : res_gnu_windres;
script : script_dos;
endian : endian_little;
alignment :
(
procalign : 4;
loopalign : 4;
jumpalign : 0;
constalignmin : 0;
constalignmax : 4;
varalignmin : 0;
varalignmax : 4;
localalignmin : 0;
localalignmax : 4;
paraalign : 4;
recordalignmin : 0;
recordalignmax : 2;
maxCrecordalign : 16
);
size_of_pointer : 4;
size_of_longint : 4;
heapsize : 256*1024;
maxheapsize : 32*1024*1024;
stacksize : 32*1024*1024;
DllScanSupported:true;
use_bound_instruction : false;
use_function_relative_addresses : true
);
initialization
RegisterLinker(ld_i386_wdosx,TLinkerWdosx);
RegisterImport(target_i386_wdosx,TImportLibWdosx);
RegisterExport(target_i386_wdosx,TExportLibWdosx);
RegisterDLLScanner(target_i386_wdosx,TDLLScannerWdosx);
{RegisterAr(ar_gnu_arw_info);}
{RegisterRes(res_gnu_windres_info);}
RegisterTarget(target_i386_wdosx_info);
end.
{
$Log$
Revision 1.1 2002-04-04 18:09:49 carl
+ added wdosx patch from Pavel
}