+ fill the program entry point address in the NewExe header

git-svn-id: trunk@42571 -

compiler/ogomf.pas

@@ -3666,6 +3666,8 @@ cleanup:
 
     function TNewExeOutput.WriteNewExe: boolean;
       begin
+        Header.InitialIP:=EntrySym.address;
+        Header.InitialCS:=TNewExeSection(EntrySym.objsection.ExeSection).MemBasePos;
         Header.WriteTo(FWriter);
         { todo: write the rest of the file as well }
         Result:=True;