alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix bindings.

Browse Source
This commit is contained in:
Brad Nelson
2022-01-08 15:44:40 -08:00
parent 545e7098d7
commit a81e01aaa5
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
ueforth/esp32/bindings.fs
View File

@ -98,7 +98,7 @@ transfer{
1 constant SPI_PARTITION_TYPE_DATA 1 constant SPI_PARTITION_TYPE_DATA
$ff constant SPI_PARTITION_SUBTYPE_ANY $ff constant SPI_PARTITION_SUBTYPE_ANY
( Work around changing struct layout ) ( Work around changing struct layout )
: p>common ( part -- part' ) esp_partition_t_size 44 >= if cell+ then ; : p>common ( part -- part' ) esp_partition_t_size 40 >= if cell+ then ;
: p>type ( part -- n ) p>common @ ; : p>type ( part -- n ) p>common @ ;
: p>subtype ( part -- n ) p>common cell+ @ ; : p>subtype ( part -- n ) p>common cell+ @ ;
: p>address ( part -- n ) p>common 2 cells + @ ; : p>address ( part -- n ) p>common 2 cells + @ ;