+static void DoPragma (void)
+/* Handle a #pragma line by converting the #pragma preprocessor directive into
+ * the _Pragma() compiler operator.
+ */
+{
+ /* Skip blanks following the #pragma directive */
+ SkipBlank ();
+
+ /* Copy the remainder of the line into mline removing comments and ws */
+ Pass1 (lptr, mline);
+
+ /* Convert the directive into the operator */
+ mptr = line;
+ KeepStr ("_Pragma (");
+ Stringize (mline);
+ KeepChar (')');
+ *mptr = '\0';
+
+ /* Initialize reading from line */
+ InitLine (line);
+}
+
+
+