[gcc/devel/modula-2] Bugfix gm2_type_for_size. Patchset suggestion missed.

[Gaius Mulley <gaius@gcc.gnu.org>]

https://gcc.gnu.org/g:98b201a33be33a60e10e67fb7f6c9d0fc5da00fc

commit 98b201a33be33a60e10e67fb7f6c9d0fc5da00fc
Author: Gaius Mulley <gaiusmod2@gmail.com>
Date:   Tue Dec 6 18:43:44 2022 +0000

    Bugfix gm2_type_for_size.  Patchset suggestion missed.
    
    A feedback suggestion missed with the previous commits.
    Use build_nonstandard_integer_type to avoid getting
    a different type each time this function is called.
    
    gcc/m2/ChangeLog:
    
            * m2/gm2-lang.cc (gm2_type_for_size):
            Use build_nonstandard_integer_type.
    
    Signed-off-by: Gaius Mulley <gaiusmod2@gmail.com>

Diff:
---
 gcc/m2/gm2-lang.cc | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/gcc/m2/gm2-lang.cc b/gcc/m2/gm2-lang.cc
index 2f57d740a36..4acec02b55c 100644
--- a/gcc/m2/gm2-lang.cc
+++ b/gcc/m2/gm2-lang.cc
@@ -816,7 +816,8 @@ gm2_type_for_size (unsigned int bits, int unsignedp)
       else if (bits == LONG_LONG_TYPE_SIZE)
         type = long_long_unsigned_type_node;
       else
-        type = make_unsigned_type (bits);
+	type = build_nonstandard_integer_type (bits,
+					       unsignedp);
     }
   else
     {
@@ -831,7 +832,8 @@ gm2_type_for_size (unsigned int bits, int unsignedp)
       else if (bits == LONG_LONG_TYPE_SIZE)
         type = long_long_integer_type_node;
       else
-        type = make_signed_type (bits);
+	type = build_nonstandard_integer_type (bits,
+					       unsignedp);
     }
   return type;
 }