From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gcc-bugzilla@gcc.gnu.org>
Received: by sourceware.org (Postfix, from userid 48)
	id 8E16C3858D20; Tue, 27 Feb 2024 16:11:08 +0000 (GMT)
DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 8E16C3858D20
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org;
	s=default; t=1709050268;
	bh=ywWdZwNbTmeEUzClHhDW/PnAdZUx4ouXiNGbnUXaEIs=;
	h=From:To:Subject:Date:In-Reply-To:References:From;
	b=vKJCpOxh/d9cRMxsN48RHmul8Lm2uhzhhAXcYRWj1V2Aso7dHfbIjyi+GqeDvbAbi
	 qfRPJ0f7z+kk5hclH8GqVbmXq2UA+TWdqmtJS4GrloV99jQZBqpzU9fwDjEq5vr8kT
	 HyYWx9YRRecNF1HM0gwS3Zy/sHLdCMIooM0i4M8A=
From: "gaius at gcc dot gnu.org" <gcc-bugzilla@gcc.gnu.org>
To: gcc-bugs@gcc.gnu.org
Subject: [Bug modula2/114133] problem passing a string pointer to a C
 function on solaris 32 bit and 64 bit
Date: Tue, 27 Feb 2024 16:11:08 +0000
X-Bugzilla-Reason: CC
X-Bugzilla-Type: changed
X-Bugzilla-Watch-Reason: None
X-Bugzilla-Product: gcc
X-Bugzilla-Component: modula2
X-Bugzilla-Version: 14.0
X-Bugzilla-Keywords: 
X-Bugzilla-Severity: normal
X-Bugzilla-Who: gaius at gcc dot gnu.org
X-Bugzilla-Status: ASSIGNED
X-Bugzilla-Resolution: 
X-Bugzilla-Priority: P3
X-Bugzilla-Assigned-To: gaius at gcc dot gnu.org
X-Bugzilla-Target-Milestone: ---
X-Bugzilla-Flags: 
X-Bugzilla-Changed-Fields: 
Message-ID: <bug-114133-4-TxdKrxjTfv@http.gcc.gnu.org/bugzilla/>
In-Reply-To: <bug-114133-4@http.gcc.gnu.org/bugzilla/>
References: <bug-114133-4@http.gcc.gnu.org/bugzilla/>
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
X-Bugzilla-URL: http://gcc.gnu.org/bugzilla/
Auto-Submitted: auto-generated
MIME-Version: 1.0
List-Id: <gcc-bugs.sourceware.org>

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=3D114133

--- Comment #3 from Gaius Mulley <gaius at gcc dot gnu.org> ---
At a guess the problem was the ZTyped constant (1 and 5).  Now the gimple IR
shows these constants as integers:

$ cat callingc10.mod.095i.comdats
PROC _M2_callingc10_init (INTEGER argc, PROC * argv, PROC * envp)
{
  INTEGER D.676;
  INTEGER D.675;
  INTEGER D.674;
  INTEGER _T35.0_1;
  PROC * _T36.1_2;
  INTEGER _T34.2_3;
  INTEGER _4;
  INTEGER _T37.3_5;
  INTEGER _T39.4_6;
  PROC * _T40.5_7;
  INTEGER _T38.6_8;
  INTEGER _9;
  INTEGER _T41.7_10;
  INTEGER _T43.8_11;
  PROC * _T44.9_12;
  INTEGER _T42.10_13;
  INTEGER _14;
  INTEGER _20;
  INTEGER _26;
  INTEGER _32;

  <bb 2> :
  _T34 =3D 1;
  _T35 =3D 5;
  _T36 =3D "hello";
  _T35.0_1 =3D _T35;
  _T36.1_2 =3D _T36;
  _T34.2_3 =3D _T34;
  _20 =3D funcptr (_T34.2_3, _T36.1_2, _T35.0_1);
  _4 =3D _20;
  _T37 =3D _4;
  _T37.3_5 =3D _T37;=