paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-21 15:38:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

* support library flag

Browse Source 
* automaticly gernerate xdc data
This commit is contained in:
armin 2004-09-19 14:23:43 +00:00
parent d4635112e4
commit b9dd469ddc
1 changed files with 58 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

63
compiler/systems/t_nwl.pas
View File

@ -76,7 +76,6 @@
ToDo: ToDo:
- No duplicate imports and autoloads - No duplicate imports and autoloads
- libc support (needs new target)
**************************************************************************** ****************************************************************************
} }
@ -124,7 +123,9 @@ implementation
public public
constructor Create;override; constructor Create;override;
procedure SetDefaultInfo;override; procedure SetDefaultInfo;override;
function MakeNetwareLoadableModule (isLib : boolean):boolean;
function MakeExecutable:boolean;override; function MakeExecutable:boolean;override;
function MakeSharedLibrary:boolean;override;
end; end;
Const tmpLinkFileName = 'link~tmp._o_'; Const tmpLinkFileName = 'link~tmp._o_';
@ -521,13 +522,25 @@ begin
WriteResponseFile:=True; WriteResponseFile:=True;
end; end;
Const
xdc : Array[0..127] of char = (
'B','A','G','F',#2,#0,#0,#0,#1,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,
#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#2,#0,#0,#0,#0,#0,#0,#0,#16,#0,#0,
#0,#7,'M','P','K','_','B','a','g',#0,#0,#0,#0,#0,#0,#0,#0,#11,'M','T',
' ','S','a','f','e',' ','N','L','M',#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,
#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,
#0,#0,#0,#0,#0,#0,#1,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0);
function TLinkerNetwlibc.MakeExecutable:boolean;
function TLinkerNetwlibc.MakeNetwareLoadableModule (isLib : boolean):boolean;
var var
binstr, binstr,
cmdstr : string; cmdstr,
xdcname : string;
success : boolean; success : boolean;
StripStr : string[2]; StripStr : string[2];
xdcpresent,usexdc : boolean;
f : file;
begin begin
if not(cs_link_extern in aktglobalswitches) then if not(cs_link_extern in aktglobalswitches) then
Message1(exec_i_linking,current_module.exefilename^); Message1(exec_i_linking,current_module.exefilename^);
@ -541,6 +554,29 @@ begin
{ Write used files and libraries and create Headerfile for { Write used files and libraries and create Headerfile for
nlmconv in NLMConvLinkFile } nlmconv in NLMConvLinkFile }
WriteResponseFile(false); WriteResponseFile(false);
if isLib then
NLMConvLinkFile.Add('FLAG_ON 1024'); {0x400 Specifies whether the NLM is a shared library.}
{ if we have a xdc file, dont touch it, otherwise create a new
one and remove it after nlmconv }
xdcname := ForceExtension(current_module.exefilename^,'.xdc');
xdcpresent := FileExists (xdcname);
if not xdcpresent then
begin
assign (f,xdcname);
rewrite(f,1);
if ioresult = 0 then
begin
blockwrite (f,xdc,sizeof(xdc));
close(f);
usexdc := (IOResult = 0);
end else
usexdc := false;
end else
usexdc := true;
if usexdc then
NLMConvLinkFile.Add('XDCDATA '+xdcname);
{ Call linker, this will generate a new object file that will be passed { Call linker, this will generate a new object file that will be passed
to nlmconv. Otherwise we could not create nlms without debug info } to nlmconv. Otherwise we could not create nlms without debug info }
@ -569,12 +605,25 @@ begin
begin begin
RemoveFile(outputexedir+'n'+Info.ResName); RemoveFile(outputexedir+'n'+Info.ResName);
RemoveFile(outputexedir+tmpLinkFileName); RemoveFile(outputexedir+tmpLinkFileName);
if not xdcpresent then
if usexdc then
RemoveFile (xdcname);
end; end;
end; end;
MakeExecutable:=success; { otherwise a recursive call to link method } MakeNetwareLoadableModule:=success; { otherwise a recursive call to link method }
end; end;
function TLinkerNetwlibc.MakeExecutable:boolean;
begin
MakeExecutable := MakeNetwareLoadableModule (false);
end;
function TLinkerNetwlibc.MakeSharedLibrary:boolean;
begin
MakeSharedLibrary := MakeNetwareLoadableModule (true);
end;
{***************************************************************************** {*****************************************************************************
Initialize Initialize
@ -589,7 +638,11 @@ initialization
end. end.
{ {
$Log$ $Log$
Revision 1.1 2004-09-04 21:18:47 armin Revision 1.2 2004-09-19 14:23:43 armin
* support library flag
* automaticly gernerate xdc data
Revision 1.1 2004/09/04 21:18:47 armin
* target netwlibc added (libc is preferred for newer netware versions) * target netwlibc added (libc is preferred for newer netware versions)
Revision 1.14 2004/08/30 11:17:34 armin Revision 1.14 2004/08/30 11:17:34 armin