diff options
| author | peter <peter@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2006-11-03 00:30:30 +0000 |
|---|---|---|
| committer | peter <peter@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2006-11-03 00:30:30 +0000 |
| commit | 1d1f956fbaa7686c0f8e6f04b332b0ae4201a73b (patch) | |
| tree | 0aee882f4907b996609ff1ea2235b51247649e69 /compiler/ncgset.pas | |
| parent | a70169658701604bb86a8fe60b25ad96636b4803 (diff) | |
| download | fpc-1d1f956fbaa7686c0f8e6f04b332b0ae4201a73b.tar.gz | |
* remove tdictionary and tindexarray
* symtables based on TFPHashObjectList and TFPObjectList
* rename torddef.typ to torddef.ordtype
* rename tfloatdef.typ to tfloatdef.floattype
* rename tdef.deftype to tdef.typ
* remove obsolete browser code, browcol is kept so the ide
can still be compiled
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@5192 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/ncgset.pas')
| -rw-r--r-- | compiler/ncgset.pas | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/ncgset.pas b/compiler/ncgset.pas index a6da7d3d23..95daa822b0 100644 --- a/compiler/ncgset.pas +++ b/compiler/ncgset.pas @@ -233,8 +233,8 @@ implementation { check if we can use smallset operation using btl which is limited to 32 bits, the left side may also not contain higher values !! } use_small:=(tsetdef(right.resultdef).settype=smallset) and - ((left.resultdef.deftype=orddef) and (torddef(left.resultdef).high<=32) or - (left.resultdef.deftype=enumdef) and (tenumdef(left.resultdef).max<=32)); + ((left.resultdef.typ=orddef) and (torddef(left.resultdef).high<=32) or + (left.resultdef.typ=enumdef) and (tenumdef(left.resultdef).max<=32)); { Can we generate jumps? Possible for all types of sets } checkgenjumps:=(right.nodetype=setconstn) and |