paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 12:39:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

use local string of 8 chars

Browse Source
This commit is contained in:
peter 2004-01-28 16:48:24 +00:00
parent 97a3d4aece
commit a8b90d3014
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/pmodules.pas
View File

@ -812,6 +812,7 @@ implementation
s1,s2 : ^string; {Saves stack space}
force_init_final : boolean;
pd : tprocdef;
unitname8 : string[8];
begin
consume(_UNIT);
if compile_level=1 then
@ -832,13 +833,14 @@ implementation
{ check for system unit }
new(s2);
s2^:=upper(SplitName(main_file.name^));
unitname8:=copy(current_module.modulename^,1,8);
if (cs_check_unit_name in aktglobalswitches) and
(
not(
(current_module.modulename^=s2^) or
(
(length(current_module.modulename^)>8) and
(copy(current_module.modulename^,1,8)=s2^)
(unitname8=s2^)
)
)
or
@ -1440,7 +1442,10 @@ implementation
end.
{
$Log$
Revision 1.136 2004-01-04 21:08:09 jonas
Revision 1.137 2004-01-28 16:48:24 peter
use local string of 8 chars
Revision 1.136 2004/01/04 21:08:09 jonas
* Never generate a "main" symbol for PASCALMAIN for Darwin and classic
Mac OS, they use a C-main in their system unit