Whilst there is an existing implementation of dma-alloc, it is currently unused so we can make this change now.
Signed-off-by: Mark Cave-Ayland mark.cave-ayland@ilande.co.uk --- forth/device/other.fs | 8 +++++--- forth/device/table.fs | 2 +- 2 files changed, 6 insertions(+), 4 deletions(-)
diff --git a/forth/device/other.fs b/forth/device/other.fs index b390073..1bed9b8 100644 --- a/forth/device/other.fs +++ b/forth/device/other.fs @@ -228,6 +228,8 @@ variable obp-ticks strdup my-self >in.arguments 2! ;
-: dma-alloc - s" dma-alloc" $call-parent - ; +defer (dma-alloc) +defer (dma-free) +defer (dma-map-in) +defer (dma-map-out) +defer (dma-sync) diff --git a/forth/device/table.fs b/forth/device/table.fs index 5c58f2d..04d22c8 100644 --- a/forth/device/table.fs +++ b/forth/device/table.fs @@ -247,7 +247,7 @@ create fcode-master-table ['], 4-byte-id ['], end1 ['], reserved-fcode - ['], dma-alloc + ['], (dma-alloc) ['], my-address ['], my-space ['], memmap