git-svn-id: trunk@35369 -
@@ -146,7 +146,9 @@ end;
{$ifndef FPC_USE_WIN64_SEH}
procedure install_exception_handlers;forward;
{$endif FPC_USE_WIN64_SEH}
+{$ifdef VER3_0}
procedure PascalMain;external name 'PASCALMAIN';
+{$endif VER3_0}
{ include code common with win32 }
{$I syswin.inc}