|
@@ -18,6 +18,8 @@ interface
|
|
|
|
|
|
implementation
|
|
implementation
|
|
|
|
|
|
|
|
+{$ifndef ver2_6}
|
|
|
|
+
|
|
procedure PascalMain; cdecl; external name 'PASCALMAIN';
|
|
procedure PascalMain; cdecl; external name 'PASCALMAIN';
|
|
procedure SysEntry(constref info: TEntryInformation); external name 'FPC_SysEntry';
|
|
procedure SysEntry(constref info: TEntryInformation); external name 'FPC_SysEntry';
|
|
|
|
|
|
@@ -72,4 +74,6 @@ begin
|
|
SysEntry(SysInitEntryInformation);
|
|
SysEntry(SysInitEntryInformation);
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
+{$endif ver2_6}
|
|
|
|
+
|
|
end.
|
|
end.
|