paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 13:06:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* remove check for shortunitname, it broke units with 8 and 9 chars

Browse Source 
with the first 8 chars being equal
This commit is contained in:
peter 2004-09-13 20:27:27 +00:00
parent c336f79bab
commit e32eac8468
1 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/fppu.pas
View File

@ -1459,13 +1459,11 @@ uses
var var
ups : stringid; ups : stringid;
hp : tppumodule; hp : tppumodule;
hp2, hp2 : tmodule;
shortnamehp : tmodule;
begin begin
{ Info } { Info }
ups:=upper(s); ups:=upper(s);
{ search all loaded units } { search all loaded units }
shortnamehp:=nil;
hp:=tppumodule(loaded_units.first); hp:=tppumodule(loaded_units.first);
while assigned(hp) do while assigned(hp) do
begin begin
@ -1494,15 +1492,10 @@ uses
end; end;
break; break;
end; end;
end end;
else
if copy(hp.modulename^,1,8)=ups then
shortnamehp:=hp;
{ the next unit } { the next unit }
hp:=tppumodule(hp.next); hp:=tppumodule(hp.next);
end; end;
if assigned(shortnamehp) and not assigned(hp) then
Message2(unit_w_unit_name_error,s,shortnamehp.realmodulename^);
{ the unit is not in the loaded units, { the unit is not in the loaded units,
we create an entry and register the unit } we create an entry and register the unit }
if not assigned(hp) then if not assigned(hp) then
@ -1519,7 +1512,11 @@ uses
end. end.
{ {
$Log$ $Log$
Revision 1.61 2004-08-28 20:01:09 peter Revision 1.62 2004-09-13 20:27:27 peter
* remove check for shortunitname, it broke units with 8 and 9 chars
with the first 8 chars being equal
Revision 1.61 2004/08/28 20:01:09 peter
* print realmodulename in fatal errors * print realmodulename in fatal errors
Revision 1.60 2004/08/27 21:59:26 peter Revision 1.60 2004/08/27 21:59:26 peter