From b56368edcec3c66a9c73e5f5851bbff8171c9098 Mon Sep 17 00:00:00 2001 From: peter Date: Fri, 3 Nov 2006 18:44:19 +0000 Subject: [PATCH] * fix x64 compile * disabled inline git-svn-id: trunk@5209 - --- compiler/ncgcon.pas | 2 +- compiler/ncon.pas | 10 +++++----- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/compiler/ncgcon.pas b/compiler/ncgcon.pas index bc4b2eab5e..01112b02ae 100644 --- a/compiler/ncgcon.pas +++ b/compiler/ncgcon.pas @@ -82,7 +82,7 @@ implementation procedure tcgdataconstnode.pass_generate_code; var l : tasmlabel; - i : aint; + i : longint; b : byte; begin location_reset(location,LOC_CREFERENCE,OS_NO); diff --git a/compiler/ncon.pas b/compiler/ncon.pas index f0e8cfcb33..a68a364a77 100644 --- a/compiler/ncon.pas +++ b/compiler/ncon.pas @@ -45,8 +45,8 @@ interface function pass_typecheck:tnode;override; function docompare(p: tnode) : boolean; override; procedure printnodedata(var t:text);override; - procedure append(const d;len : aint);inline; - procedure align(value : word);inline; + procedure append(const d;len : aint); + procedure align(value : word); end; tdataconstnodeclass = class of tdataconstnode; @@ -404,7 +404,7 @@ implementation function tdataconstnode.docompare(p: tnode) : boolean; var b1,b2 : byte; - I : aint; + I : longint; begin docompare := inherited docompare(p) and (data.size=tdataconstnode(p).data.size); @@ -428,7 +428,7 @@ implementation procedure tdataconstnode.printnodedata(var t:text); var - i : aint; + i : longint; b : byte; begin inherited printnodedata(t); @@ -445,7 +445,7 @@ implementation end; - procedure tdataconstnode.append(const d;len : aint);inline; + procedure tdataconstnode.append(const d;len : aint); begin data.seek(data.size); data.write(data,len);