[Search for users]
[Overall Top Noters]
[List of all Conferences]
[Download this site]
| Title: | Digital Fortran |
| Notice: | Read notes 1.* for important information |
| Moderator: | QUARK::LIONEL |
|
| Created: | Thu Jun 01 1995 |
| Last Modified: | Fri Jun 06 1997 |
| Last Successful Update: | Fri Jun 06 1997 |
| Number of topics: | 1333 |
| Total number of notes: | 6734 |
1216.0. "V4.1-92 assumes R0 has a valid value at start of routine" by HYDRA::NEWMAN (Chuck Newman, 508/467-5499 (DTN 297), MRO1-3/F26) Tue Mar 11 1997 12:03
SUBROUTINE RESETG
INTEGER NUMKPT
COMMON /SIZES/ PSEGPT, NUMKPT
REAL SEGPTS(1:NUMKPT,1:3)
POINTER (PSEGPT,SEGPTS)
integer i
do 1 i=1,3
segpts(1,i) = 0.0
1 continue
RETURN
END
...generates the following. Look particularly at the instructions I starred.
This is cut *way* down from the original.
0000 resetg_: # 000001
27BB0001 0000 ldah gp, resetg_ # gp, (r27)
23BD8050 0004 lda gp, resetg_ # gp, (gp)
.frame $sp, 0, $26
.save_ra r0
.prologue 1
401F0440 ***0008 s4addq r0, r31, r0 # 000004
5FFF041F 000C fnop
A45D8010 0010 ldq r2, PSEGPT # r2, (gp)
47E07401 0014 mov 3, r1
40009403 0018 addq r0, 4, r3
47E00404 ***001C mov r0, r4
A4420000 0020 ldq PSEGPT, PSEGPT # r2, (r2)
0024 L$2:
40430525 0024 subq PSEGPT, r3, r5 # r2, r3, r5 # 000008
40203521 0028 subq r1, 1, r1
5FFF041F 002C fnop
40A40405 ***0030 addq r5, r4, r5
40800404 0034 addq r4, r0, r4
9BE50004 ***0038 sts f31, 4(r5)
FC3FFFF9 003C bgt r1, L$2
6BFA8001 0040 ret (r26) # 000011
.end resetg_
| T.R | Title | User | Personal
Name | Date | Lines |
|---|
| 1216.1 | Fixed | TLE::EKLUND | Always smiling on the inside! | Tue Mar 11 1997 13:20 | 5 |
| Same as note 1167.
Cheers!
Dave Eklund
|