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

* oldset define is now correct for all cpu's except i386

Browse Source 
* correct compilation problems because of the above
This commit is contained in:
carl 2002-08-15 15:11:53 +00:00
parent 9d4f336f74
commit aa6453d52e
2 changed files with 13 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/fpcdefs.inc
View File

@ -29,17 +29,20 @@
{$ifdef i386} {$ifdef i386}
{$define x86} {$define x86}
{$else}
{$define oldset}
{$endif i386} {$endif i386}
{$ifdef x86_64} {$ifdef x86_64}
{$define x86} {$define x86}
{$endif x86_64} {$endif x86_64}
{$ifdef ppc}
{$define oldset}
{$endif}
{ {
$Log$ $Log$
Revision 1.4 2002-07-23 12:34:29 daniel Revision 1.5 2002-08-15 15:11:53 carl
* oldset define is now correct for all cpu's except i386
* correct compilation problems because of the above
Revision 1.4 2002/07/23 12:34:29 daniel
* Readded old set code. To use it define 'oldset'. Activated by default * Readded old set code. To use it define 'oldset'. Activated by default
for ppc. for ppc.

14
compiler/ncgset.pas
View File

@ -36,6 +36,7 @@ interface
tcginnode = class(tinnode) tcginnode = class(tinnode)
procedure pass_2;override; procedure pass_2;override;
protected
{# Routine to test bitnumber in bitnumber register on value {# Routine to test bitnumber in bitnumber register on value
in value register. The __result register should be set in value register. The __result register should be set
to one if the bit is set, otherwise __result register to one if the bit is set, otherwise __result register
@ -175,13 +176,6 @@ implementation
compares,maxcompares:word; compares,maxcompares:word;
i:byte; i:byte;
begin begin
if Aset=[] then
{The expression...
if expr in []
...is allways false. It should be optimized away in the
resulttype pass, and thus never occur here. Since we
do generate wrong code for it, do internalerror.}
internalerror(2002072301);
analizeset:=false; analizeset:=false;
ranges:=false; ranges:=false;
numparts:=0; numparts:=0;
@ -956,7 +950,11 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.17 2002-08-13 18:01:52 carl Revision 1.18 2002-08-15 15:11:53 carl
* oldset define is now correct for all cpu's except i386
* correct compilation problems because of the above
Revision 1.17 2002/08/13 18:01:52 carl
* rename swatoperands to swapoperands * rename swatoperands to swapoperands
+ m68k first compilable version (still needs a lot of testing): + m68k first compilable version (still needs a lot of testing):
assembler generator, system information , inline assembler generator, system information , inline