Permalink
Browse files

bunch of patches:

* better inline configure test     courtesy of Andy Dougherty
* Win32 warnings (type conversion) courtesy of Jonathan Worthington
* const types (extendtype.patch)   courtesy of Adam Thomason


git-svn-id: https://svn.parrot.org/parrot/trunk@4641 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
  • Loading branch information...
1 parent c188a61 commit 6d36c2d48b16e561979c412c893c42e3d5040676 Leopold Toetsch committed Oct 28, 2003
Showing with 132 additions and 122 deletions.
  1. +2 −0 Configure.pl
  2. +7 −1 TODO
  3. +4 −6 config/auto/inline.pl
  4. +3 −2 include/parrot/chartype.h
  5. +3 −2 include/parrot/encoding.h
  6. +5 −3 include/parrot/extend.h
  7. +101 −101 jit/i386/jit_emit.h
  8. +1 −1 ops/io.ops
  9. +4 −4 ops/string.ops
  10. +2 −2 src/extend.c
View
@@ -16,6 +16,8 @@
use Parrot::BuildUtil;
use Parrot::Configure::RunSteps;
+$| = 1;
+
$parrot_version = parrot_version();
@parrot_version = parrot_version();
View
8 TODO
@@ -46,10 +46,16 @@ Regular expression engine
Interpreter
-----------
- Dynamic op libs
+ Combine dynamic op lib cores.
Make the MMD tables shareable between interpreters for faster
startup. (Though there are issues with this)
+Opcodes
+-------
+
+Mark branch arguments in ops files, e.g. addr/constaddr INT instead of
+in/inconst INT.
+
Assembler
---------
Debugging and source line number info
View
@@ -17,7 +17,7 @@ sub runstep {
}
else {
cc_gen('config/auto/inline/test_1.in');
- eval { cc_build(); };
+ eval { cc_build(); };
if (! $@) {
$test = cc_run();
chomp $test if $test;
@@ -41,9 +41,7 @@ sub runstep {
}
}
- if ($test) {
- Configure::Data->set(
- inline => $test
- );
- }
+ Configure::Data->set(
+ inline => $test
+ );
}
@@ -69,7 +69,8 @@ struct parrot_chartype_t {
const struct chartype_transcoder_entry_t *transcoders;
};
-#define Parrot_CharType struct parrot_chartype_t *
+typedef struct parrot_chartype_t* Parrot_CharType;
+typedef const struct parrot_chartype_t* Parrot_Const_CharType;
#ifdef PARROT_IN_CORE
@@ -90,7 +91,7 @@ Parrot_UInt chartype_transcode_nop(const struct parrot_chartype_t *from,
typedef Parrot_CharType_Transcoder CHARTYPE_TRANSCODER;
-const Parrot_CharType Parrot_chartype_lookup(const char *name);
+Parrot_Const_CharType Parrot_chartype_lookup(const char *name);
#define chartype_lookup Parrot_chartype_lookup
@@ -35,9 +35,10 @@ struct parrot_encoding_t {
const void *(*skip_backward) (const void *ptr, Parrot_UInt n);
};
-#define Parrot_Encoding struct parrot_encoding_t *
+typedef struct parrot_encoding_t* Parrot_Encoding;
+typedef const struct parrot_encoding_t* Parrot_Const_Encoding;
-const Parrot_Encoding Parrot_encoding_lookup(const char *name);
+Parrot_Const_Encoding Parrot_encoding_lookup(const char *name);
#ifdef PARROT_IN_CORE
View
@@ -35,9 +35,11 @@
typedef void * Parrot_INTERP;
typedef void * Parrot_STRING;
typedef void * Parrot_PMC;
-typedef void * Parrot_Encoding;
typedef Parrot_Int Parrot_Language;
+typedef void * Parrot_Encoding;
typedef void * Parrot_CharType;
+typedef const void * Parrot_Const_Encoding;
+typedef const void * Parrot_Const_CharType;
#endif
@@ -74,9 +76,9 @@ void Parrot_set_pmcreg(Parrot_INTERP, Parrot_Int, Parrot_PMC);
Parrot_STRING Parrot_new_string(Parrot_INTERP, char *, int, Parrot_Encoding, Parrot_CharType, Parrot_Language, Parrot_Int);
-const Parrot_CharType Parrot_find_chartype(Parrot_INTERP, char*);
+Parrot_Const_CharType Parrot_find_chartype(Parrot_INTERP, char*);
Parrot_Language Parrot_find_language(Parrot_INTERP, char*);
-const Parrot_Encoding Parrot_find_encoding(Parrot_INTERP, char*);
+Parrot_Const_Encoding Parrot_find_encoding(Parrot_INTERP, char*);
#endif
Oops, something went wrong.

0 comments on commit 6d36c2d

Please sign in to comment.