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))
|
