Inspect Manual

Using Inspect With TNS/R Native Programs
Inspect Manual—429164-006
17-15
Examples
Statements #28, #32.1, and #36 have not been combined with neighboring
statements.
3. Support of Register-based Variables
The following source compiled at optimization 1, illustrates how Inspect supports
register-based variables.
The INFO IDENTIFIER command provides information about a symbol.
-EPTAL2-INFO LOCATION *
Scope: M
Compile File: \SYS.$VOL.SUBVOL.FILE Modified:
1995-08-03 17:13:42.00
B y t e
Num Line Offset Optimize Verb
1 #28 %0
2 #32.1 %10
3 #33 %20
4 #34 %120
5 #36 %140
6 #38 %150
7 #38.1 %240
8 #40 %260
#16 PROC A( Param^1, Param^2);
#17 INT Param^1;
#18 INT .Param^2;
#19 BEGIN
#20 INT Local^1;
#21
#22 Local^1 := 15;
#23 IF Param^1 = Def^1 THEN
#24 Param^2 := Lit^1
#25 ELSE IF Param^1 = Def^1 + 1 THEN
#25.1 BEGIN
#26 Local^1 := Local^1 - 15;
#26.001 Param^2 := Param^2 * 31000;
#26.01 END;
#26.1 END;