CUDA in Delphi

I created CUDA wrapper for pascal language :)

http://code.google.com/p/pascuda/

I tested CUFFFT and “CUDA Kernel API”

and all works OK, “CUDA Runtime API” exists too but I tested only “cudaGetDeviceCount” and “cudaGetDeviceProperties”

At this moment is one example

https://code.google.com/p/pascuda/source/browse/trunk/examples/add_vector/add_vector.dpr

simple kernel:

__global__ 

void add(int *a, int *b, int *c, int *n)

{

  int index = blockIdx.x;

  if( index < *n)

  {

    c[index] = a[index] + b[index] ;

  }

}

I tested my code only in Delphi 2010

but should works in freepascal

CUDA + Delphi = http://code.google.com/p/pascuda/

:D