Re: [ooc-compiler] Compiler error

[Stewart G. <sgr...@ii...>]

Hmm... That code looks OK. At least, it matches my code which works 
fine. A few things to try:

Is this possibly a 64-bit linux? Can you send me the output of:
   uname -m

Try adding these lines before "return", in L__Init (obj/L.c).
   printf("Header size: %d\n", sizeof (struct L__Header));
   printf("Pointer size: %d\n", sizeof (struct L__Header *));
Then do "oo2c -Mv Test". Rerun "Test" and it should output:
  Header size: 8
  Pointer size: 4

If you add VAR to the declaration of IsEmpty does it make a difference? 
Like this:
   PROCEDURE IsEmpty* (VAR list:Header): BOOLEAN;

Cheers,
   Stewart

Frank Hrebabetzky wrote:
> Hi Stewart,
> 
> I deleted the bin, obj and sym directory and compiled with
> 	oo2c  --make Test
> Same result as before. Then:
> 	oo2c --version
> 	oo2c/gcc 2.1.11
> 	gcc --version
> 	gcc (Ubuntu 4.4.3-4ubuntu5) 4.4.3
> 
> obj/Test.c:
> ------------------------------------------------------------
> #include <Test.d>
> #include <__oo2c.h>
> #include <setjmp.h>
> 
> void Test__NodeD_Init(Test__Node node) {
>    register OOC_INT32 i0,i1;
> 
>    i0 = (OOC_INT32)node;
>    i1 = _check_pointer(i0, 216);
>    L__Init((void*)((_check_pointer(i0, 216))+4), 
> (RT0__Struct)((OOC_INT32)&_td_L__Header));
>    i0 = L__IsEmpty((void*)((_check_pointer(i0, 244))+4));
>    i0 = !i0;
>    if (!i0) goto l4;
>    Out__String((OOC_CHAR8*)"n1.sons not empty!", 19);
>    Out__Ln();
> l4:
>    return;
>    ;
> }
> 
> void OOC_Test_init(void) {
>    register OOC_INT32 i0;
> 
>    i0 = (OOC_INT32)RT0__NewObject(_td_Test__Node.baseTypes[0]);
>    Test__n1 = (Test__Node)i0;
>    Test__NodeD_Init((Test__Node)i0);
>    return;
>    ;
> }
> 
> void OOC_Test_destroy(void) {
> }
> 
> /* --- */
> ----------------------------------------------------------
> obj/L.c:
> ----------------------------------------------------------
> #include <L.d>
> #include <__oo2c.h>
> #include <setjmp.h>
> 
> OOC_CHAR8 L__IsEmpty(const struct L__Header *list__ref) {
>    register OOC_INT32 i0;
>    OOC_ALLOCATE_VPAR(list,L__Header ,1)
> 
>    OOC_INITIALIZE_VPAR(list__ref,list,L__Header ,8)
>    i0 = (OOC_INT32)*(OOC_INT32*)(OOC_INT32)list;
>    return (i0==0);
>    ;
> }
> 
> void L__Init(struct L__Header *list, RT0__Struct list__tag) {
> 
>    *(OOC_INT32*)(OOC_INT32)list = 0;
>    *(OOC_INT32*)((OOC_INT32)list+4) = 0;
>    Out__String((OOC_CHAR8*)"List initialized", 17);
>    Out__Ln();
>    return;
>    ;
> }
> 
> void OOC_L_init(void) {
> 
>    return;
>    ;
> }
> 
> void OOC_L_destroy(void) {
> }
> 
> /* --- */
> --------------------------------------------------------
> 
> I'm curious.