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

Merged revisions 855 via svnmerge from

Browse Source 
/trunk

git-svn-id: branches/fixes_2_0@857 -
This commit is contained in:
florian 2005-08-13 20:59:14 +00:00
parent aaf81bc510
commit b815f6e101
6 changed files with 44 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -5955,6 +5955,7 @@ tests/webtbs/tw3913.pp svneol=native#text/plain
tests/webtbs/tw3939.pp svneol=native#text/plain
tests/webtbs/tw3953a.pp svneol=native#text/plain
tests/webtbs/tw3953b.pp svneol=native#text/plain
tests/webtbs/tw3964.pp -text
tests/webtbs/tw3967.pp svneol=native#text/plain
tests/webtbs/tw3968.pp svneol=native#text/plain
tests/webtbs/tw3970.pp svneol=native#text/plain
@ -6027,6 +6028,7 @@ tests/webtbs/uw3356.pp svneol=native#text/plain
tests/webtbs/uw3429.pp svneol=native#text/plain
tests/webtbs/uw3474a.pp svneol=native#text/plain
tests/webtbs/uw3474b.pp svneol=native#text/plain
tests/webtbs/uw3964.pp -text
tests/webtbs/uw3968.pp svneol=native#text/plain
tests/webtbs/uw4140.pp svneol=native#text/plain
utils/Makefile svneol=native#text/plain

6
compiler/psub.pas
View File

@ -1382,7 +1382,11 @@ implementation
consume_all_until(_SEMICOLON);
end
else if islibrary or
(target_info.system in [system_i386_WIN32,system_i386_wdosx,system_i386_Netware,system_i386_netwlibc]) then
(target_info.system in [
system_i386_win32,
system_i386_wdosx,
system_i386_Netware,
system_i386_netwlibc]+system_linux) then
read_exports
else
begin

4
compiler/systems.pas
View File

@ -292,10 +292,8 @@ interface
{ alias for supported_target field in tasminfo }
system_any = system_none;
system_wince : set of tsystem = [system_arm_wince,system_i386_wince];
system_linux : set of tsystem = [system_i386_linux,system_x86_64_linux,system_powerpc_linux,
system_arm_linux,system_sparc_linux,system_alpha_linux,system_m68k_linux,
system_x86_6432_linux];
system_arm_linux,system_sparc_linux,system_alpha_linux,system_m68k_linux];
cpu2str : array[TSystemCpu] of string =
('','i386','m68k','alpha','powerpc','sparc','vm','ia64','x86_64',

2
compiler/systems/t_linux.pas
View File

@ -518,6 +518,8 @@ begin
{ Strip the library ? }
if success and (cs_link_strip in aktglobalswitches) then
begin
{ only remove non global symbols and debugging info for a library }
Info.DllCmd[2]:='strip --discard-all --strip-debug $EXE';
SplitBinCmd(Info.DllCmd[2],binstr,cmdstr);
Replace(cmdstr,'$EXE',maybequoted(current_module.sharedlibfilename^));
success:=DoExec(FindUtil(utilsprefix+binstr),cmdstr,true,false);

18
tests/webtbs/tw3964.pp Normal file
View File

@ -0,0 +1,18 @@
{ %target=linux }
{$mode objfpc}
{$linklib libuw3964}
function testfunc : longint;public name 'testfunc';
begin
result:=1234;
end;
function f : longint;external name 'f';
exports
testfunc name 'testfunc';
begin
writeln(f);
end.

16
tests/webtbs/uw3964.pp Normal file
View File

@ -0,0 +1,16 @@
{ %target=linux }
{$mode objfpc}
library uw3964;
function testfunc : longint;external name 'testfunc';
function f : longint;public;
begin
result:=testfunc;
end;
exports
f;
begin
end.