Fixes the example for FPC 2.6+

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2126 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2011-11-13 13:41:13 +00:00
parent 23bd17e00a
commit 3b42dcedbb

View File

@ -278,12 +278,16 @@ begin
end; end;
end; end;
// This code is unnecessary in FPC 2.6+,
// it was required when the 2.5.1 snapshot was created
{$ifdef ver2_5}
procedure PASCALMAIN; external name 'PASCALMAIN'; procedure PASCALMAIN; external name 'PASCALMAIN';
procedure FPC_SHARED_LIB_START; [public, alias: 'FPC_SHARED_LIB_START']; procedure FPC_SHARED_LIB_START; [public, alias: 'FPC_SHARED_LIB_START'];
begin begin
PASCALMAIN; PASCALMAIN;
end; end;
{$endif}
exports //android_main name 'android_main', exports //android_main name 'android_main',
ANativeActivity_onCreate name 'ANativeActivity_onCreate'; ANativeActivity_onCreate name 'ANativeActivity_onCreate';