gered/picoc
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Temporarily added some test for the parameter passing problem Howard found.

Browse source 
git-svn-id: http://picoc.googlecode.com/svn/trunk@222 21eae674-98b7-11dd-bd71-f92a316d2d60
This commit is contained in:
zik.saleeba 2009-04-08 12:00:45 +00:00
parent eed2b99515
commit 9e75ab3760
2 changed files with 71 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
expression.c
View file

@ -274,7 +274,10 @@ int ExpressionParse(struct ParseState *Parser, struct Value **Result)
ProgramFail(Parser, "can't assign incompatible types"); ProgramFail(Parser, "can't assign incompatible types");
if (TotalValue->Typ->Base != TypeArray) if (TotalValue->Typ->Base != TypeArray)
{
// XXX printf("assigning to 0x%lx\n", (long)TotalValue->Val);
memcpy((void *)TotalValue->Val, (void *)CurrentValue->Val, TotalValue->Typ->Sizeof); memcpy((void *)TotalValue->Val, (void *)CurrentValue->Val, TotalValue->Typ->Sizeof);
}
else else
{ /* array assignment */ { /* array assignment */
if (TotalValue->Val->Array.Size != CurrentValue->Val->Array.Size) if (TotalValue->Val->Array.Size != CurrentValue->Val->Array.Size)

68
library_unix.c
View file

@ -41,10 +41,78 @@ void ShowComplex(struct ParseState *Parser, struct Value *ReturnValue, struct Va
PrintInt(ComplexPart, PlatformPutc); PrintInt(ComplexPart, PlatformPutc);
} }
void Cpeek(struct ParseState *Parser, struct Value *ReturnValue, struct Value **Param, int NumArgs)
{
int size, ptr;
unsigned char *cp;
unsigned short *sp;
unsigned int *ip;
/* x = peek(addr, size);
mask ptr to align with word size */
ptr = Param[0]->Val->Integer;
size = Param[1]->Val->Integer;
switch (size) {
case 1: // char *
cp = (unsigned char *)ptr;
ReturnValue->Val->Integer = (int)((unsigned int)*cp);
break;
case 2: // short *
sp = (unsigned short *)(ptr & 0xFFFFFFFE); // align with even boundary
ReturnValue->Val->Integer = (int)((unsigned short)*sp);
break;
case 4: // int *
ip = (unsigned int *)(ptr & 0xFFFFFFFC); // aling with quad boundary
ReturnValue->Val->Integer = 0 /*(int)*ip*/;
break;
default:
ReturnValue->Val->Integer = 0;
break;
}
}
void Crandom(struct ParseState *Parser, struct Value *ReturnValue, struct Value **Param, int NumArgs)
{
ReturnValue->Val->Integer = 1234;
}
void Cpoke(struct ParseState *Parser, struct Value *ReturnValue, struct Value **Param, int NumArgs)
{
int size, ptr, val;
unsigned char *cp;
unsigned short *sp;
unsigned int *ip;
/* x = poke(addr, size, val);
mask ptr to align with word size */
ptr = Param[0]->Val->Integer;
size = Param[1]->Val->Integer;
val = Param[2]->Val->Integer;
switch (size) {
case 1: // char *
cp = (unsigned char *)ptr;
*cp = (unsigned char)(val & 0x000000FF);
break;
case 2: // short *
sp = (unsigned short *)(ptr & 0xFFFFFFFE);
*sp = (unsigned short)(val & 0x0000FFFF);
break;
case 4: // int *
ip = (unsigned int *)(ptr & 0xFFFFFFFC);
*ip = val;
break;
default: // don't bother with bad value
break;
}
}
/* list of all library functions and their prototypes */ /* list of all library functions and their prototypes */
struct LibraryFunction PlatformLibrary[] = struct LibraryFunction PlatformLibrary[] =
{ {
{ ShowComplex, "void ShowComplex(struct complex *)" }, { ShowComplex, "void ShowComplex(struct complex *)" },
{ Cpeek, "int peak(int, int)" },
{ Cpoke, "void poke(int, int, int)" },
{ Crandom, "int random(int, int)" },
{ NULL, NULL } { NULL, NULL }
}; };