* updates so it works with the ide

compiler/comphook.pas

@@ -73,6 +73,9 @@ type
   { Total Status }
     compiledlines : longint;  { the number of lines which are compiled }
     errorcount    : longint;  { number of generated errors }
+  { program info }
+    isexe,
+    islibrary     : boolean;
   { Settings for the output }
     verbosity     : longint;
     maxerrorcount : longint;
@@ -82,7 +85,8 @@ type
     skip_error,
     use_stderr,
     use_redir,
-    use_gccoutput : boolean;
+    use_gccoutput,
+    compiling_current : boolean;
   { Redirection support }
     redirfile : text;
   end;
@@ -351,7 +355,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.15  2001-06-07 21:25:57  peter
+  Revision 1.16  2001-08-04 10:23:54  peter
+    * updates so it works with the ide
+
+  Revision 1.15  2001/06/07 21:25:57  peter
     * Regenerated
 
   Revision 1.14  2001/06/06 17:20:21  jonas

compiler/finput.pas

@@ -112,6 +112,8 @@ interface
        tmodulebase = class(TLinkedListItem)
           { index }
           unit_index    : longint;  { global counter for browser }
+          { status }
+          in_compile    : boolean;  { is it being compiled ?? }
           { sources }
           sourcefiles   : tinputfilemanager;
           { paths and filenames }
@@ -653,6 +655,8 @@ uses
         exefilename:=nil;
         outputpath:=nil;
         path:=nil;
+        { status }
+        in_compile:=false;
         { unit index }
         inc(global_unit_count);
         unit_index:=global_unit_count;
@@ -683,7 +687,10 @@ uses
 end.
 {
   $Log$
-  Revision 1.10  2001-06-03 15:15:31  peter
+  Revision 1.11  2001-08-04 10:23:54  peter
+    * updates so it works with the ide
+
+  Revision 1.10  2001/06/03 15:15:31  peter
     * dllprt0 stub for linux shared libs
     * pass -init and -fini for linux shared libs
     * libprefix splitted into staticlibprefix and sharedlibprefix

compiler/fmodule.pas

@@ -90,7 +90,6 @@ interface
           sources_avail,            { if all sources are reachable }
           sources_checked,          { if there is already done a check for the sources }
           is_unit,
-          in_compile,               { is it being compiled ?? }
           in_second_compile,        { is this unit being compiled for the 2nd time? }
           in_second_load,           { is this unit PPU loaded a 2nd time? }
           in_implementation,        { processing the implementation part? }
@@ -406,7 +405,6 @@ uses
         compiled:=false;
         recompile_reason:=rr_unknown;
         in_second_load:=false;
-        in_compile:=false;
         in_second_compile:=false;
         in_implementation:=false;
         in_global:=true;
@@ -589,7 +587,10 @@ uses
 end.
 {
   $Log$
-  Revision 1.17  2001-06-04 11:49:08  peter
+  Revision 1.18  2001-08-04 10:23:54  peter
+    * updates so it works with the ide
+
+  Revision 1.17  2001/06/04 11:49:08  peter
     * store used units in original type in ppu
 
   Revision 1.16  2001/06/03 15:15:31  peter

compiler/globals.pas

@@ -211,7 +211,6 @@ interface
        RelocSection : boolean = true;
        RelocSectionSetExplicitly : boolean = false;
        LinkTypeSetExplicitly : boolean = false;
-       IsExe : boolean = false;
        DLLsource : boolean = false;
        DLLImageBase : pstring = nil;
        UseDeffileForExport : boolean = true;
@@ -1250,9 +1249,6 @@ implementation
         do_release:=false;
         do_make:=true;
         compile_level:=0;
-        { these two should not be cleared in
-          DoneGlobals as the IDE might need their value }
-        IsExe:=false;
         DLLsource:=false;
 
       { Output }
@@ -1331,7 +1327,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.39  2001-07-01 20:16:15  peter
+  Revision 1.40  2001-08-04 10:23:54  peter
+    * updates so it works with the ide
+
+  Revision 1.39  2001/07/01 20:16:15  peter
     * alignmentinfo record added
     * -Oa argument supports more alignment settings that can be specified
       per type: PROC,LOOP,VARMIN,VARMAX,CONSTMIN,CONSTMAX,RECORDMIN

compiler/pmodules.pas

@@ -690,6 +690,8 @@ implementation
 
       begin
          consume(_UNIT);
+         if compile_level=1 then
+          Status.IsExe:=false;
 
          if token=_ID then
           begin
@@ -1044,13 +1046,15 @@ implementation
          if (Errorcount=0) then
            tppumodule(current_module).writeppu;
 
+         if not(cs_compilesystem in aktmoduleswitches) then
+           if store_interface_crc<>current_module.interface_crc then
+             Comment(V_Warning,current_module.ppufilename^+' Interface CRC changed '+
+               hexstr(store_crc,8)+'<>'+hexstr(current_module.interface_crc,8));
 {$ifdef EXTDEBUG}
-         if store_interface_crc<>current_module.interface_crc then
-           Comment(V_Warning,current_module.ppufilename^+' Interface CRC changed '+
-                   hexstr(store_crc,8)+'<>'+hexstr(current_module.interface_crc,8));
-         if (store_crc<>current_module.crc) and simplify_ppu then
-           Comment(V_Warning,current_module.ppufilename^+' implementation CRC changed '+
-                   hexstr(store_crc,8)+'<>'+hexstr(current_module.interface_crc,8));
+         if not(cs_compilesystem in aktmoduleswitches) then
+           if (store_crc<>current_module.crc) and simplify_ppu then
+             Comment(V_Warning,current_module.ppufilename^+' implementation CRC changed '+
+               hexstr(store_crc,8)+'<>'+hexstr(current_module.interface_crc,8));
 {$endif EXTDEBUG}
 
          { remove static symtable (=refsymtable) here to save some mem }
@@ -1079,7 +1083,8 @@ implementation
          hp    : tmodule;
       begin
          DLLsource:=islibrary;
-         IsExe:=true;
+         Status.IsLibrary:=IsLibrary;
+         Status.IsExe:=true;
          parse_only:=false;
          { relocation works only without stabs under win32 !! PM }
          { internal assembler uses rva for stabs info
@@ -1333,18 +1338,8 @@ implementation
 end.
 {
   $Log$
-  Revision 1.39  2001-08-01 15:07:29  jonas
-    + "compilerproc" directive support, which turns both the public and mangled
-      name to lowercase(declaration_name). This prevents a normal user from
-      accessing the routine, but they can still be easily looked up within
-      the compiler. This is used for helper procedures and should facilitate
-      the writing of more processor independent code in the code generator
-      itself (mostly written by Peter)
-    + new "createintern" constructor for tcal nodes to create a call to
-      helper exported using the "compilerproc" directive
-    + support for high(dynamic_array) using the the above new things
-    + definition of 'HASCOMPILERPROC' symbol (to be able to check in the
-      compiler and rtl whether the "compilerproc" directive is supported)
+  Revision 1.40  2001-08-04 10:23:54  peter
+    * updates so it works with the ide
 
   Revision 1.38  2001/07/30 20:59:27  peter
     * m68k updates from v10 merged

compiler/verbose.pas

@@ -333,6 +333,8 @@ var
              lastfileidx:=0;
            lastmoduleidx:=current_module.unit_index;
          end;
+        if assigned(current_module) then
+          status.compiling_current:=current_module.in_compile;
       end;
 
 
@@ -655,6 +657,12 @@ var
         status.verbosity:=V_Default;
         Status.MaxErrorCount:=50;
         Loadprefixes;
+        lastfileidx:=-1;
+        lastmoduleidx:=-1;
+        status.currentmodule:='';
+        status.currentsource:='';
+        status.currentsourcepath:='';
+        status.compiling_current:=false;
       end;
 
 
@@ -672,7 +680,10 @@ var
 end.
 {
   $Log$
-  Revision 1.14  2001-05-27 14:30:55  florian
+  Revision 1.15  2001-08-04 10:23:55  peter
+    * updates so it works with the ide
+
+  Revision 1.14  2001/05/27 14:30:55  florian
     + some widestring stuff added
 
   Revision 1.13  2001/04/13 01:22:17  peter