Fix 2nd compilation in Textmode IDE

compiler/parser.pas

@@ -285,6 +285,8 @@ implementation
              unloaded_units.free;
              unloaded_units:=nil;
            end;
+         { Set default types to nil. At this point they are not valid class pointers. }
+         set_default_types_nil; 
 
          { if there was an error in the scanner, the scanner is
            still assinged }

compiler/symdef.pas

@@ -1398,6 +1398,7 @@ interface
     procedure get_tabledef(prefix:tinternaltypeprefix;countdef,elementdef:tdef;count:longint;packrecords:shortint;out recdef:trecorddef;out arrdef:tarraydef);
 
     function fileinfo_of_typesym_in_def(def:tdef;sym:tsym;out filepos:tfileposinfo):boolean;
+    procedure set_default_types_nil; {housekeeping for Textmode IDE sanity}
 
 implementation
 
@@ -9579,5 +9580,164 @@ implementation
 {$endif}
       end;
 
+    procedure set_default_types_nil;
+    { Those class pointers have to be set to nil manually }
+    { after memory they point to have been released.      }
+    { Necessary strictly for Textmode IDE.                }
+    begin
+       voidpointertype:=nil;           { pointer for Void-pointeddef }
+       charpointertype:=nil;           { pointer for Char-pointeddef }
+       widecharpointertype:=nil;       { pointer for WideChar-pointeddef }
+       voidcodepointertype:=nil;       { pointer to code; corresponds to System.CodePointer }
+       voidstackpointertype:=nil;      { the pointer type used for accessing parameters and local vars on the stack }
+       parentfpvoidpointertype:=nil;   { void pointer with the size of the hidden parentfp parameter, passed to nested functions }
+{$ifdef x86}
+       voidnearpointertype:=nil;
+       voidnearcspointertype:=nil;
+       voidneardspointertype:=nil;
+       voidnearsspointertype:=nil;
+       voidnearespointertype:=nil;
+       voidnearfspointertype:=nil;
+       voidneargspointertype:=nil;
+  {$ifdef i8086}
+       voidfarpointertype:=nil;
+       voidhugepointertype:=nil;
+       charnearpointertype:=nil;
+       charfarpointertype:=nil;
+       charhugepointertype:=nil;
+       bytefarpointertype:=nil;        { used for Mem[] }
+       wordfarpointertype:=nil;        { used for MemW[] }
+       longintfarpointertype:=nil;     { used for MemL[] }
+  {$endif i8086}
+{$endif x86}
+{$ifdef wasm}
+       wasmvoidexternreftype:=nil;
+{$endif wasm}
+       cundefinedtype:=nil;
+       cformaltype:=nil;               { unique formal definition }
+       ctypedformaltype:=nil;          { unique typed formal definition }
+       voidtype:=nil;                  { Void (procedure) }
+       cansichartype:=nil;             { Char }
+       cwidechartype:=nil;             { WideChar }
+       cchartype:=nil;                 { either cansichartype or cwidechartype. Do not free }
+       pasbool1type:=nil;              { boolean type }
+       pasbool8type:=nil;
+       pasbool16type:=nil;
+       pasbool32type:=nil;
+       pasbool64type:=nil;
+       bool8type:=nil;
+       bool16type:=nil;
+       bool32type:=nil;
+       bool64type:=nil;                
+{$ifdef llvm}
+       llvmbool1type:=nil;             { LLVM i1 type }
+{$endif llvm}
+       u8inttype:=nil;                 { 8-Bit unsigned integer }
+       s8inttype:=nil;                 { 8-Bit signed integer }
+       u16inttype:=nil;                { 16-Bit unsigned integer }
+       s16inttype:=nil;                { 16-Bit signed integer }
+       u24inttype:=nil;                { 24-Bit unsigned integer }
+       s24inttype:=nil;                { 24-Bit signed integer }
+       u32inttype:=nil;                { 32-Bit unsigned integer }
+       s32inttype:=nil;                { 32-Bit signed integer }
+       u40inttype:=nil;                { 40-Bit unsigned integer }
+       s40inttype:=nil;                { 40-Bit signed integer }
+       u48inttype:=nil;                { 48-Bit unsigned integer }
+       s48inttype:=nil;                { 48-Bit signed integer }
+       u56inttype:=nil;                { 56-Bit unsigned integer }
+       s56inttype:=nil;                { 56-Bit signed integer }
+       u64inttype:=nil;                { 64-bit unsigned integer }
+       s64inttype:=nil;                { 64-bit signed integer }
+       u128inttype:=nil;               { 128-bit unsigned integer }
+       s128inttype:=nil;               { 128-bit signed integer }
+       s32floattype:=nil;              { 32 bit floating point number }
+       s64floattype:=nil;              { 64 bit floating point number }
+       s80floattype:=nil;              { 80 bit floating point number }
+       sc80floattype:=nil;             { 80 bit floating point number but stored like in C }
+       s64currencytype:=nil;           { pointer to a currency type }
+       cshortstringtype:=nil;          { pointer to type of short string const   }
+       clongstringtype:=nil;           { pointer to type of long string const   }
+       cansistringtype:=nil;           { pointer to type of ansi string const  }
+       cwidestringtype:=nil;           { pointer to type of wide string const  }
+       cunicodestringtype:=nil;
+       openshortstringtype:=nil;
+       openchararraytype:=nil;
+       cfiletype:=nil;
+       methodpointertype:=nil;         { typecasting of methodpointers to extract self }
+       nestedprocpointertype:=nil;     { typecasting of nestedprocpointers to extract parentfp }
+       hresultdef:=nil;
+       typekindtype:=nil;              { def of TTypeKind for correct handling of GetTypeKind parameters }
+       { we use only one variant def for every variant class }
+       cvarianttype:=nil;
+       colevarianttype:=nil;
+       { default integer type, normally s32inttype on 32 bit systems and s64bittype on 64 bit systems }
+       sinttype:=nil;
+       uinttype:=nil;
+       { integer types corresponding to OS_SINT/OS_INT }
+       ossinttype:=nil;
+       osuinttype:=nil;
+       { integer types corresponding to the ALU size, sizeof(aint) and the ALUSInt/ALUUInt types in the system unit }
+       alusinttype:=nil;
+       aluuinttype:=nil;
+       { integer types corresponding to SizeInt and SizeUInt for the target platform }
+       sizeuinttype:=nil;
+       sizesinttype:=nil;
+       { unsigned and signed ord type with the same size as a pointer }
+       ptruinttype:=nil;
+       ptrsinttype:=nil;
+       { unsigned and signed ord type with the same size as a codepointer }
+       codeptruinttype:=nil;
+       codeptrsinttype:=nil;
+       { several types to simulate more or less C++ objects for GDB }
+       vmttype:=nil;
+       vmtarraytype:=nil;
+       { type of classrefs, used for stabs }
+       pvmttype:=nil;
+       { return type of the setjmp function }
+       exceptionreasontype:=nil;
+
+       class_tobject:=nil;
+       class_tcustomattribute:=nil;
+       interface_iunknown:=nil;
+       interface_idispatch:=nil;
+       rec_tguid:=nil;
+       rec_jmp_buf:=nil;
+       rec_exceptaddr:=nil;
+       objc_metaclasstype:=nil;
+       objc_superclasstype:=nil;
+       objc_idtype:=nil;
+       objc_seltype:=nil;
+       objc_objecttype:=nil;
+       objc_protocoltype:=nil;
+       objc_fastenumeration:=nil;
+       objc_fastenumerationstate:=nil;
+
+{$ifdef llvm}
+       { llvm types }
+       { a unique def to identify any kind of metadata }
+       llvm_metadatatype:=nil;
+{$endif llvm}
+
+       { Java base types }
+       java_jlobject:=nil;
+       java_jlthrowable:=nil;
+       java_fpcbaserecordtype:=nil;
+       java_jlstring:=nil;
+       java_jlenum:=nil;
+       java_juenumset:=nil;
+       java_jubitset:=nil;
+       java_ansistring:=nil;
+       java_shortstring:=nil;
+       java_procvarbase:=nil;
+
+       { x86 vector types }
+       x86_m64type:=nil;
+       x86_m128type:=nil;
+       x86_m128dtype:=nil;
+       x86_m128itype:=nil;
+       x86_m256type:=nil;
+       x86_m256dtype:=nil;
+       x86_m256itype:=nil;
+    end;
 
 end.

compiler/symtable.pas

@@ -5081,19 +5081,6 @@ implementation
        { unit aliases }
        unitaliases:=TFPHashObjectList.create;
 {$endif}
-       { set some global vars to nil, might be important for the ide }
-       class_tobject:=nil;
-       class_tcustomattribute:=nil;
-       interface_iunknown:=nil;
-       interface_idispatch:=nil;
-       rec_tguid:=nil;
-       rec_jmp_buf:=nil;
-       rec_exceptaddr:=nil;
-       objc_metaclasstype:=nil;
-       objc_superclasstype:=nil;
-       objc_idtype:=nil;
-       objc_seltype:=nil;
-       objc_objecttype:=nil;
        dupnr:=0;
      end;