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

fixed some recently added external vs. public mixup, so Amiga binaries even link again

Browse Source 
git-svn-id: trunk@27736 -
This commit is contained in:
Károly Balogh 2014-05-04 23:11:38 +00:00
parent 633eeb79ed
commit fbc7b3d89a
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/amiga/system.pp
View File

@ -62,11 +62,11 @@ const
var
AOS_ExecBase : Pointer; external name '_ExecBase';
_ExecBase: Pointer; external name '_ExecBase'; { amunits compatibility kludge }
AOS_DOSBase : Pointer; external name '_DOSBase'; { the "external" part is amunits compatibility kludge }
AOS_DOSBase : Pointer; public name '_DOSBase'; { the "public" part is amunits compatibility kludge }
_DOSBase: Pointer; external name '_DOSBase'; { amunits compatibility kludge }
AOS_UtilityBase: Pointer; external name '_UtilityBase'; { the "external" part is amunits compatibility kludge }
AOS_UtilityBase: Pointer; public name '_UtilityBase'; { the "public" part is amunits compatibility kludge }
_UtilityBase: Pointer; external name '_UtilityBase'; { amunits compatibility kludge }
AOS_IntuitionBase: Pointer; external name '_IntuitionBase'; { amunits compatibility kludge }
AOS_IntuitionBase: Pointer; public name '_IntuitionBase'; { amunits compatibility kludge }
_IntuitionBase: Pointer; external name '_IntuitionBase'; { amunits compatibility kludge }
{$IFDEF AMIGAOS4}
@ -79,7 +79,7 @@ var
AOS_heapPool : Pointer; { pointer for the OS pool for growing the heap }
AOS_origDir : LongInt; { original directory on startup }
AOS_wbMsg : Pointer; external name '_WBenchMsg'; { the "external" part is amunits compatibility kludge }
AOS_wbMsg : Pointer; public name '_WBenchMsg'; { the "public" part is amunits compatibility kludge }
_WBenchMsg : Pointer; external name '_WBenchMsg'; { amunits compatibility kludge }
AOS_ConName : PChar ='CON:10/30/620/100/FPC Console Output/AUTO/CLOSE/WAIT';
AOS_ConHandle: LongInt;