瀏覽代碼

+ bugfix, put token UNIMPLEMENTED in right order

olle 22 年之前
父節點
當前提交
4471dd1d26
共有 1 個文件被更改,包括 8 次插入5 次删除
  1. 8 5
      compiler/tokens.pas

+ 8 - 5
compiler/tokens.pas

@@ -217,10 +217,10 @@ type
     _FINALIZATION,
     _FINALIZATION,
     _DISPINTERFACE,
     _DISPINTERFACE,
     _SAVEREGISTERS,
     _SAVEREGISTERS,
+    _UNIMPLEMENTED,
     _IMPLEMENTATION,
     _IMPLEMENTATION,
     _INITIALIZATION,
     _INITIALIZATION,
-    _RESOURCESTRING,
-    _UNIMPLEMENTED
+    _RESOURCESTRING
   );
   );
 
 
 const
 const
@@ -440,10 +440,10 @@ const
       (str:'FINALIZATION'  ;special:false;keyword:m_initfinal;op:NOTOKEN),
       (str:'FINALIZATION'  ;special:false;keyword:m_initfinal;op:NOTOKEN),
       (str:'DISPINTERFACE' ;special:false;keyword:m_class;op:NOTOKEN),
       (str:'DISPINTERFACE' ;special:false;keyword:m_class;op:NOTOKEN),
       (str:'SAVEREGISTERS' ;special:false;keyword:m_none;op:NOTOKEN),
       (str:'SAVEREGISTERS' ;special:false;keyword:m_none;op:NOTOKEN),
+      (str:'UNIMPLEMENTED' ;special:false;keyword:m_all;op:NOTOKEN),
       (str:'IMPLEMENTATION';special:false;keyword:m_all;op:NOTOKEN),
       (str:'IMPLEMENTATION';special:false;keyword:m_all;op:NOTOKEN),
       (str:'INITIALIZATION';special:false;keyword:m_initfinal;op:NOTOKEN),
       (str:'INITIALIZATION';special:false;keyword:m_initfinal;op:NOTOKEN),
-      (str:'RESOURCESTRING';special:false;keyword:m_class;op:NOTOKEN),
-      (str:'UNIMPLEMENTED' ;special:false;keyword:m_all;op:NOTOKEN)
+      (str:'RESOURCESTRING';special:false;keyword:m_class;op:NOTOKEN)
   );
   );
 
 
 var
 var
@@ -504,7 +504,10 @@ end;
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.22  2003-08-10 17:25:23  peter
+  Revision 1.23  2003-09-04 21:58:16  olle
+    + bugfix, put token UNIMPLEMENTED in right order
+
+  Revision 1.22  2003/08/10 17:25:23  peter
     * fixed some reported bugs
     * fixed some reported bugs
 
 
   Revision 1.21  2003/03/26 12:50:54  armin
   Revision 1.21  2003/03/26 12:50:54  armin