- if (SPEC_OCLS(etype) == generic)
- DCL_TYPE(ptype) = GPOINTER;
- else
- if (SPEC_OCLS(etype)->codesp ) {
- DCL_TYPE(ptype) = CPOINTER ;
- DCL_PTR_CONST(ptype) = 1;
- }
- else
- if (SPEC_OCLS(etype)->fmap && !SPEC_OCLS(etype)->paged)
- DCL_TYPE(ptype) = FPOINTER ;
- else
- if (SPEC_OCLS(etype)->fmap && SPEC_OCLS(etype)->paged)
- DCL_TYPE(ptype) = PPOINTER ;
- else
- if (SPEC_OCLS(etype) == idata)
- DCL_TYPE(ptype) = IPOINTER;
- else
- DCL_TYPE(ptype) = POINTER ;
+ if ((DCL_TYPE(ptype) = PTR_TYPE(SPEC_OCLS(etype))) == CPOINTER)
+ DCL_PTR_CONST(ptype) = 1;
+
+/* if (SPEC_OCLS(etype) == generic) */
+/* DCL_TYPE(ptype) = GPOINTER; */
+/* else */
+/* if (SPEC_OCLS(etype)->codesp ) { */
+/* DCL_TYPE(ptype) = CPOINTER ; */
+/* DCL_PTR_CONST(ptype) = 1; */
+/* } */
+/* else */
+/* if (SPEC_OCLS(etype)->fmap && !SPEC_OCLS(etype)->paged) */
+/* DCL_TYPE(ptype) = FPOINTER ; */
+/* else */
+/* if (SPEC_OCLS(etype)->fmap && SPEC_OCLS(etype)->paged) */
+/* DCL_TYPE(ptype) = PPOINTER ; */
+/* else */
+/* if (SPEC_OCLS(etype) == idata) */
+/* DCL_TYPE(ptype) = IPOINTER; */
+/* else */
+/* DCL_TYPE(ptype) = POINTER ; */