Section Header
  
  
    + name    := OBJECT;
  
    - comment := "Root object.";
  
Section Insert
  
  
    - parent_bad_reflex:Expanded BAD_REFLEX;
    
Section Public
        
  
  
 Compiler consideration.
  
  
  
    - object_size:INTEGER <- 
  
  
- pointer_size:INTEGER <- POINTER.pointer_size;
  
    - is_debug_mode:BOOLEAN <- 
    
  
    - debug_level:INTEGER <- 
  
  
    - is_ansi:BOOLEAN := 
  
  
  
 Control Error.
  
  
  
    - top_runtime_stack:POINTER <- 
  
  
    - print_runtime_stack_on ptr:POINTER <- 
    
  
    - print_runtime_stack <- 
  
  
    - crash_on ptr:POINTER with_message msg:ABSTRACT_STRING <-
    
  
    - crash_with_message msg:ABSTRACT_STRING <-
  
  
    - die_with_code code:INTEGER <- 
  
         Terminate execution with exit status code `code'.
  
  
    - exit_success_code:INTEGER := 
  
  
    - exit_failure_code:INTEGER := 
  
  
    - deferred <-
      
  
    - crash <-
    
  
    - not_yet_implemented <-
    
  
  
 Common Function.
  
  
  
    - '=='  Right 60 other:SELF :BOOLEAN <- 
  
  
    - '!==' Right 60 other:SELF :BOOLEAN <- 
  
  
  
    - clone_allocation_size:UINTEGER_32;
  
  
    - clone:SELF <- 
    
  
    - free_allocation_memory <- 
  
         Static free, don't use with GC.
      
  
    - to_pointer:POINTER <- 
  
  
    - same_dynamic_type other:OBJECT :BOOLEAN <-
    
  
    - to_self_on obj:OBJECT :SELF <-
    
  
  
 The Guru section (Don't touch, don't use !)
  
    
  
    - is_expanded_type:BOOLEAN <- 
  
  
    - type_id_intern:INTEGER   <- 
    
  
    - copy_intern_in other:SELF <-