Macro: FUNCTION_RETURN

Module location: FMAC line 10467 (view source)

changes: declare an error if not within a procedure or function

  #IF (!b & 4)              // are we within a Procedure
    #IF (!0 > 0)
      #IFSAME !1 $0
        // !A [] OBJ$HRET |CI0
        !A [] $0450 |CI0
      #ELSE
        #IFSAME !1 $1
          // !A [] OBJ$HRET |CI1
          !A [] $0450 |CI1
        #ELSE
          #CHECK !1 _U
          // !A [] OBJ$HRET !1
          !A [] $0450 !1
        #ENDIF
      #ENDIF
    #ELSE
      // !A [] OBJ$HRET |CI0
      !A [] $0450 |CI0
    #ENDIF
  #ELSE
    #ERROR DFERR_COMP_ILLEGAL_CODE_PLACEMENT Method return .not. within a method
  #ENDIF