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

* added support for libc

Browse Source
This commit is contained in:
armin 2004-08-30 11:17:34 +00:00
parent d8501af1df
commit 5595281c4f
1 changed files with 17 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
compiler/systems/t_nwm.pas
View File

@ -352,7 +352,11 @@ begin
{ add objectfiles, start with nwpre always } { add objectfiles, start with nwpre always }
LinkRes.Add ('INPUT ('); LinkRes.Add ('INPUT (');
{$ifdef NETWARE_LIBC}
s2 := FindObjectFile('nwplibc','',false);
{$else}
s2 := FindObjectFile('nwpre','',false); s2 := FindObjectFile('nwpre','',false);
{$endif}
Comment (V_Debug,'adding Object File '+s2); Comment (V_Debug,'adding Object File '+s2);
{$ifndef netware} LinkRes.Add (s2); {$else} LinkRes.Add (FExpand(s2)); {$endif} {$ifndef netware} LinkRes.Add (s2); {$else} LinkRes.Add (FExpand(s2)); {$endif}
@ -376,10 +380,16 @@ begin
{$endif} {$endif}
{ start and stop-procedures } { start and stop-procedures }
{$ifdef NETWARE_LIBC}
NLMConvLinkFile.Add ('START _LibCPrelude');
NLMConvLinkFile.Add ('EXIT _LibCPostlude');
NLMConvLinkFile.Add ('CHECK _LibCCheckUnload');
{$else}
NLMConvLinkFile.Add ('START _Prelude'); { defined in rtl/netware/nwpre.as } NLMConvLinkFile.Add ('START _Prelude'); { defined in rtl/netware/nwpre.as }
NLMConvLinkFile.Add ('EXIT _Stop'); { nwpre.as } NLMConvLinkFile.Add ('EXIT _Stop'); { nwpre.as }
NLMConvLinkFile.Add ('CHECK FPC_NW_CHECKFUNCTION'); { system.pp } NLMConvLinkFile.Add ('CHECK FPC_NW_CHECKFUNCTION'); { system.pp }
{$endif}
if not (cs_link_strip in aktglobalswitches) then if not (cs_link_strip in aktglobalswitches) then
begin begin
NLMConvLinkFile.Add ('DEBUG'); NLMConvLinkFile.Add ('DEBUG');
@ -463,7 +473,8 @@ begin
end end
else else
{ really, i think it is possible } { really, i think it is possible }
Comment(V_Error,'Exporting of variables is not supported under netware'); {Comment(V_Error,'Exporting of variables is not supported under netware');}
Message1(parser_e_no_export_of_variables_for_target,'netware');
hp2:=texported_item(hp2.next); hp2:=texported_item(hp2.next);
end; end;
@ -569,7 +580,10 @@ initialization
end. end.
{ {
$Log$ $Log$
Revision 1.13 2004-08-01 19:29:06 armin Revision 1.14 2004-08-30 11:17:34 armin
* added support for libc
Revision 1.13 2004/08/01 19:29:06 armin
* changes to compile fpc on netware * changes to compile fpc on netware
Revision 1.12 2004/07/30 16:00:19 armin Revision 1.12 2004/07/30 16:00:19 armin