/[gcl]/gcl/o/fat_string.c
ViewVC logotype

Diff of /gcl/o/fat_string.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.14 by camm, Sat Feb 15 00:38:28 2003 UTC revision 1.14.4.1 by camm, Mon Aug 4 23:38:51 2003 UTC
# Line 49  DEFUN_NEW("PROFILE",object,fSprofile,SI Line 49  DEFUN_NEW("PROFILE",object,fSprofile,SI
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  }  }

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.14.4.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26