paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-22 04:09:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ updated t_jack.h2paschk with the new ringbuffer structures

Browse Source
This commit is contained in:
Nikolay Nikolov 2025-01-05 12:46:13 +02:00
parent 846250b831
commit decb6ab3c6
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
packages/libjack/src/t_jack.h2paschk
View File

@ -7,10 +7,11 @@
# the Pascal program produces the same output as the C program for each # the Pascal program produces the same output as the C program for each
# supported architecture. # supported architecture.
@Pascal uses jack; @Pascal uses jack, jackringbuffer;
@Pascal begin @Pascal begin
@C #include <jack/jack.h> @C #include <jack/jack.h>
@C #include <jack/ringbuffer.h>
@C #include <stdio.h> @C #include <stdio.h>
@C #include <stddef.h> @C #include <stddef.h>
@C int main() @C int main()
@ -109,6 +110,18 @@
.ticks_per_beat .ticks_per_beat
.beats_per_minute .beats_per_minute
@record jack_ringbuffer_data_t
.buf
.len
@record jack_ringbuffer_t
.buf
.write_ptr
.read_ptr
.size
.size_mask
.mlocked
@C return 0; @C return 0;
@C } @C }