Skip to content

Using of LLVM13 fix of OSErrorPosix.m3 from m3-libs--libm3--src--os--POSIX #1166

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
VictorMiasnikov wants to merge 1 commit into
base: master
Choose a base branch
from
Open

Using of LLVM13 fix of OSErrorPosix.m3 from m3-libs--libm3--src--os--POSIX #1166

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
8 changes: 4 additions & 4 deletions m3-libs/libm3/src/os/POSIX/OSErrorPosix.m3
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -10,7 +10,7 @@ IMPORT Atom, AtomList, Cerrno, Fmt, OSError, Text, Uerror;
IMPORT RTIO, <*NOWARN*>RTParams;

VAR debug: BOOLEAN;
VAR cache := ARRAY [0..Uerror.Max] OF Atom.T {NIL, ..};
VAR cache_of_OSErrorPosix_m3 := ARRAY [0..Uerror.Max] OF Atom.T {NIL, ..};
(* The table is initialized lazily. *)

PROCEDURE NewAtom (n: INTEGER): Atom.T =
Expand All @@ -20,9 +20,9 @@ PROCEDURE NewAtom (n: INTEGER): Atom.T =

PROCEDURE ErrnoAtom(n: INTEGER): Atom.T =
BEGIN
IF n >= 0 AND n < NUMBER (cache) THEN
IF cache[n] = NIL THEN cache[n] := NewAtom(n) END;
RETURN cache[n]
IF n >= 0 AND n < NUMBER (cache_of_OSErrorPosix_m3) THEN
IF cache_of_OSErrorPosix_m3[n] = NIL THEN cache_of_OSErrorPosix_m3[n] := NewAtom(n) END;
RETURN cache_of_OSErrorPosix_m3[n]
ELSE
RETURN NewAtom (n);
END;
Expand Down