paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-08 21:38:45 +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} s1,s2 : ^string; {Saves stack space}
force_init_final : boolean; force_init_final : boolean;
pd : tprocdef; pd : tprocdef;
unitname8 : string[8];
begin begin
consume(_UNIT); consume(_UNIT);
if compile_level=1 then if compile_level=1 then
@ -832,13 +833,14 @@ implementation
{ check for system unit } { check for system unit }
new(s2); new(s2);
s2^:=upper(SplitName(main_file.name^)); s2^:=upper(SplitName(main_file.name^));
unitname8:=copy(current_module.modulename^,1,8);
if (cs_check_unit_name in aktglobalswitches) and if (cs_check_unit_name in aktglobalswitches) and
( (
not( not(
(current_module.modulename^=s2^) or (current_module.modulename^=s2^) or
( (
(length(current_module.modulename^)>8) and (length(current_module.modulename^)>8) and
(copy(current_module.modulename^,1,8)=s2^) (unitname8=s2^)
) )
) )
or or
@ -1440,7 +1442,10 @@ implementation
end. end.
{ {
$Log$ $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 * Never generate a "main" symbol for PASCALMAIN for Darwin and classic
Mac OS, they use a C-main in their system unit Mac OS, they use a C-main in their system unit