Difference between revisions of "Interfacing the Debugger"

m (Introduction)
m (Introduction)
Line 6: Line 6:
 
/* foo */
 
/* foo */
  
EIF_BOOLEAN Fadkw7f (EIF_REFERENCE Current, EIF_REFERENCE arg1, EIF_REFERENCE arg2)
+
EIF_BOOLEAN Fadkw7f (EIF_REFERENCE Current,  
 +
                    EIF_REFERENCE arg1,  
 +
                    EIF_REFERENCE arg2)
 
{
 
{
 
   GTCX
 
   GTCX
Line 18: Line 20:
 
   RTLD;
 
   RTLD;
 
    
 
    
   RTLI(5);
+
   /*Some GC stuff omitted*/
  RTLR(1,tp1);
+
  RTLR(0,arg1);
+
  RTLR(2,arg2);
+
  RTLR(4,Current);
+
  RTLR(3,tp2);
+
 
    
 
    
 
   RTLU (SK_BOOL, &Result);
 
   RTLU (SK_BOOL, &Result);

Revision as of 04:35, 20 January 2007

Warning.png 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;

}