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

* lying around newline fixes

Browse Source 
git-svn-id: trunk@13513 -
This commit is contained in:
florian 2009-08-10 18:56:32 +00:00
parent 10ede51609
commit 53d60f02b2
3 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/cgobj.pas
View File

@ -3057,6 +3057,7 @@ implementation
cgpara1.done;
end;
procedure tcg.g_copyvariant(list : TAsmList;const source,dest : treference);
var
cgpara1,cgpara2 : TCGPara;

2
compiler/i386/cgcpu.pas
View File

@ -612,6 +612,7 @@ unit cgcpu;
list.concat(taicpu.op_ref(op,S_L,href));
end;
procedure loadmethodoffstoeax;
var
href : treference;
@ -623,6 +624,7 @@ unit cgcpu;
cg.a_load_ref_reg(list,OS_ADDR,OS_ADDR,href,NR_EAX);
end;
var
lab : tasmsymbol;
make_global : boolean;

4
compiler/nobj.pas
View File

@ -625,7 +625,6 @@ implementation
procedure TVMTWriter.insertint(p : pprocdeftree;var at : pprocdeftree;var count:longint);
begin
if at=nil then
begin
@ -643,11 +642,10 @@ implementation
end;
end;
procedure TVMTWriter.insertstr(p : pprocdeftree;var at : pprocdeftree;var count:longint);
procedure TVMTWriter.insertstr(p : pprocdeftree;var at : pprocdeftree;var count:longint);
var
i : integer;
begin
if at=nil then
begin