Difference between revisions of "Interfacing the Debugger"

m (Introduction)
m (Introduction)
Line 10: Line 10:
 
                     EIF_REFERENCE arg2)
 
                     EIF_REFERENCE arg2)
 
{
 
{
  GTCX
 
  RTEX;
 
 
   EIF_INTEGER_32 loc1 = (EIF_INTEGER_32) 0;
 
   EIF_INTEGER_32 loc1 = (EIF_INTEGER_32) 0;
  EIF_REFERENCE tp1 = NULL;
 
  EIF_REFERENCE tp2 = NULL;
 
 
   EIF_BOOLEAN Result = (EIF_BOOLEAN) 0;
 
   EIF_BOOLEAN Result = (EIF_BOOLEAN) 0;
   RTSN;
+
   ...
  RTDA;
+
  RTLD;
+
 
+
  /*Some GC stuff omitted*/
+
 
+
 
   RTLU (SK_BOOL, &Result);
 
   RTLU (SK_BOOL, &Result);
 
   RTLU(SK_REF,&arg1);
 
   RTLU(SK_REF,&arg1);
Line 27: Line 18:
 
   RTLU (SK_REF, &Current);
 
   RTLU (SK_REF, &Current);
 
   RTLU(SK_INT32, &loc1);
 
   RTLU(SK_INT32, &loc1);
   RTEAA("foo", RTUD(9), Current, 1, 2, 186);
+
   ...
  RTGC;
+
  RTSA(Dtype(Current));
+
  RTSC;
+
  RTIV2(Current, RTAL);
+
 
   RTHOOK(1);
 
   RTHOOK(1);
 
   loc1 = (EIF_INTEGER_32)((EIF_INTEGER_32) 10L);
 
   loc1 = (EIF_INTEGER_32)((EIF_INTEGER_32) 10L);
Line 43: Line 30:
 
   RTHOOK(3);
 
   RTHOOK(3);
 
   Result = (EIF_BOOLEAN)(EIF_BOOLEAN) 1;
 
   Result = (EIF_BOOLEAN)(EIF_BOOLEAN) 1;
  RTVI2(Current, RTAL);
 
  RTRS;
 
 
   RTHOOK(4);
 
   RTHOOK(4);
  RTLE;
 
 
   RTLO(5);
 
   RTLO(5);
  RTEE;
+
 
 
   return Result;
 
   return Result;
 
}
 
}

Revision as of 05:11, 20 January 2007

Warning.png Warning: Warning: Article under development

Introduction

/* foo */

EIF_BOOLEAN Fadkw7f (EIF_REFERENCE Current,

                    EIF_REFERENCE arg1, 
                    EIF_REFERENCE arg2)

{

  EIF_INTEGER_32 loc1 = (EIF_INTEGER_32) 0;
  EIF_BOOLEAN Result = (EIF_BOOLEAN) 0;
  ...
  RTLU (SK_BOOL, &Result);
  RTLU(SK_REF,&arg1);
  RTLU(SK_REF,&arg2);
  RTLU (SK_REF, &Current);
  RTLU(SK_INT32, &loc1);
  ...
  RTHOOK(1);
  loc1 = (EIF_INTEGER_32)((EIF_INTEGER_32) 10L);
  RTHOOK(2);
  tp1 = (FUNCTION_CAST(EIF_REFERENCE, (EIF_REFERENCE)) 
     RTVF(100, 33, "first", arg1))(arg1);
  RTNHOOK(2);
  tp2 = RTCCL(arg2);
  (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_REFERENCE)) 
     RTVF(100, 39, "force", tp1))(tp1, tp2);
  RTHOOK(3);
  Result = (EIF_BOOLEAN)(EIF_BOOLEAN) 1;
  RTHOOK(4);
  RTLO(5);
  return Result;

}