Merged revisions 909 via svnmerge from

/trunk

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

compiler/ncon.pas

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