Re: C#/Parrot Status

[Gopal V]

If memory serves me right, Rhys Weatherley wrote:
> on 32-bit, 64-bit, and native-sized integer types (8-bit
> types don't need it).

Hmm... maybe there's only one way to stop this loooong thread ...

Oct 18 20:31:20 <Nicholas>      no, no, you have it wrong. you don't 
                            *ask* us to add features. YOu just send 
                            us patches which do them :-)

Nov 25 03:09:38 <Dan>   And I'm serious. If you want a dotnet.ops file, 
                        go for it.
.....

I couldn't make myself name it "dotnet".ops so named it dotgnu.ops ...

DISCLAIMER: I don't know anything about how parrot opcodes should be
written .. So all errors are accidental and I would like somebody to
point them out to me ..

Gopal
-- 
The difference between insanity and genius is measured by success

/*
** dotgnu.ops
*/
#include "parrot/method_util.h"

VERSION = PARROT_VERSION;

=head1 NAME

dotgnu.ops

=cut

=head1 DESCRIPTION

Additional opcodes for C# compilation needed by cscc PM codegen

=cut

inline op conv_i1(inout INT) {
  $1= (int)((char)($1));
  goto NEXT();
}

inline op conv_i1_ovf(inout INT) {
  if($1 >= -128 && $1 <= 127) {
    $1= (int)((char)($1));
  }
  else {
    internal_exception(1, "Overflow exception for conv_i1_ovf\n");
  }
  goto NEXT();
}

inline op conv_u1(inout INT) {
  $1= (int)((unsigned char)($1));
  goto NEXT();
}

inline op conv_u1_ovf(inout INT) {
  if($1 >= 0 && $1 <= 256 ) {
    $1= (int)((unsigned char)($1));
  }
  else {
    internal_exception(1, "Overflow exception for conv_u1_ovf\n");
  }
  goto NEXT();
}

inline op conv_i2(inout INT) {
  $1= (int)((short)($1));
  goto NEXT();
}

inline op conv_i2_ovf(inout INT) {
  if($1 >= -32768 && $1 <= 32767 ) {
    $1= (int)((short)($1));
  }
  else
  {
    internal_exception(1, "Overflow exception for conv_i2_ovf\n");
  }
  goto NEXT();
}

inline op conv_u2(inout INT) {
  $1= (int)((unsigned short)($1));
  goto NEXT();
}

inline op conv_u2_ovf(inout INT) {
  if($1 >= 0 && $1 <= 65535) {
    $1= (int)((unsigned short)($1));
  }
  else
  {
    internal_exception(1, "Overflow exception for conv_u2_ovf\n");
  }
  goto NEXT();
}

inline op conv_i4(out INT, in NUM) {
  $1= (int)($2);
  goto NEXT();
}

inline op conv_i4(out INT, in PMC) {
  $1= (int)($2->vtable->get_integer(interpreter, $2));
  goto NEXT();
}

inline op conv_u4(out INT, in NUM) {
  $1= (unsigned int)($2);
  goto NEXT();
}

inline op conv_u4(out INT, in PMC) {
  $1= (unsigned int) ($2->vtable->get_integer(interpreter, $2));
  goto NEXT();
}

inline op conv_i8(out PMC, in INT) {
  $1->vtable->set_integer_native(interpreter, $1,$2);
  goto NEXT();
}

inline op conv_i8(out PMC, in PMC) {
  $1->vtable->set_integer_same(interpreter, $1,$2);
  goto NEXT();
}

inline op conv_i8(out PMC, in NUM) {
  $1->vtable->set_integer_native(interpreter, $1,(int)$2);
  goto NEXT();
}

inline op conv_r4(out NUM, in INT) {
  $1=  (FLOATVAL)($1);
  goto NEXT();
}

inline op conv_r4(out NUM, in PMC) {
  $1= (FLOATVAL) ($2->vtable->get_number(interpreter, $2));
  goto NEXT();
}