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

Reduce the size of traced executables slightly.

Browse Source 
Estimated hours taken: 0.2

Reduce the size of traced executables slightly.

runtime/mercury_stack_layout.h:
	Change the type of three fields of proc layouts from MR_int_least16_t
	MR_int_least8_t, since all three are the numbers of initially allocated
	stack slots. They are thus guaranteed to be less than 10, and thus
	fit into 8 bits with plenty to spare.

compiler/stack_layout.m:
	Make the corresponding change when generating proc layouts.
This commit is contained in:
Zoltan Somogyi
1999-11-15 10:17:05 +00:00
parent acb3438bfd
commit 229aeed2b7
2 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/stack_layout.m
View File

@@ -72,13 +72,13 @@
% layout structure of the call event
% module layout (MR_Module_Layout *) - points to the layout
% struct of the containing module.
% maybe from full (int_least16_t) - number of the stack slot of
% maybe from full (int_least8_t) - number of the stack slot of
% the from_full flag, if the procedure is
% shallow traced
% maybe decl debug (int_least16_t) - number of the first of two
% maybe decl debug (int_least8_t) - number of the first of two
% stack slots used by the declarative debugger,
% if --trace-decl is set
% maybe trail (int_least16_t) - number of the first of two
% maybe trail (int_least8_t) - number of the first of two
% stack slots used for recording the state of
% the trail, if trailing is enabled
%
@@ -741,7 +741,7 @@ stack_layout__construct_trace_layout(MaybeCallLabel, TraceSlotInfo,
),
Rvals = [CallRval, ModuleRval,
FromFullRval, DeclRval, TrailRval],
ArgTypes = initial([2 - yes(data_ptr), 3 - yes(int_least16)],
ArgTypes = initial([2 - yes(data_ptr), 3 - yes(int_least8)],
none)
;
% Indicate the absence of the trace layout fields.