oid *(*skip_forward) (const void *ptr, Parrot_UInt n);
-void *(*skip_backward) (const void *ptr, Parrot_UInt n);
+const void *(*skip_forward) (const void *ptr, Parrot_UInt n);
+const void *(*skip_backward) (const void *ptr, Parrot_UInt n);
};
#define Parrot_Encoding struct parrot_encoding_t *
/J\
--
Jonathan Stowe |
<http://www.gellyfish.com> | This space for rent
|
r intvalsize.
I'll take a poke at it - this should be considered FYI rather than
something that should stop 0.04 ;-}
/J\
--
Jonathan Stowe |
<http://www.gellyfish.com> | This space for rent
|
On Mon, 18 Mar 2002, Jonathan Stowe wrote:
>This is a little
> problematic because in ut8.c and utf16.c we are doing rather unconstly
> things to variables that we hade previously declared as const,
I should qualified this: "but
debug, segment_size, sizeof(opcode_t));
+debug, segment_size, (long)sizeof(opcode_t));
return 0;
}
return 1;
/J\
--
Jonathan Stowe |
<http://www.gellyfish.com> | This space for rent
|
mp;& cd ..
cd languages && $(MAKE) clean && cd ..
@@ -434,6 +433,7 @@
$(RM_F) t/op/*.pasm t/op/*.pbc t/op/*.out
realclean: clean
+ $(RM_F) *~
$(RM_F) $(STICKY_FILES)
distclean:
/J\
--
Jonathan Stowe |
<http://www.gellyfish.com> | This space for rent
|
-556,8 +556,8 @@
FLOATVAL f = 0.0;
if (s) {
-char *start = s->bufstart;
-char *end = start + s->bufused;
+const char *start = s->bufstart;
+const char *end = start + s->bufused;
int sign = 1;
BOOLVAL seen_dot = 0;
/J\
--
Jonathan Stowe |
<http://www.gellyfish.com> | This space for rent
|
;t find anything on the list - if this is to stay for the time
being perhaps we ought to skip the failing tests if we are doing 'testj' ?
/J\
--
Jonathan Stowe |
<http://www.gellyfish.com> | This space for rent
|
break;
case 7:
address = (INTVAL *)&s->type;
BTW. Does anyone know why I get this in gdb :
#0 0x8178324 in ?? () at eval.c:41
41 eval.c: No such file or directory.
I can't find any '#file eval.c' in any of the source files.
/J\
--
Jona
at, ...);
-STRING* Parrot_sprintf_c(struct Parrot_Interp *, char * pat, ...);
+STRING* Parrot_sprintf_c(struct Parrot_Interp *, const char * pat, ...);
void Parrot_sprintf(struct Parrot_Interp *, char *targ, char *pat, ...);
Everything still appears to be working and no obvious leaks
/J\
--
Jonathan Stowe |
<http://www.gellyfish.com> | This space for rent
|
why it's safer to write
>
> p = realloc(p, N * sizeof(*p));
>
> whenever possible (that is, if p has correct type).
> Btw, is the cast necessary? realloc() returns void*, after all...
>
>
The cast is necessary with the warning level that we have currently :)
/J\
--
Jonathan Stowe |
<http://www.gellyfish.com> | This space for rent
|
t
> thing. This is what happened:
>
> ~/parrot>assemble.pl examples/assembly/euclid.pasm >test.pbc
> ~/parrot>pbc2c.pl test.pbc >test.c
> Use of uninitialized value in sprintf at lib/Parrot/OpTrans/CGoto.pm line
> 97.
> ~/parrot>
Don't worry ab
key->keys = (KEY_PAIR**)realloc(key->keys,sizeof(KEY_PAIR *)*key->size);
}
else if(key->size == 0) {
fprintf(stderr,
@@ -416,7 +416,7 @@
if(key != NULL) {
if((idx >= 0) && (idx < key->size)) {
- KEY_PAIR* pair = &key->keys[idx];
+ KEY_PAIR* pair = (KEY_PAIR *)&key->keys[idx];
pair->type++;
}
else {
/J\
--
Jonathan Stowe |
<http://www.gellyfish.com> | This space for rent
|
*pat, va_list *);
@@ -14,7 +14,7 @@
STRING* Parrot_sprintf_s(struct Parrot_Interp *, STRING* pat, ...);
-STRING* Parrot_sprintf_c(struct Parrot_Interp *, char * pat, ...);
+STRING* Parrot_sprintf_c(struct Parrot_Interp *, const char * pat, ...);
void Parrot_sprintf(struct Parrot_Interp *, char *targ, char *pat, ...);
/J\
--
Jonathan Stowe |
<http://www.gellyfish.com> | This space for rent
|
On Wed, 6 Feb 2002, Brent Dax wrote:
> Jonathan Stowe:
> # - if(!(targ=Parrot_sprintf_c(interpreter, "%S at %S line
> # %d.\n", targ, interpreter->current_file,
> # interpreter->current_line))) {
> # + if(!(targ=Parrot_sprintf_c(interpreter, (const char
&g
On Tue, 5 Feb 2002, Jonathan Stowe wrote:
> This might spoil someones future plans but doesn't break anything existing
> AFAICT - apart from those pesky ones left in misc.c the only ones left
> should be from generated code which I have a plan for which I will share
> later
On Tue, 5 Feb 2002, Andy Dougherty wrote:
> On Tue, 5 Feb 2002, Jonathan Stowe wrote:
>
> > AFAICT - apart from those pesky ones left in misc.c the only ones left
> > should be from generated code which I have a plan for which I will share
> > later :)
>
> Well, t
ng a bug!?
Surprised me - it got away in the storm of warnings no doubt ;-}
/J\
--
Jonathan Stowe |
<http://www.gellyfish.com> | This space for rent
|
ruct Parrot_Interp *, STRING* pat, ...);
-STRING* Parrot_sprintf_c(struct Parrot_Interp *, char * pat, ...);
+STRING* Parrot_sprintf_c(struct Parrot_Interp *, const char * pat, ...);
void Parrot_sprintf(struct Parrot_Interp *, char *targ, char *pat, ...);
Have fun
/J\
--
Jonathan Stowe |
<http://www.gellyfish.com> | This space for rent
|
gen_sprintf_call(t1, t2, &info, 'G');
+
+gen_sprintf_call(t1, t2, &info, (const char)'G');
sprintf(t2,
t1, dbl);
On Fri, 1 Feb 2002, Brent Dax wrote:
> Jonathan Stowe:
> # This shuts up the implicit declaration warning in test_main.c :
> #
> # --- config_h.in~Fri Feb 1 07:39:42 2002
> # +++ config_h.in Fri Feb 1 07:40:06 2002
> # @@ -51,9 +51,10 @@
> # #define IN
On Fri, 1 Feb 2002, Jonathan Stowe wrote:
> This shuts up the implicit declaration warning in test_main.c :
>
> +#include "parrot/config.h"
...
On closer examination that line is probably not needed :)
/J\
--
Jonathan Stowe |
<ht
rr, "\t%d: %s\n", (int)i, argv[i]);
}
userargv->vtable->set_string_index(interpreter, userargv,
/J\
--
Jonathan Stowe |
<http://www.gellyfish.com> | This space for rent
|
uot;
+#ifdef HAS_HEADER_STDLIB
+# include
+#endif
+
#define setopt(flag) Parrot_setflag(interpreter, flag, (*argv)[0]+2);
char *
/J\
--
Jonathan Stowe |
<http://www.gellyfish.com> | This space for rent
|
(void);
+void Parrot_Array_class_init(void);
void Parrot_PerlHash_class_init(void);
void Parrot_ParrotPointer_class_init(void);
void Parrot_IntQueue_class_init(void);
/J\
--
Jonathan Stowe |
<http://www.gellyfish.com> | This space for rent
|
I'll
> see if we can find out what needs to be done, then prevail on Ask to
> fix us up here.
>
You just need someone with a shell on the CVS (and the appropriate
permissions :) server to move the files to the new layout ...
/J\
--
Jonathan Stowe |
<http://www.gellyfish.com> | This space for rent
|
ON = '0.02';
#--
@@ -25,7 +25,7 @@
sub tokenize {
my $self = shift;
- $self->{text} = $_[0] if $_[0] and $_[0] ne '';
+ $self->{text} = $_[0] || return [];
my $tokref = [];
my $in_
On Mon, 10 Dec 2001, Dan Sugalski wrote:
>
> We need an "allocate zeroed" call too. We can get zeroed pages faster in
> some cases than we can allocate pages and zero them ourselves.
>
Isn't that calloc() ?
/J\
--
Jonathan Stowe
28 matches
Mail list logo
