Interfacing the Debugger

Warning: Warning: Article under development

Introduction

/* foo */

EIF_BOOLEAN Fadkw7f (EIF_REFERENCE Current,

                    EIF_REFERENCE arg1, 
                    EIF_REFERENCE arg2)

{

  GTCX
  RTEX;
  EIF_INTEGER_32 loc1 = (EIF_INTEGER_32) 0;
  EIF_REFERENCE tp1 = NULL;
  EIF_REFERENCE tp2 = NULL;
  EIF_BOOLEAN Result = (EIF_BOOLEAN) 0;
  RTSN;
  RTDA;
  RTLD;
  
  /*Some GC stuff omitted*/
  
  RTLU (SK_BOOL, &Result);
  RTLU(SK_REF,&arg1);
  RTLU(SK_REF,&arg2);
  RTLU (SK_REF, &Current);
  RTLU(SK_INT32, &loc1);
  RTEAA("foo", RTUD(9), Current, 1, 2, 186);
  RTGC;
  RTSA(Dtype(Current));
  RTSC;
  RTIV2(Current, RTAL);
  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;
  RTVI2(Current, RTAL);
  RTRS;
  RTHOOK(4);
  RTLE;
  RTLO(5);
  RTEE;
  return Result;

}