paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 10:26:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix for lognunitname and longunit.pas

Browse Source
This commit is contained in:
peter 1998-10-30 12:23:41 +00:00
parent 3fc921dece
commit daecc1a750
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/pmodules.pas
View File

@ -665,7 +665,9 @@ unit pmodules;
else else
begin begin
if (cs_check_unit_name in aktglobalswitches) and if (cs_check_unit_name in aktglobalswitches) and
(current_module^.modulename^<>s2^) then not((current_module^.modulename^=s2^) or
((length(current_module^.modulename^)>8) and
(copy(current_module^.modulename^,1,8)=s2^))) then
Message1(unit_e_illegal_unit_name,current_module^.modulename^); Message1(unit_e_illegal_unit_name,current_module^.modulename^);
if (current_module^.modulename^=s1^) then if (current_module^.modulename^=s1^) then
Message(unit_w_switch_us_missed); Message(unit_w_switch_us_missed);
@ -692,7 +694,7 @@ unit pmodules;
{$ifndef UseNiceNames} {$ifndef UseNiceNames}
procprefix:='_'+current_module^.modulename^+'$$'; procprefix:='_'+current_module^.modulename^+'$$';
{$else UseNiceNames} {$else UseNiceNames}
procprefix:='_'+tostr(length(current_module^.unitname^))+lowercase(current_module^.unitname^)+'_'; procprefix:='_'+tostr(length(current_module^.modulename^))+lowercase(current_module^.modulename^)+'_';
{$endif UseNiceNames} {$endif UseNiceNames}
parse_only:=true; parse_only:=true;
@ -1110,7 +1112,10 @@ unit pmodules;
end. end.
{ {
$Log$ $Log$
Revision 1.77 1998-10-29 11:35:52 florian Revision 1.78 1998-10-30 12:23:41 peter
* fix for lognunitname and longunit.pas
Revision 1.77 1998/10/29 11:35:52 florian
* some dll support for win32 * some dll support for win32
* fixed assembler writing for PalmOS * fixed assembler writing for PalmOS