mercurylang/mercury
1
0
Fork 0
mirror of https://github.com/Mercury-Language/mercury.git synced 2025-12-20 00:15:27 +00:00
Code Issues Projects Releases Wiki Activity

A tvar_vector is an array of ints, not a pointer to an int, so use

Browse Source 
Estimated hours taken: 4
Branches: main

compiler/ml_closure_gen.m:
    A tvar_vector is an array of ints, not a pointer to an int, so use
    that for the type of vector.  Without this change closure layouts do
    not compile on the IL back-end as a pointer to an int is not the
    same thing as an array of ints, as it is on the C back-end.
This commit is contained in:
Peter Ross
2002-03-07 09:10:44 +00:00
parent 41a27af862
commit 39cc7c93a4
1 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ml_closure_gen.m
View File

@@ -362,11 +362,10 @@ convert_to_local(mlds__defn(Name, Context, Flags0, Body)) =
mlds__rval::out, mlds__type::out, mlds__defns::out) is det.
ml_stack_layout_construct_tvar_vector(ModuleInfo, TvarVectorName, Context,
TVarLocnMap, MLDS_Rval, PtrType, MLDS_Defns) :-
PtrType = mlds__ptr_type(mlds__native_int_type),
TVarLocnMap, MLDS_Rval, ArrayType, MLDS_Defns) :-
ArrayType = mlds__array_type(mlds__native_int_type),
( map__is_empty(TVarLocnMap) ->
MLDS_Rval = const(null(PtrType)),
MLDS_Rval = const(null(ArrayType)),
MLDS_Defns = []
;
Access = local,
@@ -379,7 +378,7 @@ ml_stack_layout_construct_tvar_vector(ModuleInfo, TvarVectorName, Context,
module_info_name(ModuleInfo, ModuleName),
MLDS_ModuleName = mercury_module_name_to_mlds(ModuleName),
MLDS_Rval = lval(var(qual(MLDS_ModuleName, TvarVectorName),
PtrType))
ArrayType))
).
:- pred ml_stack_layout_construct_tvar_rvals(map(tvar, set(layout_locn))::in,