Ticket #453: tt453-pmc-h.patch

File tt453-pmc-h.patch, 20.6 KB (added by rurban, 5 years ago)
  • src/pmc/addrregistry.pmc

    old new  
    2525 
    2626*/ 
    2727 
    28 #include "parrot/parrot.h" 
    29  
    3028/* included manually to prevent breaking C++ builds -- see RT #56534 */ 
    3129#include "parrot/hash.h" 
    3230#include "pmc_hash.h" 
  • src/pmc/array.pmc

    old new  
    1818 
    1919*/ 
    2020 
    21 #include "parrot/parrot.h" 
    22  
    2321/* 
    2422 
    2523=item C<static PMC *undef(PARROT_INTERP)> 
  • src/pmc/bigint.pmc

    old new  
    2222 
    2323*/ 
    2424 
    25 #include "parrot/parrot.h" 
    26  
    2725/* TODO split that out into a separate file */ 
    2826 
    2927#ifdef S_SPLINT_S 
  • src/pmc/bignum.pmc

    old new  
    131131 
    132132*/ 
    133133 
    134 #include "parrot/parrot.h" 
    135  
    136134#ifdef S_SPLINT_S 
    137135#  undef PARROT_HAS_GMP /* splint barfs on the gmp.h header */ 
    138136#endif /* S_SPLINT_S */ 
  • src/pmc/boolean.pmc

    old new  
    2121 
    2222*/ 
    2323 
    24 #include "parrot/parrot.h" 
    25  
    2624pmclass Boolean extends Integer provides boolean provides scalar { 
    2725 
    2826/* 
  • src/pmc/bound_nci.pmc

    old new  
    1919 
    2020*/ 
    2121 
    22 #include "parrot/parrot.h" 
    23  
    2422pmclass Bound_NCI extends NCI need_ext { 
    2523 
    2624/* 
  • src/pmc/callsignature.pmc

    old new  
    1919 
    2020*/ 
    2121 
    22 #include "parrot/parrot.h" 
    23  
    2422#define CAPTURE_DATA_SIZE   2 
    2523#define CAPTURE_array_CREATE(i, obj) \ 
    2624    if (!PARROT_CAPTURE(obj)->array) \ 
  • src/pmc/capture.pmc

    old new  
    1818 
    1919*/ 
    2020 
    21 #include "parrot/parrot.h" 
    22  
    2321 
    2422#define CAPTURE_DATA_SIZE   2 
    2523#define CAPTURE_array_CREATE(i, obj) \ 
  • src/pmc/codestring.pmc

    old new  
    3030 
    3131*/ 
    3232 
    33 #include "parrot/parrot.h" 
    34  
    3533pmclass CodeString extends String provides string { 
    3634 
    3735/* 
  • src/pmc/complex.pmc

    old new  
    2222 
    2323*/ 
    2424 
    25 #include "parrot/parrot.h" 
    26  
    2725/* 
    2826 
    2927=item C<static void 
  • src/pmc/cpointer.pmc

    old new  
    4646 
    4747*/ 
    4848 
    49 #include "parrot/parrot.h" 
    50  
    5149pmclass CPointer need_ext { 
    5250    ATTR void   *pointer; /* The stored pointer. */ 
    5351    ATTR STRING *sig;     /* A string signature for the pointer. */ 
  • src/pmc/default.pmc

    old new  
    2121 
    2222*/ 
    2323 
    24 #include "parrot/parrot.h" 
    25  
    2624#define INT2KEY(i, k) key_new_integer((i), (k)) 
    2725 
    2826/* undef 'interface' to keep MSVC happy */ 
  • src/pmc/env.pmc

    old new  
    1818 
    1919*/ 
    2020 
    21 #include "parrot/parrot.h" 
    22  
    2321/* array of environment variables, 
    2422   speced in POSIX.1, but not in ISO-C 
    2523   MS C compilers know about environ, as it is declared in stdlib.h. 
  • src/pmc/eventhandler.pmc

    old new  
    1919 
    2020*/ 
    2121 
    22 #include "parrot/parrot.h" 
    23  
    2422pmclass EventHandler extends Sub need_ext { 
    2523 
    2624    ATTR STRING *type;          /* the type of the event to handle */ 
  • src/pmc/exporter.pmc

    old new  
    7878 
    7979*/ 
    8080 
    81 #include "parrot/parrot.h" 
    82  
    8381/* 
    8482 
    8583=back 
  • src/pmc/file.pmc

    old new  
    2222#  include <direct.h> 
    2323#endif 
    2424 
    25 #include "parrot/parrot.h" 
    26  
    2725/* RT#46681 apparently, strerror_r is thread-safe and should be used instead.*/ 
    2826 
    2927static PMC *File_PMC; 
  • src/pmc/fixedbooleanarray.pmc

    old new  
    2121 
    2222*/ 
    2323 
    24 #include "parrot/parrot.h" 
    25  
    2624#define BITS_PER_CHAR 8 
    2725 
    2826pmclass FixedBooleanArray need_ext provides array { 
  • src/pmc/fixedfloatarray.pmc

    old new  
    1919 
    2020*/ 
    2121 
    22 #include "parrot/parrot.h" 
    23  
    2422pmclass FixedFloatArray need_ext provides array { 
    2523    ATTR INTVAL    size; 
    2624    ATTR FLOATVAL *float_array; 
  • src/pmc/fixedintegerarray.pmc

    old new  
    1919 
    2020*/ 
    2121 
    22 #include "parrot/parrot.h" 
    23  
    2422pmclass FixedIntegerArray need_ext provides array { 
    2523    ATTR INTVAL   size;  /* number of INTVALs stored in this array */ 
    2624    ATTR INTVAL * int_array; /* INTVALs are stored here */ 
  • src/pmc/fixedpmcarray.pmc

    old new  
    2424 
    2525*/ 
    2626 
    27 #include "parrot/parrot.h" 
    28  
    2927#define PMC_size(x)  ((Parrot_FixedPMCArray_attributes *)PMC_data(x))->size 
    3028#define PMC_array(x) ((Parrot_FixedPMCArray_attributes *)PMC_data(x))->pmc_array 
    3129 
  • src/pmc/fixedstringarray.pmc

    old new  
    1919 
    2020*/ 
    2121 
    22 #include "parrot/parrot.h" 
    23  
    2422pmclass FixedStringArray need_ext provides array { 
    2523    ATTR STRING **str_array; /* where the STRINGs are stored */ 
    2624    ATTR UINTVAL  size;      /* element count */ 
  • src/pmc/float.pmc

    old new  
    1818 
    1919*/ 
    2020 
    21 #include "parrot/parrot.h" 
    22  
    2321pmclass Float extends scalar provides float provides scalar { 
    2422    ATTR FLOATVAL fv; 
    2523 
  • src/pmc/integer.pmc

    old new  
    1919 
    2020*/ 
    2121 
    22 #include "parrot/parrot.h" 
    23  
    2422#include "pmc_bigint.h" 
    2523 
    2624static void 
  • src/pmc/iterator.pmc

    old new  
    6161 
    6262*/ 
    6363 
    64 #include "parrot/parrot.h" 
    65  
    6664pmclass Iterator no_ro { 
    6765    ATTR PMC *aggregate; /* the aggregate which this Iterator iterates */ 
    6866    ATTR PMC *key;       /* the Key used by this Iterator */ 
  • src/pmc/key.pmc

    old new  
    1818 
    1919*/ 
    2020 
    21 #include "parrot/parrot.h" 
    22  
    2321pmclass Key need_ext { 
    2422    ATTR PMC      *next_key; /* Sometimes it's the next key, sometimes it's 
    2523                                not.  The Key code is like that. */ 
  • src/pmc/lexinfo.pmc

    old new  
    1818 
    1919*/ 
    2020 
    21 #include "parrot/parrot.h" 
    22  
    2321/* included manually to prevent breaking C++ builds -- see RT #56534*/ 
    2422#include "pmc_hash.h" 
    2523 
  • src/pmc/lexpad.pmc

    old new  
    1818 
    1919*/ 
    2020 
    21 #include "parrot/parrot.h" 
    22  
    2321/* 
    2422 * LexPad provides a Hash interface for lexical fetch/store 
    2523 * needed 
  • src/pmc/managedstruct.pmc

    old new  
    1919 
    2020*/ 
    2121 
    22 #include "parrot/parrot.h" 
    23  
    2422 
    2523pmclass ManagedStruct extends UnManagedStruct need_ext { 
    2624 
  • src/pmc/multisub.pmc

    old new  
    1919 
    2020*/ 
    2121 
    22 #include "parrot/parrot.h" 
    23  
    2422 
    2523pmclass MultiSub extends ResizablePMCArray need_ext provides array { 
    2624 
  • src/pmc/nci.pmc

    old new  
    1818 
    1919*/ 
    2020 
    21 #include "parrot/parrot.h" 
    22  
    2321typedef INTVAL (*nci_sub_t)(PARROT_INTERP, PMC *); 
    2422typedef INTVAL (*nci_jit_sub_t)(PARROT_INTERP, PMC *, char *); 
    2523 
  • src/pmc/null.pmc

    old new  
    1919 
    2020*/ 
    2121 
    22 #include "parrot/parrot.h" 
    23  
    2422pmclass Null singleton { 
    2523 
    2624/* 
  • src/pmc/orderedhash.pmc

    old new  
    3939 
    4040*/ 
    4141 
    42 #include "parrot/parrot.h" 
    43  
    4442pmclass OrderedHash extends Hash need_ext provides array provides hash { 
    4543 
    4644/* 
  • src/pmc/os.pmc

    old new  
    2929#  include <dirent.h> 
    3030#endif 
    3131 
    32 #include "parrot/parrot.h" 
    33  
    3432/* XXX Check if we need to deallocate strerror strings */ 
    3533/* XXX apparently, strerror_r is thread-safe and should be used instead.*/ 
    3634 
  • src/pmc/packfileannotation.pmc

    old new  
    1919 
    2020*/ 
    2121 
    22 #include "parrot/parrot.h" 
    23  
    2422pmclass PackfileAnnotation { 
    2523 
    2624 
  • src/pmc/packfileannotationkeys.pmc

    old new  
    2424 
    2525*/ 
    2626 
    27 #include "parrot/parrot.h" 
    28  
    2927pmclass PackfileAnnotationKeys { 
    3028 
    3129/* 
  • src/pmc/packfileannotations.pmc

    old new  
    2525 
    2626*/ 
    2727 
    28 #include "parrot/parrot.h" 
    29  
    3028pmclass PackfileAnnotations extends PackfileSegment { 
    3129 
    3230 
  • src/pmc/packfileconstanttable.pmc

    old new  
    2424 
    2525*/ 
    2626 
    27 #include "parrot/parrot.h" 
    28  
    2927static PackFile_Constant * 
    3028getconst(PARROT_INTERP, PackFile_ConstTable *table, int index, int type) 
    3129{ 
  • src/pmc/packfiledirectory.pmc

    old new  
    2525 
    2626*/ 
    2727 
    28 #include "parrot/parrot.h" 
    29  
    3028pmclass PackfileDirectory extends PackfileSegment { 
    3129 
    3230 
  • src/pmc/packfilefixupentry.pmc

    old new  
    1919 
    2020*/ 
    2121 
    22 #include "parrot/parrot.h" 
    23  
    2422pmclass PackfileFixupEntry { 
    2523 
    2624/* 
  • src/pmc/packfilefixuptable.pmc

    old new  
    2424 
    2525*/ 
    2626 
    27 #include "parrot/parrot.h" 
    28  
    2927pmclass PackfileFixupTable extends PackfileSegment { 
    3028 
    3129 
  • src/pmc/packfilerawsegment.pmc

    old new  
    2424 
    2525*/ 
    2626 
    27 #include "parrot/parrot.h" 
    28  
    2927pmclass PackfileRawSegment extends PackfileSegment { 
    3028 
    3129 
  • src/pmc/packfilesegment.pmc

    old new  
    2323 
    2424*/ 
    2525 
    26 #include "parrot/parrot.h" 
    27  
    2826pmclass PackfileSegment { 
    2927 
    3028 
  • src/pmc/parrotlibrary.pmc

    old new  
    2828 
    2929*/ 
    3030 
    31 #include "parrot/parrot.h" 
    32  
    3331#define PMC_dlhandle(x) ((Parrot_ParrotLibrary_attributes*)PMC_data(x))->dl_handle 
    3432#define PMC_oplib_init(x) ((Parrot_ParrotLibrary_attributes*)PMC_data(x))->oplib_init 
    3533 
  • src/pmc/pccmethod_test.pmc

    old new  
    1010 
    1111*/ 
    1212 
    13 #include "parrot/parrot.h" 
    14  
    1513pmclass PCCMETHOD_Test need_ext provides hash { 
    1614 
    1715 
  • src/pmc/pointer.pmc

    old new  
    2020 
    2121*/ 
    2222 
    23 #include "parrot/parrot.h" 
    24  
    2523pmclass Pointer need_ext { 
    2624 
    2725/* 
  • src/pmc/random.pmc

    old new  
    2020 
    2121*/ 
    2222 
    23 #include "parrot/parrot.h" 
    24  
    2523static PMC *Rand_PMC; 
    2624 
    2725pmclass Random singleton { 
  • src/pmc/ref.pmc

    old new  
    2121 
    2222*/ 
    2323 
    24 #include "parrot/parrot.h" 
    25  
    2624pmclass Ref provides ref { 
    2725 
    2826/* 
  • src/pmc/resizablebooleanarray.pmc

    old new  
    2020 
    2121*/ 
    2222 
    23 #include "parrot/parrot.h" 
    24  
    2523 
    2624#define BITS_PER_CHAR 8 
    2725/* MIN_ALLOC is 8 * BITS_PER_CHAR */ 
  • src/pmc/resizablefloatarray.pmc

    old new  
    2020 
    2121*/ 
    2222 
    23 #include "parrot/parrot.h" 
    24  
    2523pmclass ResizableFloatArray extends FixedFloatArray need_ext provides array { 
    2624    ATTR INTVAL resize_threshold; /* max size before array needs resizing */ 
    2725 
  • src/pmc/resizableintegerarray.pmc

    old new  
    2020 
    2121*/ 
    2222 
    23 #include "parrot/parrot.h" 
    24  
    2523 
    2624pmclass ResizableIntegerArray extends FixedIntegerArray need_ext provides array { 
    2725    ATTR INTVAL resize_threshold; /* max size before array needs to be resized */ 
  • src/pmc/resizablepmcarray.pmc

    old new  
    1919 
    2020*/ 
    2121 
    22 #include "parrot/parrot.h" 
    23  
    2422#define PMC_size(x)      ((Parrot_ResizablePMCArray_attributes *)PMC_data(x))->size 
    2523#define PMC_array(x)     ((Parrot_ResizablePMCArray_attributes *)PMC_data(x))->pmc_array 
    2624#define PMC_threshold(x) ((Parrot_ResizablePMCArray_attributes *)PMC_data(x))->resize_threshold 
  • src/pmc/resizablestringarray.pmc

    old new  
    1818 
    1919*/ 
    2020 
    21 #include "parrot/parrot.h" 
    22  
    2321pmclass ResizableStringArray extends FixedStringArray need_ext provides array { 
    2422    ATTR UINTVAL resize_threshold; /*max capacity before resizing */ 
    2523 
  • src/pmc/sharedref.pmc

    old new  
    2626 
    2727*/ 
    2828 
    29 #include "parrot/parrot.h" 
    30  
    3129/* 
    3230 * TODO we should catch exceptions around these locks 
    3331 *      if the vtable meth throws the lock is never unlocked 
  • src/pmc/slice.pmc

    old new  
    3737 
    3838*/ 
    3939 
    40 #include "parrot/parrot.h" 
    41  
    4240#define VALID_RANGE(r) ((r) && ((INTVAL)(r) != -1)) 
    4341#define RVal_int(u) (u).i 
    4442#define RVal_str(u) (u).s 
  • src/pmc/string.pmc

    old new  
    2020 
    2121*/ 
    2222 
    23 #include "parrot/parrot.h" 
    24  
    2523pmclass String extends scalar provides string provides scalar { 
    2624    ATTR STRING * str_val; 
    2725