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

Merge forgotten go32v2 2.6.0 branch changes back into trunk.

Browse Source 
* Change it also in TInternalLinkerGo32v2.DefaultLinkScript method.
------------------------------------------------------------------------
r20578 | pierre | 2012-03-22 17:34:35 +0100 (Thu, 22 Mar 2012) | 1 line

 Force _environ to be the same as __environ
------------------------------------------------------------------------

git-svn-id: trunk@24229 -
This commit is contained in:
pierre 2013-04-12 10:25:13 +00:00
parent a08d0eb693
commit 8a6e057fca
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/systems/t_go32v2.pas
View File

@ -137,7 +137,7 @@ implementation
Concat(' OBJSECTION .dtors');
Concat(' SYMBOL djgpp_last_dtor');
Concat(' SYMBOL __environ');
Concat(' PROVIDE _environ');
Concat(' SYMBOL _environ');
Concat(' LONG 0');
Concat(' OBJSECTION .data*');
Concat(' OBJSECTION .fpc*');
@ -309,11 +309,14 @@ begin
ScriptRes.Add(' *(.dtors)');
ScriptRes.Add(' djgpp_last_dtor = . ;');
ScriptRes.Add(' __environ = . ;');
ScriptRes.Add(' PROVIDE(_environ = .);');
ScriptRes.Add(' _environ = .;');
ScriptRes.Add(' LONG(0)');
ScriptRes.Add(' . = ALIGN(0x20);');
ScriptRes.Add(' *(.data)');
ScriptRes.Add(' *(.data.*)');
ScriptRes.Add(' . = ALIGN(0x20);');
ScriptRes.Add(' *(.fpc*)');
ScriptRes.Add(' . = ALIGN(0x20);');
ScriptRes.Add(' *(.gcc_exc)');
ScriptRes.Add(' ___EH_FRAME_BEGIN__ = . ;');
ScriptRes.Add(' *(.eh_fram*)');