paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 07:19:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

- removed "INT64FUNCRESOK" define (no longer defined and already fixed,

Browse Source 
fixes tests/cg/tcase)

git-svn-id: trunk@909 -
This commit is contained in:
Jonas Maebe 2005-08-21 17:08:16 +00:00
parent f1d3ed5225
commit abeeb43ae7
1 changed files with 0 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ncon.pas
View File

@ -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