paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-26 16:49:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* check for -Un when loading ppu with wrong name

Browse Source
This commit is contained in:
peter 2002-01-19 14:20:13 +00:00
parent 069e6a3bc3
commit 76f42ba1cb
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/fppu.pas
View File

@ -639,7 +639,8 @@ uses
ibmodulename :
begin
newmodulename:=ppufile.getstring;
if upper(newmodulename)<>modulename^ then
if (cs_check_unit_name in aktglobalswitches) and
(upper(newmodulename)<>modulename^) then
Message2(unit_f_unit_name_error,realmodulename^,newmodulename);
stringdispose(modulename);
stringdispose(realmodulename);
@ -1180,7 +1181,10 @@ uses
end.
{
$Log$
Revision 1.10 2001-08-19 09:39:27 peter
Revision 1.11 2002-01-19 14:20:13 peter
* check for -Un when loading ppu with wrong name
Revision 1.10 2001/08/19 09:39:27 peter
* local browser support fixed
Revision 1.9 2001/06/18 20:36:23 peter