* add missing release of main_proc

compiler/pmodules.pas

@@ -750,13 +750,7 @@ implementation
     procedure gen_implicit_initfinal(list:taasmoutput;flag:word;st:tsymtable);
       var
         pd : tprocdef;
-        usesacc,
-        usesfpu,
-        usesacchi : boolean;
-        headertai : tai;
-        templist  : taasmoutput;
       begin
-        templist:=Taasmoutput.create;
         { update module flags }
         current_module.flags:=current_module.flags or flag;
         { create procdef }
@@ -777,40 +771,7 @@ implementation
         tcgprocinfo(current_procinfo).code:=cnothingnode.create;
         add_entry_exit_code(tcgprocinfo(current_procinfo).code,aktfilepos,aktfilepos);
         tcgprocinfo(current_procinfo).generate_code;
-(*
-        { start register allocator and temp gen }
-        cg.init_register_allocators;
-        tg:=ttgobj.create;
-        include(current_procinfo.flags,pi_do_call);
-        { generate symbol and save end of header position }
-        gen_proc_symbol(templist);
-        headertai:=tai(templist.last);
-        list.concatlist(templist);
-        { generate procedure 'body' }
-        gen_entry_code(list,false);
-        gen_initialize_code(list,false);
-        gen_finalize_code(list,false);
-        usesacc:=false;
-        usesfpu:=false;
-        usesacchi:=false;
-        gen_load_return_value(list,usesacc,usesacchi,usesfpu);
-        { Add save and restore of used registers }
-        gen_save_used_regs(templist);
-        list.insertlistafter(headertai,templist);
-        gen_restore_used_regs(list,usesacc,usesacchi,usesfpu);
-        { Add stack allocation code after header }
-        gen_stackalloc_code(templist);
-        list.insertlistafter(headertai,templist);
-        { Add exit code at the end }
-        gen_exit_code(list,false,usesacc,usesacchi);
-        { release }
-        cg.done_register_allocators;
-        tg.free;
-        rg:=nil;
-        tg:=nil;
         release_main_proc(pd);
-        templist.free;
-*)
       end;
 
 
@@ -1480,7 +1441,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.125  2003-09-23 17:56:05  peter
+  Revision 1.126  2003-09-23 18:03:08  peter
+    * add missing release of main_proc
+
+  Revision 1.125  2003/09/23 17:56:05  peter
     * locals and paras are allocated in the code generation
     * tvarsym.localloc contains the location of para/local when
       generating code for the current procedure