[foo-cvs] foo/elkfoo/src pointer.m,1.4,1.5 tell.m,1.10,1.11

[Martin R. <ru...@us...>]

Update of /cvsroot/foo/foo/elkfoo/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26978/src

Modified Files:
	pointer.m tell.m 
Log Message:
fixed typo in pointer.m, minor changes to tell.m (not yet working on mac os x)

Index: pointer.m
===================================================================
RCS file: /cvsroot/foo/foo/elkfoo/src/pointer.m,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** pointer.m	6 Aug 2004 00:22:11 -0000	1.4
--- pointer.m	8 Aug 2004 18:18:36 -0000	1.5
***************
*** 427,431 ****
  
  void
! elk_nit_pointer ()
  {   
    T_Pointer = Define_Type(0, "pointer", NOFUNC, sizeof(struct S_Pointer),
--- 427,431 ----
  
  void
! elk_init_pointer ()
  {   
    T_Pointer = Define_Type(0, "pointer", NOFUNC, sizeof(struct S_Pointer),
***************
*** 439,442 ****
--- 439,443 ----
    Define_Primitive(P_Pointer_Ref, "pointer-ref", 1, 3, VARARGS);
    Define_Primitive(P_Pointer_Set, "pointer-set!", 2, 2, EVAL);
+ 
    P_Provide(Intern("pointer"));
  }

Index: tell.m
===================================================================
RCS file: /cvsroot/foo/foo/elkfoo/src/tell.m,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** tell.m	8 Aug 2004 17:57:44 -0000	1.10
--- tell.m	8 Aug 2004 18:18:37 -0000	1.11
***************
*** 164,168 ****
    NSInvocation *invoc;
    NSMethodSignature *sign;
-   const char *type;
    int offset, size, i, rettype, retsize, t;
    char retval[16];
--- 164,167 ----
***************
*** 266,270 ****
    for (i = 0; i < argc; i++)
      {
!       type = [sign getArgumentTypeAtIndex: i + 2];
  
        switch (t = Convert_Type(type))
--- 265,269 ----
    for (i = 0; i < argc; i++)
      {
!       const char *type = [sign getArgumentTypeAtIndex: i + 2];
  
        switch (t = Convert_Type(type))