use local string of 8 chars

compiler/pmodules.pas

@@ -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