platform_error is returned by the built-in function platform when the current platform is unknown (NOTE: This can not happen using the current or previous versions of Irie Pascal).
The following simple program displays the current platform.
program ShowPlatform(output);
begin
case platform of
platform_dos: writeln('DOS');
platform_os2: writeln('OS/2');
platform_win32: writeln('Windows');
platform_linux: writeln('Linux');
platform_fbsd: writeln('FreeBSD');
platform_solaris: writeln('Solaris/x86');
platform_solaris_sparc: writeln('Solaris/Sparc');
platform_error: writeln('Unknown Platform');
end
end.
Operating Systems: All
Standard Pascal: No