Browse Source

* cosmetics

git-svn-id: trunk@36672 -
florian 8 years ago
parent
commit
bd57ca99a8
2 changed files with 1 additions and 3 deletions
  1. 0 2
      compiler/sparc/cgcpu.pas
  2. 1 1
      compiler/sparcgen/hlcgcpu.pas

+ 0 - 2
compiler/sparc/cgcpu.pas

@@ -28,9 +28,7 @@ interface
     uses
     uses
        globtype,parabase,
        globtype,parabase,
        cgbase,cgutils,cgobj,
        cgbase,cgutils,cgobj,
-{$ifndef SPARC64}
        cg64f32,
        cg64f32,
-{$endif SPARC64}
        aasmbase,aasmtai,aasmdata,aasmcpu,
        aasmbase,aasmtai,aasmdata,aasmcpu,
        cpubase,cpuinfo,
        cpubase,cpuinfo,
        node,symconst,SymType,symdef,
        node,symconst,SymType,symdef,

+ 1 - 1
compiler/sparcgen/hlcgcpu.pas

@@ -113,7 +113,7 @@ implementation
         begin
         begin
           if (procdef.extnumber=$ffff) then
           if (procdef.extnumber=$ffff) then
             Internalerror(200006139);
             Internalerror(200006139);
-          { load vmt}
+          { load vmt }
           reference_reset_base(href,voidpointertype,paraloc^.register,0,sizeof(pint),[]);
           reference_reset_base(href,voidpointertype,paraloc^.register,0,sizeof(pint),[]);
           cg.a_load_ref_reg(list,OS_ADDR,OS_ADDR,href,NR_G1);
           cg.a_load_ref_reg(list,OS_ADDR,OS_ADDR,href,NR_G1);
           { jmp to method }
           { jmp to method }