Browse Source

* cleanup of error messages

carl 23 years ago
parent
commit
38f35b25cc
1 changed files with 6 additions and 3 deletions
  1. 6 3
      compiler/pdecsub.pas

+ 6 - 3
compiler/pdecsub.pas

@@ -792,12 +792,12 @@ implementation
 
 
 procedure pd_far;
 procedure pd_far;
 begin
 begin
-  Message(parser_w_proc_far_ignored);
+  Message1(parser_w_proc_directive_ignored,'FAR');
 end;
 end;
 
 
 procedure pd_near;
 procedure pd_near;
 begin
 begin
-  Message(parser_w_proc_near_ignored);
+  Message1(parser_w_proc_directive_ignored,'NEAR');
 end;
 end;
 
 
 procedure pd_export;
 procedure pd_export;
@@ -2058,7 +2058,10 @@ const
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.84  2002-11-29 22:31:19  carl
+  Revision 1.85  2002-12-01 22:06:14  carl
+    * cleanup of error messages
+
+  Revision 1.84  2002/11/29 22:31:19  carl
     + unimplemented hint directive added
     + unimplemented hint directive added
     * hint directive parsing implemented
     * hint directive parsing implemented
     * warning on these directives
     * warning on these directives