diff options
| author | Geoffrey Keating <geoffk@redhat.com> | 2002-06-04 07:11:05 +0000 |
|---|---|---|
| committer | Geoffrey Keating <geoffk@gcc.gnu.org> | 2002-06-04 07:11:05 +0000 |
| commit | e2500fedef1a1c5b9e818fd1e2c281adff80df4a (patch) | |
| tree | 720630adca0f6b357e05c4feb8cbe33d556925ce /gcc/ada/utils2.c | |
| parent | c2ae66169b8326bbf9b1dfa63083d2560fea7ddf (diff) | |
| download | gcc-e2500fedef1a1c5b9e818fd1e2c281adff80df4a.zip gcc-e2500fedef1a1c5b9e818fd1e2c281adff80df4a.tar.gz gcc-e2500fedef1a1c5b9e818fd1e2c281adff80df4a.tar.bz2 | |
Merge from pch-branch up to tag pch-commit-20020603.
From-SVN: r54232
Diffstat (limited to 'gcc/ada/utils2.c')
| -rw-r--r-- | gcc/ada/utils2.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/utils2.c b/gcc/ada/utils2.c index 6d76a41..e3627a2 100644 --- a/gcc/ada/utils2.c +++ b/gcc/ada/utils2.c @@ -514,7 +514,7 @@ nonbinary_modular_operation (op_code, type, lhs, rhs) /* Copy the node so we ensure it can be modified to make it modular. */ op_type = copy_node (gnat_type_for_size (precision, unsignedp)); modulus = convert (op_type, modulus); - TYPE_MODULUS (op_type) = modulus; + SET_TYPE_MODULUS (op_type, modulus); TYPE_MODULAR_P (op_type) = 1; lhs = convert (op_type, lhs); rhs = convert (op_type, rhs); @@ -530,7 +530,7 @@ nonbinary_modular_operation (op_code, type, lhs, rhs) { tree div_type = copy_node (gnat_type_for_size (needed_precision, 1)); modulus = convert (div_type, modulus); - TYPE_MODULUS (div_type) = modulus; + SET_TYPE_MODULUS (div_type, modulus); TYPE_MODULAR_P (div_type) = 1; result = convert (op_type, fold (build (TRUNC_MOD_EXPR, div_type, |