When trying to build my library under freepascal 2.1.1 i get the following error:
rpExposedMaterial.pas(20,1) Warning: Use of unsupported feature!
rpExposedMaterial.pas(20,1) Fatal: Syntax error, "BEGIN" expected but "EXPORTS" found
with this code
Code:
unit rpExposedMaterial;
interface
uses
libNewtonImport, RageExposedTypes, VectorTypes, VectorGeometry, RagePhysicsHeader;
implementation
procedure rpMaterialSetContactTangentDirection(aMaterial: PrpMaterial; aDirection: TVector3f); stdcall;
begin
NewtonMaterialContactRotateTangentDirections(PNewtonMaterial(aMaterial), @aDirection[0]);
end;
procedure rpMaterialSetContactTangentAcceleration(aMaterial: PrpMaterial; aAcceleration: Single; aIndex: Integer); stdcall;
begin
NewtonMaterialSetContactTangentAcceleration(PNewtonMaterial(aMaterial), aAcceleration, aIndex);
end;
exports
rpMaterialSetContactTangentDirection, rpMaterialSetContactTangentAcceleration;
end.
Surely creating libraries isnt unsupported?
Bookmarks