* removed unused local variables

* fixed some "uninitialised function result" warnings for dummy routines

git-svn-id: branches/jvmbackend@18381 -

compiler/agjasmin.pas

@@ -146,22 +146,14 @@ implementation
         ch       : char;
         hp       : tai;
         hp1      : tailineinfo;
-        constdef : taiconst_type;
-        s,t      : string;
-        i,pos,l  : longint;
+        s        : string;
+        i,pos    : longint;
         InlineLevel : longint;
-        last_align : longint;
-        co       : comp;
-        sin      : single;
-        d        : double;
         do_line  : boolean;
-
-        sepChar : char;
       begin
         if not assigned(p) then
          exit;
 
-        last_align := 2;
         InlineLevel:=0;
         { lineinfo is only needed for al_procedures (PFV) }
         do_line:=(cs_asm_source in current_settings.globalswitches);
@@ -733,9 +725,6 @@ implementation
 
 
     procedure TJasminAssembler.WriteAsmList;
-    var
-      hal : tasmlisttype;
-      i: longint;
     begin
 {$ifdef EXTDEBUG}
       if assigned(current_module.mainsource) then
@@ -808,7 +797,6 @@ implementation
     function getopstr(const o:toper) : ansistring;
       var
         i,runstart,runlen: longint;
-        num: string[4];
         d: double;
         s: single;
       begin

compiler/hlcgobj.pas

@@ -1661,7 +1661,6 @@ implementation
   procedure thlcgobj.location_force_fpureg(list: TAsmList; var l: tlocation; size: tdef; maybeconst: boolean);
     var
       reg : tregister;
-      href : treference;
     begin
       if (l.loc<>LOC_FPUREGISTER)  and
          ((l.loc<>LOC_CFPUREGISTER) or (not maybeconst)) then

compiler/jvm/aasmcpu.pas

@@ -274,12 +274,14 @@ implementation
     function spilling_create_load(const ref:treference;r:tregister):Taicpu;
       begin
        internalerror(2010122614);
+       result:=nil;
       end;
 
 
     function spilling_create_store(r:tregister; const ref:treference):Taicpu;
       begin
        internalerror(2010122615);
+       result:=nil;
       end;
 
 

compiler/jvm/cgcpu.pas

@@ -113,8 +113,6 @@ implementation
 
 
     procedure tcgjvm.do_register_allocation(list:TAsmList;headertai:tai);
-      var
-        rt : tregistertype;
       begin
         { We only run the "register allocation" once for an arbitrary allocator,
           which will perform the register->temp mapping for all register types.

compiler/jvm/hlcgcpu.pas

@@ -1054,8 +1054,6 @@ implementation
     end;
 
   procedure thlcgjvm.g_initialize(list: TAsmList; t: tdef; const ref: treference);
-    var
-      extra_slots: longint;
     begin
       a_load_const_ref(list,t,0,ref);
     end;
@@ -1127,8 +1125,6 @@ implementation
       getputopc: array[boolean,boolean] of tasmop =
         ((a_putfield,a_putstatic),
          (a_getfield,a_getstatic));
-    var
-      size: aint;
     begin
       if assigned(ref.symbol) then
         begin

compiler/jvm/njvmcnv.pas

@@ -195,7 +195,6 @@ implementation
         end;
 
       var
-        href : treference;
         signeddef : tdef;
         l1 : tasmlabel;
 
@@ -276,8 +275,6 @@ implementation
 
     procedure tjvmtypeconvnode.second_int_to_bool;
       var
-        href: treference;
-        hreg2 : tregister;
         hlabel1,hlabel2,oldTrueLabel,oldFalseLabel : tasmlabel;
         newsize  : tcgsize;
       begin