diff --git a/compiler/arm/cgcpu.pas b/compiler/arm/cgcpu.pas
index 81864ed97c..f9671d41d1 100644
--- a/compiler/arm/cgcpu.pas
+++ b/compiler/arm/cgcpu.pas
@@ -2704,13 +2704,15 @@ unit cgcpu;
         maxtmpreg_arm = 10; {roozbeh: can be reduced to 8 or lower if might conflick with reserved ones,also +2 is used becouse of regs required for referencing}
         maxtmpreg_thumb = 5;
 
+      type
+        ttmpregisters = array[1..maxtmpreg_arm] of tregister;
       var
         srcref,dstref,usedtmpref,usedtmpref2:treference;
         srcreg,destreg,countreg,r,tmpreg:tregister;
         helpsize:aint;
         copysize:byte;
         cgsize:Tcgsize;
-        tmpregisters:array[1..maxtmpreg_arm] of tregister;
+        tmpregisters:ttmpregisters;
         maxtmpreg,
         tmpregi,tmpregi2:byte;
 
@@ -2876,6 +2878,7 @@ unit cgcpu;
         end;
 
       begin
+        tmpregisters:=Default(ttmpregisters);
         if len=0 then
           exit;
         if GenerateThumbCode then
diff --git a/compiler/systems/t_gba.pas b/compiler/systems/t_gba.pas
index 3b5142b068..60c3d0be4f 100644
--- a/compiler/systems/t_gba.pas
+++ b/compiler/systems/t_gba.pas
@@ -81,6 +81,7 @@ Var
   found1,
   found2   : boolean;  
 begin
+  s:='';
   WriteResponseFile:=False;
   linklibc:=(SharedLibFiles.Find('c')<>nil);
   linklibgcc:=(SharedLibFiles.Find('gcc')<>nil);
diff --git a/compiler/systems/t_nds.pas b/compiler/systems/t_nds.pas
index 1cc0afb5fd..d78b1ab2da 100644
--- a/compiler/systems/t_nds.pas
+++ b/compiler/systems/t_nds.pas
@@ -84,6 +84,7 @@ Var
   found1,
   found2   : boolean;
 begin
+  s:='';
   WriteResponseFile:=False;
   linklibc:=(SharedLibFiles.Find('c')<>nil);
   linklibgcc:=(SharedLibFiles.Find('gcc')<>nil);