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

o BeOS patch by Olivier Coursiere:

Browse Source 
* reenable creating shared object using the libc based rtl. I have also added gc-sections support.

git-svn-id: trunk@8806 -
This commit is contained in:
florian 2007-10-14 18:37:00 +00:00
parent 16a1f65470
commit f7b0abffec
2 changed files with 19 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/systems/i_beos.pas
View File

@ -33,7 +33,7 @@ unit i_beos;
name : 'Beos for i386';
shortname : 'Beos';
flags : [tf_under_development,tf_needs_symbol_size,tf_files_case_sensitive,tf_use_function_relative_addresses,
tf_smartlink_library];
tf_smartlink_sections, tf_smartlink_library];
cpu : cpu_i386;
unit_env : 'BEOSUNITS';
extradefines : 'UNIX;HASUNIX';

21
compiler/systems/t_beos.pas
View File

@ -279,8 +279,8 @@ begin
if prtobj<>'' then
LinkRes.AddFileName(FindObjectFile(prtobj,'',false));
if isdll then
LinkRes.AddFileName(FindObjectFile('func.o','',false));
// if isdll then
// LinkRes.AddFileName(FindObjectFile('func.o','',false));
if librarysearchpath.FindFile('init_term_dyn.o',false,s) then
LinkRes.AddFileName(s);
@ -364,6 +364,7 @@ var
cmdstr : TCmdStr;
success : boolean;
DynLinkStr : string[60];
GCSectionsStr,
StaticStr,
StripStr : string[40];
begin
@ -374,10 +375,16 @@ begin
StaticStr:='';
StripStr:='';
DynLinkStr:='';
GCSectionsStr:='';
if (cs_link_staticflag in current_settings.globalswitches) then
StaticStr:='-static';
if (cs_link_strip in current_settings.globalswitches) then
StripStr:='-s';
if (cs_link_smart in current_settings.globalswitches) and
(tf_smartlink_sections in target_info.flags) then
GCSectionsStr:='--gc-sections';
If (cs_profile in current_settings.moduleswitches) or
((Info.DynamicLinker<>'') and (not SharedLibFiles.Empty)) then
begin
@ -398,6 +405,7 @@ begin
Replace(cmdstr,'$RES',maybequoted(outputexedir+Info.ResName));
Replace(cmdstr,'$STATIC',StaticStr);
Replace(cmdstr,'$STRIP',StripStr);
Replace(cmdstr,'$GCSECTIONS',GCSectionsStr);
Replace(cmdstr,'$DYNLINK',DynLinkStr);
success:=DoExec(FindUtil(utilsprefix+BinStr),CmdStr,true,true);
@ -412,7 +420,8 @@ end;
Function TLinkerBeOS.MakeSharedLibrary:boolean;
var
binstr,
cmdstr : TCmdStr;
cmdstr,
SoNameStr : TCmdStr;
success : boolean;
DynLinkStr : string[60];
StaticStr,
@ -443,14 +452,18 @@ var
{ Write used files and libraries }
WriteResponseFile(true,true);
SoNameStr:='-soname '+ExtractFileName(current_module.sharedlibfilename^);
{ Call linker }
SplitBinCmd(Info.DllCmd[1],binstr,cmdstr);
Replace(cmdstr,'$EXE',maybequoted(current_module.exefilename^));
Replace(cmdstr,'$EXE',maybequoted(current_module.sharedlibfilename^));
Replace(cmdstr,'$OPT',Info.ExtraOptions);
Replace(cmdstr,'$RES',maybequoted(outputexedir+Info.ResName));
Replace(cmdstr,'$STATIC',StaticStr);
Replace(cmdstr,'$STRIP',StripStr);
Replace(cmdstr,'$DYNLINK',DynLinkStr);
Replace(cmdstr,'$SONAME',SoNameStr);
success:=DoExec(FindUtil(utilsprefix+binstr),cmdstr,true,true);
{ Strip the library ? }