paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 14:09:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Jonas Maebe 2003-11-22 00:32:35 +00:00
parent 3c33590a80
commit 9bc4fa13a6
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ptconst.pas
View File

@ -495,7 +495,7 @@ implementation
end;
end
else
IncompatibleTypes(t.def,p.resulttype.def);
IncompatibleTypes(p.resulttype.def,t.def);
end
else
Message(cg_e_illegal_expression);
@ -1001,7 +1001,10 @@ implementation
end.
{
$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
+ typed currency constants
+ typed 128 bit float constants if the CPU supports it