49 |
if( type_of(start_address)!=t_fixnum || type_of(scale)!=t_fixnum) |
if( type_of(start_address)!=t_fixnum || type_of(scale)!=t_fixnum) |
50 |
FEerror("Needs start address and scale as args",0); |
FEerror("Needs start address and scale as args",0); |
51 |
|
|
52 |
profil((void *) (ar->ust.ust_self), (ar->ust.ust_dim), |
profil(!(fix(start_address)*fix(scale)) ? NULL : (void *) (ar->ust.ust_self), (ar->ust.ust_dim), |
53 |
fix(start_address),fix(scale) << 8); |
fix(start_address),fix(scale) << 8); |
54 |
RETURN1(start_address); |
RETURN1(start_address); |
55 |
} |
} |