* Updated overlays.

compiler/pp.pas

@@ -1,4 +1,4 @@
- {
+{
     $Id$
     Copyright (c) 1993-98 by Florian Klaempfl
 
@@ -152,30 +152,62 @@ uses
   {$O globals}
   {$O systems}
   {$O parser}
+  {$O pbase}
+  {$O pdecl}
+  {$O pexports}
+  {$O pexpr}
+  {$O pmodules}
+  {$O pstatmnt}
+  {$O psub}
+  {$O psystem}
+  {$O ptconst}
+  {$O script}
+  {$O switches}
+  {$O temp_gen}
+  {$O verb_def}
   {$O dos}
   {$O scanner}
   {$O symtable}
   {$O objects}
   {$O aasm}
+  {$O link}
+  {$O assemble}
+  {$O messages}
+  {$O gendef}
+  {$O import}
+  {$O os2_targ}
+  {$O win_targ}
   {$ifdef gdb}
-    {$O gdb}
+	{$O gdb}
   {$endif gdb}
   {$ifdef i386}
-    {$O opts386}
-    {$O cgi386}
-    {$O aopt386}
-    {$O cgai386}
-    {$O i386}
-    {$O radi386}
-    {$O rai386}
-    {$O ratti386}
-    {$O tgeni386}
+	{$O opts386}
+	{$O cgi386}
+	{$O cg386add}
+	{$O cg386cal}
+	{$O cg386cnv}
+	{$O cg386con}
+	{$O cg386flw}
+	{$O cg386ld}
+	{$O cg386mat}
+	{$O cg386set}
+	{$O aopt386}
+	{$O cgai386}
+	{$O i386}
+	{$O radi386}
+	{$O rai386}
+	{$O ratti386}
+	{$O tgeni386}
+	{$O ag386int}
+	{$O ag386att}
+	{$O ag386nsm}
+	{$O asmutils}
   {$endif}
   {$ifdef m68k}
-    {$O opts68k}
-    {$O cg68k}
-    {$O ra68k}
-    {$O ag68kgas}
+	{$O opts68k}
+	{$O cg68k}
+	{$O ra68k}
+	{$O ag68kgas}
   {$endif}
 {$endif useoverlay}
 
@@ -195,6 +227,13 @@ var
 procedure myexit;{$ifndef FPC}far;{$endif}
 begin
   exitproc:=oldexit;
+{$ifdef UseBrowser}
+  if browser_file_open then
+    begin
+       close(browserfile);
+       browser_file_open:=false;
+    end;
+{$endif UseBrowser}
 {$ifdef tp}
   if use_big then
    symbolstream.done;
@@ -210,11 +249,6 @@ begin
               erroraddr:=nil;
               Writeln('Error: Out of memory');
             end;
-     else
-      begin
-        erroraddr:=nil;
-        Writeln('Error: Runtime Error ',exitcode);
-      end;
      end;
    {when the module is assigned, then the messagefile is also loaded}
      if assigned(current_module) and assigned(current_module^.current_inputfile) then
@@ -336,9 +370,6 @@ begin
 {$ifdef linux}
    Message1(general_u_gcclibpath,Linker.librarysearchpath);
 {$endif}
-{$ifdef TP}
-   Comment(V_Info,'Memory: '+tostr(MemAvail)+' Bytes Free');
-{$endif}
 
    start:=getrealtime;
    compile(inputdir+inputfile+inputextension,false);
@@ -350,9 +381,6 @@ begin
 
    clearnodes;
    done_symtable;
-{$ifdef TP}
-   Comment(V_Info,'Memory: '+tostr(MemAvail)+' Bytes Free');
-{$endif}
 {$ifdef EXTDEBUG}
    Comment(V_Info,'Memory lost = '+tostr(EntryMemAvail-MemAvail));
 {$endif EXTDEBUG}
@@ -364,10 +392,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.13  1998-06-13 00:10:11  peter
-    * working browser and newppu
-    * some small fixes against crashes which occured in bp7 (but not in
-      fpc?!)
+  Revision 1.14  1998-06-15 13:43:45  daniel
+
+
+  * Updated overlays.
 
   Revision 1.12  1998/05/23 01:21:23  peter
     + aktasmmode, aktoptprocessor, aktoutputformat