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

Same as previous message.

Browse Source
This commit is contained in:
Zoltan Somogyi
1998-04-08 11:36:13 +00:00
parent b50420b0fd
commit 67d8308260
58 changed files with 3270 additions and 3078 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/string_switch.m
View File

@@ -303,27 +303,16 @@ string_switch__gen_hash_slot(Slot, TblSize, HashSlotMap, CodeModel, StoreMap,
{ LabelCode = node([
label(Label) - Comment
]) },
code_info__get_maybe_trace_info(MaybeTraceInfo),
( { MaybeTraceInfo = yes(TraceInfo) } ->
{ Goal = _ - GoalInfo },
{ goal_info_get_goal_path(GoalInfo, Path) },
trace__generate_event_code(switch(Path), TraceInfo,
TraceCode)
;
{ TraceCode = empty }
),
code_info__grab_code_info(CodeInfo),
trace__maybe_generate_internal_event_code(Goal, TraceCode),
code_gen__generate_goal(CodeModel, Goal, GoalCode),
code_info__generate_branch_end(CodeModel, StoreMap, SaveCode),
(
{ string_switch__this_is_last_case(Slot, TblSize,
HashSlotMap) }
->
code_gen__generate_goal(CodeModel, Goal, GoalCode),
code_info__generate_branch_end(CodeModel, StoreMap,
SaveCode)
[]
;
code_info__grab_code_info(CodeInfo),
code_gen__generate_goal(CodeModel, Goal, GoalCode),
code_info__generate_branch_end(CodeModel, StoreMap,
SaveCode),
code_info__slap_code_info(CodeInfo)
),
{ FinishCode = node([