C Programm nach Pascal

[SvB]

Es gibt doch noch ein kleines Problem und zwar habe ich noch folgende Zeilen, die ich wohl nicht richtig übersetzt habe. Könnt Ihr mir noch mal helfen:

Code:

#define MAP_SIZE 4096UL
#define MAP_MASK (MAP_SIZE -1)

#define PIOA_BASE 0xfffff400UL
#define PIOB_BASE 0xfffff600UL
.
.
.
//man beachte die ~ hinten vor MAP_MASK
map_base = mmap(0, MAP_SIZE, PROT_READ | PROT_WRITE, MAP_SHARED, fd, PIOA_BASE & ~MAP_MASK);

Ich habe folgendes draus gemacht:

Delphi-Quellcode:

const
MAP_SIZE = 4096;
MAP_MASK = (MAP_SIZE -1);

PIOA_BASE = $fffff400;
PIOB_BASE = $fffff600;
.
.
.
map_base := fpmmap(nil, MAP_SIZE, PROT_READ or PROT_WRITE, MAP_SHARED, fd, PIOA_BASE and MAP_MASK);

Danke Sven