public inbox for gcc-cvs@sourceware.org
help / color / mirror / Atom feed
From: Gaius Mulley <gaius@gcc.gnu.org>
To: gcc-cvs@gcc.gnu.org
Subject: [gcc/devel/modula-2] Add list of potential target datatype comments to SYSTEM.def
Date: Wed, 14 Dec 2022 12:18:23 +0000 (GMT)	[thread overview]
Message-ID: <20221214121823.A2A04382EF2C@sourceware.org> (raw)

https://gcc.gnu.org/g:2922dd0987902a0afa0a019f6e39a7582ff7954e

commit 2922dd0987902a0afa0a019f6e39a7582ff7954e
Author: Gaius Mulley <gaiusmod2@gmail.com>
Date:   Wed Dec 14 12:17:48 2022 +0000

    Add list of potential target datatype comments to SYSTEM.def
    
    Add list of potential target datatype comments to all SYSTEM.def
    files to improve usefulness of target independent documentation.
    
    gcc/m2/ChangeLog:
    
            * gm2-libs-coroutines/SYSTEM.def: Added list of data types.
            * gm2-libs-iso/SYSTEM.def: Added list of data types.
            * gm2-libs/SYSTEM.def: Added list of data types.
            * target-independent/SYSTEM-iso.texi: Rebuilt.
            * target-independent/SYSTEM-pim.texi: Rebuilt.
            * target-independent/gm2-libs.texi: Rebuilt.
    
    Signed-off-by: Gaius Mulley <gaiusmod2@gmail.com>

Diff:
---
 gcc/m2/gm2-libs-coroutines/SYSTEM.def     | 17 +++++++++-
 gcc/m2/gm2-libs-iso/SYSTEM.def            | 18 +++++++++--
 gcc/m2/gm2-libs/SYSTEM.def                | 18 +++++++++--
 gcc/m2/target-independent/SYSTEM-iso.texi | 18 +++++++++--
 gcc/m2/target-independent/SYSTEM-pim.texi | 18 +++++++++--
 gcc/m2/target-independent/gm2-libs.texi   | 53 ++++++++++++++++++++++++++++---
 6 files changed, 128 insertions(+), 14 deletions(-)

diff --git a/gcc/m2/gm2-libs-coroutines/SYSTEM.def b/gcc/m2/gm2-libs-coroutines/SYSTEM.def
index 4ceb284569b..d5650b60d01 100644
--- a/gcc/m2/gm2-libs-coroutines/SYSTEM.def
+++ b/gcc/m2/gm2-libs-coroutines/SYSTEM.def
@@ -51,7 +51,22 @@ TYPE
    PROCESS  = RECORD
                  context: INTEGER ;
               END ;
-(* all the following types are declared internally to gm2
+
+(* Note that the full list of system and sized datatypes include:
+   LOC, WORD, BYTE, ADDRESS,
+
+   (and the non language standard target types)
+
+   INTEGER8, INTEGER16, INTEGER32, INTEGER64,
+   CARDINAL8, CARDINAL16, CARDINAL32, CARDINAL64,
+   WORD16, WORD32, WORD64, BITSET8, BITSET16,
+   BITSET32, REAL32, REAL64, REAL128, COMPLEX32,
+   COMPLEX64, COMPLEX128, CSIZE_T, CSSIZE_T.
+
+   Also note that the non-standard data types will
+   move into another module in the future.  *)
+
+(* The following types are supported on this target:
    @SYSTEM_TYPES@
 *)
 
diff --git a/gcc/m2/gm2-libs-iso/SYSTEM.def b/gcc/m2/gm2-libs-iso/SYSTEM.def
index 638b50b3c8d..716793b706f 100644
--- a/gcc/m2/gm2-libs-iso/SYSTEM.def
+++ b/gcc/m2/gm2-libs-iso/SYSTEM.def
@@ -34,9 +34,23 @@ CONST
                   (* <implementation-defined constant> ; *)
   LOCSPERBYTE = 8 DIV BITSPERLOC ;
 
+(* Note that the full list of system and sized datatypes include:
+   LOC, WORD, BYTE, ADDRESS,
+
+   (and the non language standard target types)
+
+   INTEGER8, INTEGER16, INTEGER32, INTEGER64,
+   CARDINAL8, CARDINAL16, CARDINAL32, CARDINAL64,
+   WORD16, WORD32, WORD64, BITSET8, BITSET16,
+   BITSET32, REAL32, REAL64, REAL128, COMPLEX32,
+   COMPLEX64, COMPLEX128, CSIZE_T, CSSIZE_T.
+
+   Also note that the non-standard data types will
+   move into another module in the future.  *)
+
 (*
-   all the objects below are declared internally to gm2
-   ====================================================
+   All the data types and procedures below are declared internally.
+   ===============================================================
 
 TYPE
    @SYSTEM_TYPES@
diff --git a/gcc/m2/gm2-libs/SYSTEM.def b/gcc/m2/gm2-libs/SYSTEM.def
index a26ea04cabe..2667e3bcdf5 100644
--- a/gcc/m2/gm2-libs/SYSTEM.def
+++ b/gcc/m2/gm2-libs/SYSTEM.def
@@ -35,8 +35,22 @@ CONST
   BITSPERBYTE   = __ATTRIBUTE__ __BUILTIN__ ((BITS_PER_UNIT)) ;
   BYTESPERWORD  = __ATTRIBUTE__ __BUILTIN__ ((UNITS_PER_WORD)) ;
 
+(* Note that the full list of system and sized datatypes include:
+   LOC, WORD, BYTE, ADDRESS,
 
-(* all the following types are declared internally to gm2
+   (and the non language standard target types)
+
+   INTEGER8, INTEGER16, INTEGER32, INTEGER64,
+   CARDINAL8, CARDINAL16, CARDINAL32, CARDINAL64,
+   WORD16, WORD32, WORD64, BITSET8, BITSET16,
+   BITSET32, REAL32, REAL64, REAL128, COMPLEX32,
+   COMPLEX64, COMPLEX128, CSIZE_T, CSSIZE_T.
+
+   Also note that the non-standard data types will
+   move into another module in the future.  *)
+
+
+(* The following types are supported on this target:
 TYPE
    @SYSTEM_TYPES@
 *)
@@ -44,7 +58,7 @@ TYPE
 
 (*
    all the functions below are declared internally to gm2
-   ====================================================
+   ======================================================
 
 PROCEDURE ADR (VAR v: <anytype>): ADDRESS;
   (* Returns the address of variable v. *)
diff --git a/gcc/m2/target-independent/SYSTEM-iso.texi b/gcc/m2/target-independent/SYSTEM-iso.texi
index 052c1ce2218..ece68a1fcdc 100644
--- a/gcc/m2/target-independent/SYSTEM-iso.texi
+++ b/gcc/m2/target-independent/SYSTEM-iso.texi
@@ -29,9 +29,23 @@ CONST
 @findex LOCSPERBYTE (const)
   LOCSPERBYTE = 8 DIV BITSPERLOC ;
 
+(* Note that the full list of system and sized datatypes include:
+   LOC, WORD, BYTE, ADDRESS,
+
+   (and the non language standard target types)
+
+   INTEGER8, INTEGER16, INTEGER32, INTEGER64,
+   CARDINAL8, CARDINAL16, CARDINAL32, CARDINAL64,
+   WORD16, WORD32, WORD64, BITSET8, BITSET16,
+   BITSET32, REAL32, REAL64, REAL128, COMPLEX32,
+   COMPLEX64, COMPLEX128, CSIZE_T, CSSIZE_T.
+
+   Also note that the non-standard data types will
+   move into another module in the future.  *)
+
 (*
-   all the objects below are declared internally to gm2
-   ====================================================
+   All the data types and procedures below are declared internally.
+   ===============================================================
 
 TYPE
    (* Target specific data types.  *)
diff --git a/gcc/m2/target-independent/SYSTEM-pim.texi b/gcc/m2/target-independent/SYSTEM-pim.texi
index 21c1e8300c5..e2afa9d67cc 100644
--- a/gcc/m2/target-independent/SYSTEM-pim.texi
+++ b/gcc/m2/target-independent/SYSTEM-pim.texi
@@ -14,8 +14,22 @@ CONST
 @findex BYTESPERWORD (const)
   BYTESPERWORD  = __ATTRIBUTE__ __BUILTIN__ ((UNITS_PER_WORD)) ;
 
+(* Note that the full list of system and sized datatypes include:
+   LOC, WORD, BYTE, ADDRESS,
 
-(* all the following types are declared internally to gm2
+   (and the non language standard target types)
+
+   INTEGER8, INTEGER16, INTEGER32, INTEGER64,
+   CARDINAL8, CARDINAL16, CARDINAL32, CARDINAL64,
+   WORD16, WORD32, WORD64, BITSET8, BITSET16,
+   BITSET32, REAL32, REAL64, REAL128, COMPLEX32,
+   COMPLEX64, COMPLEX128, CSIZE_T, CSSIZE_T.
+
+   Also note that the non-standard data types will
+   move into another module in the future.  *)
+
+
+(* The following types are supported on this target:
 TYPE
    (* Target specific data types.  *)
 *)
@@ -23,7 +37,7 @@ TYPE
 
 (*
    all the functions below are declared internally to gm2
-   ====================================================
+   ======================================================
 
 @findex ADR
 PROCEDURE ADR (VAR v: <anytype>): ADDRESS;
diff --git a/gcc/m2/target-independent/gm2-libs.texi b/gcc/m2/target-independent/gm2-libs.texi
index 539b2ae760c..09627bde702 100644
--- a/gcc/m2/target-independent/gm2-libs.texi
+++ b/gcc/m2/target-independent/gm2-libs.texi
@@ -3189,8 +3189,22 @@ CONST
 @findex BYTESPERWORD (const)
   BYTESPERWORD  = __ATTRIBUTE__ __BUILTIN__ ((UNITS_PER_WORD)) ;
 
+(* Note that the full list of system and sized datatypes include:
+   LOC, WORD, BYTE, ADDRESS,
 
-(* all the following types are declared internally to gm2
+   (and the non language standard target types)
+
+   INTEGER8, INTEGER16, INTEGER32, INTEGER64,
+   CARDINAL8, CARDINAL16, CARDINAL32, CARDINAL64,
+   WORD16, WORD32, WORD64, BITSET8, BITSET16,
+   BITSET32, REAL32, REAL64, REAL128, COMPLEX32,
+   COMPLEX64, COMPLEX128, CSIZE_T, CSSIZE_T.
+
+   Also note that the non-standard data types will
+   move into another module in the future.  *)
+
+
+(* The following types are supported on this target:
 TYPE
    (* Target specific data types.  *)
 *)
@@ -3198,7 +3212,7 @@ TYPE
 
 (*
    all the functions below are declared internally to gm2
-   ====================================================
+   ======================================================
 
 @findex ADR
 PROCEDURE ADR (VAR v: <anytype>): ADDRESS;
@@ -8501,7 +8515,22 @@ TYPE
                  context: INTEGER ;
 @findex END (type)
               END ;
-(* all the following types are declared internally to gm2
+
+(* Note that the full list of system and sized datatypes include:
+   LOC, WORD, BYTE, ADDRESS,
+
+   (and the non language standard target types)
+
+   INTEGER8, INTEGER16, INTEGER32, INTEGER64,
+   CARDINAL8, CARDINAL16, CARDINAL32, CARDINAL64,
+   WORD16, WORD32, WORD64, BITSET8, BITSET16,
+   BITSET32, REAL32, REAL64, REAL128, COMPLEX32,
+   COMPLEX64, COMPLEX128, CSIZE_T, CSSIZE_T.
+
+   Also note that the non-standard data types will
+   move into another module in the future.  *)
+
+(* The following types are supported on this target:
    (* Target specific data types.  *)
 *)
 
@@ -13120,9 +13149,23 @@ CONST
 @findex LOCSPERBYTE (const)
   LOCSPERBYTE = 8 DIV BITSPERLOC ;
 
+(* Note that the full list of system and sized datatypes include:
+   LOC, WORD, BYTE, ADDRESS,
+
+   (and the non language standard target types)
+
+   INTEGER8, INTEGER16, INTEGER32, INTEGER64,
+   CARDINAL8, CARDINAL16, CARDINAL32, CARDINAL64,
+   WORD16, WORD32, WORD64, BITSET8, BITSET16,
+   BITSET32, REAL32, REAL64, REAL128, COMPLEX32,
+   COMPLEX64, COMPLEX128, CSIZE_T, CSSIZE_T.
+
+   Also note that the non-standard data types will
+   move into another module in the future.  *)
+
 (*
-   all the objects below are declared internally to gm2
-   ====================================================
+   All the data types and procedures below are declared internally.
+   ===============================================================
 
 TYPE
    (* Target specific data types.  *)

                 reply	other threads:[~2022-12-14 12:18 UTC|newest]

Thread overview: [no followups] expand[flat|nested]  mbox.gz  Atom feed

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=20221214121823.A2A04382EF2C@sourceware.org \
    --to=gaius@gcc.gnu.org \
    --cc=gcc-cvs@gcc.gnu.org \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body. 
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).