Add support for EILSEQ errno value.

EILSEQ is required by C95 and later.
This commit is contained in:
Stephen Heumann 2021-10-02 14:34:35 -05:00
parent 09942026a8
commit ae504c6e4f
4 changed files with 6 additions and 3 deletions

View File

@ -19,6 +19,7 @@ EMFILE gequ 8 too many files are open
EACCES gequ 9 access bits prevent the operation EACCES gequ 9 access bits prevent the operation
EEXIST gequ 10 the file exists EEXIST gequ 10 the file exists
ENOSPC gequ 11 the file is too large ENOSPC gequ 11 the file is too large
EILSEQ gequ 12 encoding error
; ;
; masks for the __ctype array ; masks for the __ctype array
; ;

View File

@ -2179,7 +2179,7 @@ rts creturn 4:s
**************************************************************** ****************************************************************
* *
perror start perror start
maxErr equ ENOSPC max error in sys_errlist maxErr equ EILSEQ max error in sys_errlist
s equ 4 string address s equ 4 string address
@ -3010,6 +3010,7 @@ sys_errlist start
dc a4'EACCESS' dc a4'EACCESS'
dc a4'EEXISTS' dc a4'EEXISTS'
dc a4'ENOSPC' dc a4'ENOSPC'
dc a4'EILSEQ'
! Note: if more errors are added, change maxErr in perror() and strerror(). ! Note: if more errors are added, change maxErr in perror() and strerror().
@ -3025,6 +3026,7 @@ EMFILE cstr 'too many files are open'
EACCESS cstr 'access bits prevent the operation' EACCESS cstr 'access bits prevent the operation'
EEXISTS cstr 'the file exists' EEXISTS cstr 'the file exists'
ENOSPC cstr 'the file is too large' ENOSPC cstr 'the file is too large'
EILSEQ cstr 'encoding error'
end end
**************************************************************** ****************************************************************

View File

@ -912,7 +912,7 @@ lb2 sty set set the disp past the current disp
**************************************************************** ****************************************************************
* *
strerror start strerror start
maxErr equ ENOSPC max error in sys_errlist maxErr equ EILSEQ max error in sys_errlist
phb get the error number phb get the error number
plx plx

View File

@ -31,7 +31,7 @@ _ownerid entry user ID (C)
~USER_ID entry user ID (Pascal, libraries) ~USER_ID entry user ID (Pascal, libraries)
ds 2 ds 2
sys_nerr entry # of error messages sys_nerr entry # of error messages
dc i'12' dc i'13'
_toolErr entry last error in a tool call (C) _toolErr entry last error in a tool call (C)
~TOOLERROR entry last error in a tool call (Pascal) ~TOOLERROR entry last error in a tool call (Pascal)
ds 2 ds 2