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