previous next top contents index framed top this page unframed
Figure 48–7. thisDataSection
| $BUILTIN POINTER(class of current module) PROCEDURE thisDataSection; |
thisDataSection returns a POINTER to the data section of the MODULE from which it is called. It returns a POINTER classified consistent with the declaration of the current MODULE, if a declaration for the current MODULE's interface has been seen. It returns an unclassified POINTER if no interface declaration for the current MODULE has been seen at the point of call.
Thus, an error occurs while compiling the following MODULE:
BEGIN "foo"
CLASS c (...);
CLASS d (...);
MODULE(c) foo;
POINTER(d) dp;
INITIAL PROCEDURE;
dp := thisDataSection; # error; thisDataSection is of CLASS c,
# not of CLASS d
END "foo"
MAINSAIL Language Manual, Section 48.7