diff options
| author | florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2013-04-14 15:50:42 +0000 |
|---|---|---|
| committer | florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2013-04-14 15:50:42 +0000 |
| commit | d1d46c89323dcf0b3aa9299980927d06b3f01246 (patch) | |
| tree | 6817fd5f0fbc0a464df3c33c3af11755d86e83f4 /compiler/node.pas | |
| parent | fb7b04473f7186eb0643c1759661daa9c3136588 (diff) | |
| download | fpc-d1d46c89323dcf0b3aa9299980927d06b3f01246.tar.gz | |
+ introduce tvariantrecbranch to be able to store
all needed information for iso compatible variant records
* new for variant records as required by iso pascal
+ tests
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@24241 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/node.pas')
| -rw-r--r-- | compiler/node.pas | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/node.pas b/compiler/node.pas index 509f7ebef5..fe4a5007e4 100644 --- a/compiler/node.pas +++ b/compiler/node.pas @@ -1315,8 +1315,8 @@ implementation begin {$push}{$warnings off} - { taitype should fit into a 4 byte set for speed reasons } - if ord(high(tnodeflags))>31 then + { tvaroption should fit into a 4 byte set for speed reasons } + if ord(high(tvaroption))>31 then internalerror(201110301); {$pop} end. |