Pārlūkot izejas kodu

- removed outdated int64funcresok define (from Peter's symtable stack
patch in trunk)

git-svn-id: branches/fixes_2_0@2459 -

Jonas Maebe 19 gadi atpakaļ
vecāks
revīzija
2c138147ff
2 mainītis faili ar 0 papildinājumiem un 24 dzēšanām
  1. 0 16
      compiler/nset.pas
  2. 0 8
      compiler/pexpr.pas

+ 0 - 16
compiler/nset.pas

@@ -102,17 +102,9 @@ interface
     { counts the labels }
     function case_count_labels(root : pcaselabel) : longint;
     { searches the highest label }
-{$ifdef int64funcresok}
     function case_get_max(root : pcaselabel) : tconstexprint;
-{$else int64funcresok}
-    function case_get_max(root : pcaselabel) : longint;
-{$endif int64funcresok}
     { searches the lowest label }
-{$ifdef int64funcresok}
     function case_get_min(root : pcaselabel) : tconstexprint;
-{$else int64funcresok}
-    function case_get_min(root : pcaselabel) : longint;
-{$endif int64funcresok}
 
 
 implementation
@@ -399,11 +391,7 @@ implementation
       end;
 
 
-{$ifdef int64funcresok}
     function case_get_max(root : pcaselabel) : tconstexprint;
-{$else int64funcresok}
-    function case_get_max(root : pcaselabel) : longint;
-{$endif int64funcresok}
       var
          hp : pcaselabel;
       begin
@@ -414,11 +402,7 @@ implementation
       end;
 
 
-{$ifdef int64funcresok}
     function case_get_min(root : pcaselabel) : tconstexprint;
-{$else int64funcresok}
-    function case_get_min(root : pcaselabel) : longint;
-{$endif int64funcresok}
       var
          hp : pcaselabel;
       begin

+ 0 - 8
compiler/pexpr.pas

@@ -50,11 +50,7 @@ interface
     { the ID token has to be consumed before calling this function }
     procedure do_member_read(classh:tobjectdef;getaddr : boolean;sym : tsym;var p1 : tnode;var again : boolean;callflags:tcallnodeflags);
 
-{$ifdef int64funcresok}
     function get_intconst:TConstExprInt;
-{$else int64funcresok}
-    function get_intconst:longint;
-{$endif int64funcresok}
 
     function get_stringconst:string;
 
@@ -2641,11 +2637,7 @@ implementation
          expr:=p1;
       end;
 
-{$ifdef int64funcresok}
     function get_intconst:TConstExprInt;
-{$else int64funcresok}
-    function get_intconst:longint;
-{$endif int64funcresok}
     {Reads an expression, tries to evalute it and check if it is an integer
      constant. Then the constant is returned.}
     var