diff options
Diffstat (limited to 'gcc/m2')
| -rw-r--r-- | gcc/m2/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/m2/gm2-libs-iso/IOChanUtils.def | 8 | ||||
| -rw-r--r-- | gcc/m2/gm2-libs-iso/IOChanUtils.mod | 12 |
3 files changed, 25 insertions, 1 deletions
diff --git a/gcc/m2/ChangeLog b/gcc/m2/ChangeLog index 04211a0..f7254f9 100644 --- a/gcc/m2/ChangeLog +++ b/gcc/m2/ChangeLog @@ -1,3 +1,9 @@ +2025-07-01 Gaius Mulley <gaiusmod2@gmail.com> + + PR modula2/120912 + * gm2-libs-iso/IOChanUtils.def (GetFile): New procedure function. + * gm2-libs-iso/IOChanUtils.mod (GetFile): New procedure function. + 2025-06-29 Gaius Mulley <gaiusmod2@gmail.com> PR modula2/117203 diff --git a/gcc/m2/gm2-libs-iso/IOChanUtils.def b/gcc/m2/gm2-libs-iso/IOChanUtils.def index e38f83a..3a8a0c6 100644 --- a/gcc/m2/gm2-libs-iso/IOChanUtils.def +++ b/gcc/m2/gm2-libs-iso/IOChanUtils.def @@ -11,6 +11,7 @@ DEFINITION MODULE IOChanUtils ; *) FROM DynamicStrings IMPORT String ; +FROM FIO IMPORT File ; IMPORT IOChan ; @@ -24,4 +25,11 @@ IMPORT IOChan ; PROCEDURE GetFileName (c: IOChan.ChanId) : String ; +(* + GetFile - returns the FIO.File associated with ChanId c. +*) + +PROCEDURE GetFile (c: IOChan.ChanId) : File ; + + END IOChanUtils. diff --git a/gcc/m2/gm2-libs-iso/IOChanUtils.mod b/gcc/m2/gm2-libs-iso/IOChanUtils.mod index 5cbb2a9..168fe0d 100644 --- a/gcc/m2/gm2-libs-iso/IOChanUtils.mod +++ b/gcc/m2/gm2-libs-iso/IOChanUtils.mod @@ -11,8 +11,18 @@ IMPORT IOChan, SFIO, RTio ; PROCEDURE GetFileName (c: IOChan.ChanId) : String ; BEGIN - RETURN SFIO.GetFileName (RTio.GetFile (c)) + RETURN SFIO.GetFileName (GetFile (c)) END GetFileName ; +(* + GetFile - returns the FIO.File associated with ChanId c. +*) + +PROCEDURE GetFile (c: IOChan.ChanId) : File ; +BEGIN + RETURN RTio.GetFile (c) +END GetFile ; + + END IOChanUtils. |