mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-16 18:03:36 +00:00
5750c35e64
compiler/pred_name.m:
Support the construction of predicate names for more predicate transforms,
including those done by higher_order.m and table_gen.m. Neither conformed
to the naming scheme of the other predicate transformations. For the
transforms done by higher_order.m, add XXXs noting this. For the transform
done by table_gen.m, make it generate names that do conform to our pattern.
We can do this because we only generate the affected predicates (and their
names) in minimal model own stack grades, which are not operational :-(
Move code to create names for the predicates implementing typeclass
methods here.
Move code to create names for unify, compare and index predicates here.
Include "sym_name" in the names of the predicates that construct sym_names.
Rename one of the existing transform_names to avoid ambiguity.
compiler/hlds_pred.m:
Change the argument order of pred_info_init, partly to put first things
first, but also to flush out places that construct predicate names.
compiler/add_special_pred.m:
compiler/check_typeclass.m:
compiler/hlds_code_util.m:
Delete the code moved to pred_name.m.
compiler/accumulator.m:
compiler/add_pragma_type_spec.m:
compiler/add_pred.m:
compiler/base_typeclass_info.m:
compiler/dep_par_conj.m:
compiler/distance_granularity.m:
compiler/higher_order.m:
compiler/lambda.m:
compiler/layout_out.m:
compiler/loop_inv.m:
compiler/name_mangle.m:
compiler/opt_debug.m:
compiler/opt_util.m:
compiler/par_loop_control.m:
compiler/parse_pragma.m:
compiler/pd_info.m:
compiler/prog_rep.m:
compiler/special_pred.m:
compiler/structure_reuse.versions.m:
compiler/table_gen.m:
compiler/tupling.m:
compiler/untupling.m:
compiler/unused_args.m:
Conform to the changes above.
tests/debugger/mmos_print.exp:
Update the only minimal_model_own_stack generator predicate name
outside the compiler.
24 lines
775 B
Plaintext
24 lines
775 B
Plaintext
1: 1 1 CALL pred mmos_print.main/2-0 (det) mmos_print.m:13
|
|
mdb> echo on
|
|
Command echo enabled.
|
|
mdb> register --quiet
|
|
mdb> print *
|
|
mdb: there are no live variables.
|
|
mdb> step
|
|
2: 2 2 CALL pred mmos_print.tc/2-0 (nondet) mmos_print.m:21
|
|
mdb> print *
|
|
A (arg 1) 1
|
|
mdb> step
|
|
tc(1) 1: 1 1 CALL pred mmos_print.GeneratorFor_pred__tc__0/1-0 (nondet) mmos_print.m:21
|
|
mdb> print *
|
|
mdb: there are no live variables.
|
|
mdb> step
|
|
tc(1) 2: 2 2 CALL pred mmos_print.edge/2-0 (nondet) mmos_print.m:31 (mmos_print.m:22)
|
|
mdb> print *
|
|
HeadVar__1 1
|
|
mdb> step
|
|
tc(1) 3: 2 2 SWTC pred mmos_print.edge/2-0 (nondet) s1-na; mmos_print.m:31
|
|
mdb> print *
|
|
HeadVar__1 1
|
|
mdb> quit -y
|