paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 08:29:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* boolean again intern declared (needed to be able to compile

Browse Source 
older RTL's)
This commit is contained in:
pierre 1998-06-04 08:23:57 +00:00
parent f29aaf6d8a
commit 883afdd880
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/psystem.pas
View File

@ -69,8 +69,9 @@ procedure insert_intern_types(p : psymtable);
{
all the types inserted into the system unit
}
{$ifdef GDB}
var
booleandef : pdef;
{$ifdef GDB}
{ several defs to simulate more or less C++ objects for GDB }
vmtdef : precdef;
pvmtdef : ppointerdef;
@ -122,7 +123,9 @@ begin
p^.insert(new(ptypesym,init('LONGSTRING',clongstringdef)));
p^.insert(new(ptypesym,init('ANSISTRING',cansistringdef)));
p^.insert(new(ptypesym,init('WIDESTRING',cwidestringdef)));
p^.insert(new(ptypesym,init('BYTEBOOL',new(porddef,init(bool8bit,0,1)))));
booleandef:=new(porddef,init(bool8bit,0,1));
p^.insert(new(ptypesym,init('BOOLEAN',booleandef)));
p^.insert(new(ptypesym,init('BYTEBOOL',booleandef)));
p^.insert(new(ptypesym,init('WORDBOOL',new(porddef,init(bool16bit,0,1)))));
p^.insert(new(ptypesym,init('LONGBOOL',new(porddef,init(bool32bit,0,1)))));
p^.insert(new(ptypesym,init('CHAR',new(porddef,init(uchar,0,255)))));
@ -228,7 +231,11 @@ end;
end.
{
$Log$
Revision 1.1 1998-06-03 22:49:01 peter
Revision 1.2 1998-06-04 08:23:57 pierre
* boolean again intern declared (needed to be able to compile
older RTL's)
Revision 1.1 1998/06/03 22:49:01 peter
+ wordbool,longbool
* rename bis,von -> high,low
* moved some systemunit loading/creating to psystem.pas