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

AROS: CreateRastPort as explicit function only needed for ABIv1 (for v0 in graphics.library)

Browse Source 
git-svn-id: trunk@35075 -
This commit is contained in:
marcus 2016-12-05 07:22:05 +00:00
parent afaefc32e8
commit 8917b476c0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/arosunits/src/agraphics.pas
View File

@ -2478,7 +2478,7 @@ procedure CEND(c: PUCopList); inline;
begin begin
CWAIT(c, 10000, 255); CWAIT(c, 10000, 255);
end; end;
{$ifdef AROS_ABIv1}
function CreateRastPort: PRastPort; function CreateRastPort: PRastPort;
var var
RP: PRastPort; RP: PRastPort;
@ -2507,7 +2507,7 @@ begin
if Assigned(Rp) then if Assigned(Rp) then
FreeMem(Rp); FreeMem(Rp);
end; end;
{$endif}
initialization initialization
GfxBase := PGfxBase(OpenLibrary(GRAPHICSNAME, 36)); GfxBase := PGfxBase(OpenLibrary(GRAPHICSNAME, 36));
finalization finalization