paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 05:59:28 +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;
var
l : tasmlabel;
i : aint;
i : longint;
b : byte;
begin
location_reset(location,LOC_CREFERENCE,OS_NO);

10
compiler/ncon.pas
View File

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