Browse Source

- removed obsolete in_*

peter 27 years ago
parent
commit
7917210022
2 changed files with 8 additions and 56 deletions
  1. 4 44
      compiler/innr.inc
  2. 4 12
      compiler/pass_1.pas

+ 4 - 44
compiler/innr.inc

@@ -17,17 +17,17 @@ const
    in_hi_word = 2;
    in_hi_word = 2;
    in_lo_long = 3;
    in_lo_long = 3;
    in_hi_long = 4;
    in_hi_long = 4;
-   { to be able to compile with ord intern or not }
-   in_ord_char = 5;
    in_ord_x = 5;
    in_ord_x = 5;
    in_length_string = 6;
    in_length_string = 6;
    in_chr_byte = 7;
    in_chr_byte = 7;
+{$ifdef VER0_99_5}   
    in_inc_byte = 8;
    in_inc_byte = 8;
    in_inc_word = 9;
    in_inc_word = 9;
    in_inc_dword = 10;
    in_inc_dword = 10;
    in_dec_byte = 11;
    in_dec_byte = 11;
    in_dec_word = 12;
    in_dec_word = 12;
    in_dec_dword = 13;
    in_dec_dword = 13;
+{$endif}   
    in_write_x = 14;
    in_write_x = 14;
    in_writeln_x = 15;
    in_writeln_x = 15;
    in_read_x = 16;
    in_read_x = 16;
@@ -59,48 +59,8 @@ const
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.5  1998-07-24 22:16:57  florian
-    * internal error 10 together with array access fixed. I hope
-      that's the final fix.
+  Revision 1.6  1998-08-20 12:59:56  peter
+    - removed obsolete in_*
 
 
-  Revision 1.4  1998/05/01 16:38:44  florian
-    * handling of private and protected fixed
-    + change_keywords_to_tp implemented to remove
-      keywords which aren't supported by tp
-    * break and continue are now symbols of the system unit
-    + widestring, longstring and ansistring type released
-
-  Revision 1.3  1998/04/14 23:27:03  florian
-    + exclude/include with constant second parameter added
-
-  Revision 1.2  1998/04/08 16:58:02  pierre
-    * several bugfixes
-      ADD ADC and AND are also sign extended
-      nasm output OK (program still crashes at end
-      and creates wrong assembler files !!)
-      procsym types sym in tdef removed !!
-
-  Revision 1.1.1.1  1998/03/25 11:18:12  root
-  * Restored version
-
-  Revision 1.2  1998/02/24 16:50:03  peter
-    * stackframe ommiting generated 'ret $-4'
-    + timer.pp bp7 version
-    * innr.inc are now the same files
-
-  Revision 1.3  1998/01/26 11:59:37  michael
-  + Added log at the end
-
-  revision 1.2
-  date: 1997/12/01 12:08:04;  author: michael;  state: Exp;  lines: +8 -17
-  + added copyright reference header.
-  ----------------------------
-  revision 1.1
-  date: 1997/11/27 08:33:46;  author: michael;  state: Exp;
-  Initial revision
-  ----------------------------
-  revision 1.1.1.1
-  date: 1997/11/27 08:33:46;  author: michael;  state: Exp;  lines: +0 -0
-  FPC RTL CVS start
 }
 }
 
 

+ 4 - 12
compiler/pass_1.pas

@@ -3867,17 +3867,6 @@ unit pass_1;
                          end;
                          end;
                     end;
                     end;
                end;
                end;
-             in_dec_dword,
-             in_dec_word,
-             in_dec_byte,
-             in_inc_dword,
-             in_inc_word,
-             in_inc_byte :
-               begin
-                  p^.resulttype:=voiddef;
-                  if p^.left^.location.loc<>LOC_REFERENCE then
-                    Message(cg_e_illegal_expression);
-               end;
             in_inc_x,
             in_inc_x,
             in_dec_x:
             in_dec_x:
               begin
               begin
@@ -5259,7 +5248,10 @@ unit pass_1;
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.59  1998-08-20 09:26:39  pierre
+  Revision 1.60  1998-08-20 12:59:57  peter
+    - removed obsolete in_*
+
+  Revision 1.59  1998/08/20 09:26:39  pierre
     + funcret setting in underproc testing
     + funcret setting in underproc testing
       compile with _dTEST_FUNCRET
       compile with _dTEST_FUNCRET