Explorar o código

- removed "INT64FUNCRESOK" define (no longer defined and already fixed,
fixes tests/cg/tcase)

git-svn-id: trunk@909 -

Jonas Maebe %!s(int64=20) %!d(string=hai) anos
pai
achega
abeeb43ae7
Modificáronse 1 ficheiros con 0 adicións e 8 borrados
  1. 0 8
      compiler/ncon.pas

+ 0 - 8
compiler/ncon.pas

@@ -155,11 +155,7 @@ interface
     function genenumnode(v : tenumsym) : tordconstnode;
     function genenumnode(v : tenumsym) : tordconstnode;
 
 
     { some helper routines }
     { some helper routines }
-{$ifdef INT64FUNCRESOK}
     function get_ordinal_value(p : tnode) : TConstExprInt;
     function get_ordinal_value(p : tnode) : TConstExprInt;
-{$else INT64FUNCRESOK}
-    function get_ordinal_value(p : tnode) : longint;
-{$endif INT64FUNCRESOK}
     function is_constresourcestringnode(p : tnode) : boolean;
     function is_constresourcestringnode(p : tnode) : boolean;
     function str_length(p : tnode) : longint;
     function str_length(p : tnode) : longint;
     function is_emptyset(p : tnode):boolean;
     function is_emptyset(p : tnode):boolean;
@@ -192,11 +188,7 @@ implementation
       end;
       end;
 
 
 
 
-{$ifdef INT64FUNCRESOK}
     function get_ordinal_value(p : tnode) : TConstExprInt;
     function get_ordinal_value(p : tnode) : TConstExprInt;
-{$else INT64FUNCRESOK}
-    function get_ordinal_value(p : tnode) : longint;
-{$endif INT64FUNCRESOK}
       begin
       begin
         get_ordinal_value:=0;
         get_ordinal_value:=0;
         if is_constnode(p) then
         if is_constnode(p) then