mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-21 04:13:46 +00:00
812d71063a
compiler/pre_typecheck.m:
As above.
tests/warnings/bug576.{m,err_exp}:
Add the Mantis test case for this bug.
tests/warnings/Mmakefile:
Enable the new test case.
44 lines
1.3 KiB
Mathematica
44 lines
1.3 KiB
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ft=mercury ts=4 sw=4 et
|
|
%---------------------------------------------------------------------------%
|
|
% Compiling this program with rotd-2025-07-04 results in
|
|
% Uncaught Mercury exception:
|
|
% Software Error: function `check_hlds.pre_typecheck.arg_num_pieces'/2:
|
|
% Unexpected: ArgNum is not numbered correctly for return value
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- module bug576.
|
|
:- interface.
|
|
|
|
:- type icu ---> icu.
|
|
|
|
:- type normalization_form
|
|
---> nfd
|
|
; nfc
|
|
; nfkd
|
|
; nfkc.
|
|
|
|
:- func icu_normalize(icu, normalization_form, string) = string.
|
|
|
|
%---------------------------------------------------------------------------%
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- implementation.
|
|
|
|
%---------------------------------------------------------------------------%
|
|
|
|
icu_normalize(_, Form, !.S) = !:S :-
|
|
(
|
|
Form = nfd
|
|
;
|
|
Form = nfc
|
|
;
|
|
Form = nfkd
|
|
;
|
|
Form = nfkc
|
|
).
|
|
|
|
%---------------------------------------------------------------------------%
|
|
:- end_module bug576.
|
|
%---------------------------------------------------------------------------%
|