hyung-hwan/hcl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

more input stream handling code
All checks were successful
continuous-integration/drone/push Build is passing
Details

Browse Source
This commit is contained in:
hyung-hwan
2024-05-19 17:09:31 +09:00
parent 0bf106532d
commit 4ab0187260
6 changed files with 231 additions and 58 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
pas/hcl.pas
View File

@ -50,7 +50,7 @@ type
CciArg = record (* this record must follow the public part of hcl_io_cciarg_t in hcl.h *)
name: pwidechar;
handle: pointer;
is_bytes: integer;
byte_oriented: integer;
buf: array[0..(HCL_CCI_BUF_LEN - 1)] of widechar;
xlen: System.SizeUint;
includer: CciArgPtr;
@ -296,7 +296,7 @@ begin
nf^.name := name;
arg^.handle := pointer(nf);
arg^.is_bytes := 1;
arg^.byte_oriented := 1;
end;
IO_CLOSE: begin