+ Applied patch from Peter

compiler/pmodules.pas

@@ -925,7 +925,7 @@ unit pmodules;
       begin
         {Generate a procsym for main}
         make_ref:=false;
-        aktprocsym:=new(Pprocsym,init(name));
+        aktprocsym:=new(Pprocsym,init('$'+name));
         { main are allways used }
         inc(aktprocsym^.refs);
         {Try to insert in in static symtable ! }
@@ -1212,7 +1212,7 @@ unit pmodules;
 
          { Compile the unit }
          codegen_newprocedure;
-         gen_main_procsym('$'+current_module^.modulename^+'_init',potype_unitinit,st);
+         gen_main_procsym(current_module^.modulename^+'_init',potype_unitinit,st);
 {$ifdef fixLeaksOnError}
          new(names,init);
          strContStack.push(names);
@@ -1257,7 +1257,7 @@ unit pmodules;
 
               { Compile the finalize }
               codegen_newprocedure;
-              gen_main_procsym('$'+current_module^.modulename^+'_finalize',potype_unitfinalize,st);
+              gen_main_procsym(current_module^.modulename^+'_finalize',potype_unitfinalize,st);
 {$ifdef fixLeaksOnError}
               new(names,init);
               strContStack.push(names);
@@ -1714,7 +1714,10 @@ unit pmodules;
 end.
 {
   $Log$
-  Revision 1.8  2000-08-29 19:00:01  peter
+  Revision 1.9  2000-08-31 07:53:02  michael
+  + Applied patch from Peter
+
+  Revision 1.8  2000/08/29 19:00:01  peter
     * _init and _finalize procsyms also need a $ prefix
 
   Revision 1.7  2000/08/27 20:19:39  peter