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

* fix x64 compile

Browse Source 
* disabled inline

git-svn-id: trunk@5209 -
This commit is contained in:
peter 2006-11-03 18:44:19 +00:00
parent a7b317aa96
commit b56368edce
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ncgcon.pas
View File

@ -82,7 +82,7 @@ implementation
procedure tcgdataconstnode.pass_generate_code; procedure tcgdataconstnode.pass_generate_code;
var var
l : tasmlabel; l : tasmlabel;
i : aint; i : longint;
b : byte; b : byte;
begin begin
location_reset(location,LOC_CREFERENCE,OS_NO); location_reset(location,LOC_CREFERENCE,OS_NO);

10
compiler/ncon.pas
View File

@ -45,8 +45,8 @@ interface
function pass_typecheck:tnode;override; function pass_typecheck:tnode;override;
function docompare(p: tnode) : boolean; override; function docompare(p: tnode) : boolean; override;
procedure printnodedata(var t:text);override; procedure printnodedata(var t:text);override;
procedure append(const d;len : aint);inline; procedure append(const d;len : aint);
procedure align(value : word);inline; procedure align(value : word);
end; end;
tdataconstnodeclass = class of tdataconstnode; tdataconstnodeclass = class of tdataconstnode;
@ -404,7 +404,7 @@ implementation
function tdataconstnode.docompare(p: tnode) : boolean; function tdataconstnode.docompare(p: tnode) : boolean;
var var
b1,b2 : byte; b1,b2 : byte;
I : aint; I : longint;
begin begin
docompare := docompare :=
inherited docompare(p) and (data.size=tdataconstnode(p).data.size); inherited docompare(p) and (data.size=tdataconstnode(p).data.size);
@ -428,7 +428,7 @@ implementation
procedure tdataconstnode.printnodedata(var t:text); procedure tdataconstnode.printnodedata(var t:text);
var var
i : aint; i : longint;
b : byte; b : byte;
begin begin
inherited printnodedata(t); inherited printnodedata(t);
@ -445,7 +445,7 @@ implementation
end; end;
procedure tdataconstnode.append(const d;len : aint);inline; procedure tdataconstnode.append(const d;len : aint);
begin begin
data.seek(data.size); data.seek(data.size);
data.write(data,len); data.write(data,len);