mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-10-31 13:21:29 +01:00
68 lines
1.3 KiB
ObjectPascal
68 lines
1.3 KiB
ObjectPascal
unit MissingH2PasDirectives;
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils;
|
|
|
|
{$ifndef MPIO_INCLUDE}
|
|
{$ifndef HAVE_MPI_DARRAY_SUBARRAY}
|
|
{$undef HAVE_MPI_DARRAY_SUBARRAY}
|
|
{$define HAVE_MPI_DARRAY_SUBARRAY}
|
|
{$endif}
|
|
{$ifndef HAVE_PRAGMA_HP_SEC_DEF}
|
|
{$ifndef HAVE_MPI_DARRAY_SUBARRAY}
|
|
type c = char;
|
|
{$endif}
|
|
{$endif}
|
|
{$endif}
|
|
|
|
{$ifndef MPI_INCLUDED}
|
|
{$define MPI_INCLUDED}
|
|
|
|
{ was #define dname def_expr }
|
|
function MPI_CHAR : MPI_Datatype;
|
|
{ was #define dname def_expr }
|
|
function MPI_SIGNED_CHAR : MPI_Datatype;
|
|
|
|
{$ENDIF}
|
|
|
|
{$ifndef MPI_INCLUDED2}
|
|
|
|
{ was #define dname def_expr }
|
|
function MPI_CHAR : MPI_Datatype;
|
|
{ was #define dname def_expr }
|
|
function MPI_SIGNED_CHAR : MPI_Datatype;
|
|
|
|
{$ENDIF}
|
|
|
|
implementation
|
|
|
|
{ was #define dname def_expr }
|
|
function MPI_CHAR : MPI_Datatype;
|
|
begin
|
|
MPI_CHAR:=MPI_Datatype($4c000101);
|
|
end;
|
|
|
|
{ was #define dname def_expr }
|
|
function MPI_SIGNED_CHAR : MPI_Datatype;
|
|
begin
|
|
MPI_SIGNED_CHAR:=MPI_Datatype($4c000118);
|
|
end;
|
|
|
|
{ was #define dname def_expr }
|
|
function MPI_CHAR : MPI_Datatype;
|
|
begin
|
|
MPI_CHAR:=MPI_Datatype($4c000101);
|
|
end;
|
|
|
|
{ was #define dname def_expr }
|
|
function MPI_SIGNED_CHAR : MPI_Datatype;
|
|
begin
|
|
MPI_SIGNED_CHAR:=MPI_Datatype($4c000118);
|
|
end;
|
|
|
|
end.
|
|
|