Browse Source

* fixed reversed "got <type 1>, expected <type 1>" error message

Jonas Maebe 22 years ago
parent
commit
9bc4fa13a6
1 changed files with 5 additions and 2 deletions
  1. 5 2
      compiler/ptconst.pas

+ 5 - 2
compiler/ptconst.pas

@@ -495,7 +495,7 @@ implementation
                      end;
                      end;
                    end
                    end
                   else
                   else
-                   IncompatibleTypes(t.def,p.resulttype.def);
+                   IncompatibleTypes(p.resulttype.def,t.def);
                 end
                 end
               else
               else
                 Message(cg_e_illegal_expression);
                 Message(cg_e_illegal_expression);
@@ -1001,7 +1001,10 @@ implementation
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.74  2003-11-12 16:05:39  florian
+  Revision 1.75  2003-11-22 00:32:35  jonas
+    * fixed reversed "got <type 1>, expected <type 1>" error message
+
+  Revision 1.74  2003/11/12 16:05:39  florian
     * assembler readers OOPed
     * assembler readers OOPed
     + typed currency constants
     + typed currency constants
     + typed 128 bit float constants if the CPU supports it
     + typed 128 bit float constants if the CPU supports it