mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-26 14:50:32 +02:00
Fix 2nd compilation in Textmode IDE
This commit is contained in:
Margers
Michael Van Canneyt
parent
52211eb888
commit
8c73d0a0e2
@ -285,6 +285,8 @@ implementation
|
|||||||
unloaded_units.free;
|
unloaded_units.free;
|
||||||
unloaded_units:=nil;
|
unloaded_units:=nil;
|
||||||
end;
|
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
|
{ if there was an error in the scanner, the scanner is
|
||||||
still assinged }
|
still assinged }
|
||||||
|
|||||||
@ -1398,6 +1398,7 @@ interface
|
|||||||
procedure get_tabledef(prefix:tinternaltypeprefix;countdef,elementdef:tdef;count:longint;packrecords:shortint;out recdef:trecorddef;out arrdef:tarraydef);
|
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;
|
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
|
implementation
|
||||||
|
|
||||||
@ -9579,5 +9580,164 @@ implementation
|
|||||||
{$endif}
|
{$endif}
|
||||||
end;
|
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.
|
end.
|
||||||
|
|||||||
@ -5081,19 +5081,6 @@ implementation
|
|||||||
{ unit aliases }
|
{ unit aliases }
|
||||||
unitaliases:=TFPHashObjectList.create;
|
unitaliases:=TFPHashObjectList.create;
|
||||||
{$endif}
|
{$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;
|
dupnr:=0;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user