ソースを参照

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

git-svn-id: trunk@909 -

Jonas Maebe 20 年 前
コミット
abeeb43ae7
1 ファイル変更0 行追加8 行削除
  1. 0 8
      compiler/ncon.pas

+ 0 - 8
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