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

* disable FIXED data type per default

Browse Source
This commit is contained in:
florian 2000-02-15 14:36:45 +00:00
parent 85b946e6d4
commit b2efa0f338
3 changed files with 31 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/README
View File

@ -72,4 +72,13 @@ Changes in the syntax or semantic of FPC:
14/11/99 makefile.fpc is not available anymore. You must now use fpcmake
which is available from the utils/. There is also an example
Makefile.fpc
15/02/00 The support of the fixed data type has been removed from the
compiler because
1. it is buggy
2. it is very seldom used
3. the single data type is faster on modern cpus (Pentium+)
If still want to use it, you have to recompile the compiler
with -dSUPPORT_FIXED and recompile the rtl with that compiler.
To find out if the used compiler supports the fixed data
type, check the directive HASFIXED (FK)

11
compiler/options.pas
View File

@ -1205,6 +1205,10 @@ begin
def_symbol('INCLUDEOK');
def_symbol('NEWMM');
def_symbol('HASWIDECHAR');
{$ifdef SUPPORT_FIXED}
def_symbol('HASFIXED');
{$endif SUPPORT_FIXED}
{$ifdef cardinalmulfix}
{ for the compiler }
def_symbol('CARDINALMULFIX');
@ -1431,7 +1435,10 @@ end;
end.
{
$Log$
Revision 1.60 2000-02-10 11:45:48 peter
Revision 1.61 2000-02-15 14:36:45 florian
* disable FIXED data type per default
Revision 1.60 2000/02/10 11:45:48 peter
* addpath fixed with list of paths when inserting at the beginning
* if exepath=currentdir then it's not inserted in path list
* searchpaths in ppc386.cfg are now added at the beginning of the
@ -1514,4 +1521,4 @@ end.
* win32/go32v2 write short pathnames to link.res so c:\Program Files\ is
finally supported as installdir.
}
}

15
compiler/psystem.pas
View File

@ -103,7 +103,9 @@ begin
p^.insert(new(ptypesym,initdef('s32real',s32floatdef)));
p^.insert(new(ptypesym,initdef('s64real',s64floatdef)));
p^.insert(new(ptypesym,initdef('s80real',s80floatdef)));
{$ifdef SUPPORT_FIXED}
p^.insert(new(ptypesym,initdef('s32fixed',s32fixeddef)));
{$endif SUPPORT_FIXED}
{ Add a type for virtual method tables in lowercase }
{ so it isn't reachable! }
vmtsymtable:=new(psymtable,init(recordsymtable));
@ -143,8 +145,10 @@ begin
p^.insert(new(ptypesym,initdef('WIDECHAR',cwidechardef)));
p^.insert(new(ptypesym,initdef('TEXT',new(pfiledef,inittext))));
p^.insert(new(ptypesym,initdef('CARDINAL',u32bitdef)));
{$ifdef SUPPORT_FIXED}
p^.insert(new(ptypesym,initdef('FIXED',new(pfloatdef,init(f32bit)))));
p^.insert(new(ptypesym,initdef('FIXED16',new(pfloatdef,init(f16bit)))));
{$endif SUPPORT_FIXED}
p^.insert(new(ptypesym,initdef('QWORD',cu64bitdef)));
p^.insert(new(ptypesym,initdef('INT64',cs64bitdef)));
p^.insert(new(ptypesym,initdef('TYPEDFILE',new(pfiledef,inittypeddef(voiddef)))));
@ -175,7 +179,9 @@ begin
s32floatdef:=pfloatdef(globaldef('s32real'));
s64floatdef:=pfloatdef(globaldef('s64real'));
s80floatdef:=pfloatdef(globaldef('s80real'));
{$ifdef SUPPORT_FIXED}
s32fixeddef:=pfloatdef(globaldef('s32fixed'));
{$endif SUPPORT_FIXED}
booldef:=porddef(globaldef('boolean'));
voidpointerdef:=ppointerdef(globaldef('void_pointer'));
charpointerdef:=ppointerdef(globaldef('char_pointer'));
@ -228,7 +234,9 @@ begin
else
s80floatdef:=new(pfloatdef,init(s80real));
{$endif}
{$ifdef SUPPORT_FIXED}
s32fixeddef:=new(pfloatdef,init(f32bit));
{$endif SUPPORT_FIXED}
{ some other definitions }
voidpointerdef:=new(ppointerdef,initdef(voiddef));
charpointerdef:=new(ppointerdef,initdef(cchardef));
@ -241,7 +249,10 @@ end;
end.
{
$Log$
Revision 1.33 2000-02-09 13:23:00 peter
Revision 1.34 2000-02-15 14:36:45 florian
* disable FIXED data type per default
Revision 1.33 2000/02/09 13:23:00 peter
* log truncated
Revision 1.32 2000/01/07 01:14:33 peter
@ -269,4 +280,4 @@ end.
* moved bitmask constants to sets
* some other type/const renamings
}
}