Browse Source

* Fixed warnings and notes.

git-svn-id: trunk@9041 -
yury 18 years ago
parent
commit
e62c6cfcc4
4 changed files with 7 additions and 6 deletions
  1. 3 1
      rtl/arm/arm.inc
  2. 1 2
      rtl/inc/text.inc
  3. 1 1
      rtl/inc/wstrings.inc
  4. 2 2
      rtl/wince/system.pp

+ 3 - 1
rtl/arm/arm.inc

@@ -17,9 +17,11 @@
 
 
 {$asmmode gas}
 {$asmmode gas}
 
 
+{$ifdef FPC_SYSTEM_FPC_MOVE}
 const
 const
   cpu_has_edsp : boolean = false;
   cpu_has_edsp : boolean = false;
   in_edsp_test : boolean = false;
   in_edsp_test : boolean = false;
+{$endif FPC_SYSTEM_FPC_MOVE}
 
 
 {$if not(defined(wince)) and not(defined(gba)) and not(defined(nds)) and not(defined(FPUSOFT)) and not(defined(FPULIBGCC))}
 {$if not(defined(wince)) and not(defined(gba)) and not(defined(nds)) and not(defined(FPUSOFT)) and not(defined(FPULIBGCC))}
 {$define FPC_SYSTEM_HAS_SYSINITFPU}
 {$define FPC_SYSTEM_HAS_SYSINITFPU}
@@ -418,13 +420,13 @@ end;
 
 
 procedure fpc_cpucodeinit;
 procedure fpc_cpucodeinit;
 begin
 begin
+{$ifdef FPC_SYSTEM_FPC_MOVE}
   cpu_has_edsp:=true;
   cpu_has_edsp:=true;
   in_edsp_test:=true;
   in_edsp_test:=true;
   asm
   asm
     pld [r0]
     pld [r0]
   end;
   end;
   in_edsp_test:=false;
   in_edsp_test:=false;
-{$ifdef FPC_SYSTEM_FPC_MOVE}
   if cpu_has_edsp then
   if cpu_has_edsp then
     moveproc:=@move_pld
     moveproc:=@move_pld
   else
   else

+ 1 - 2
rtl/inc/text.inc

@@ -720,7 +720,7 @@ type  Ptypeinfo=^Ttypeinfo;
         s:Pstring;
         s:Pstring;
       end;
       end;
 
 
-var e:Penuminfo;
+var
     p:Pstring;
     p:Pstring;
     l,h,m:cardinal;
     l,h,m:cardinal;
     sorted_array:^Tsorted_array;
     sorted_array:^Tsorted_array;
@@ -1325,7 +1325,6 @@ end;
 procedure WriteStrAnsi(var t: textrec);
 procedure WriteStrAnsi(var t: textrec);
 var
 var
   str: pansistring;
   str: pansistring;
-  newbytes,
   oldlen: longint;
   oldlen: longint;
 begin
 begin
   if (t.bufpos=0) then
   if (t.bufpos=0) then

+ 1 - 1
rtl/inc/wstrings.inc

@@ -1091,7 +1091,7 @@ begin
               then
               then
         begin
         begin
           Dec(Pointer(S),WideFirstOff);
           Dec(Pointer(S),WideFirstOff);
-          if L*sizeof(WideChar)+WideRecLen>MemSize(Pointer(S)) then
+          if SizeUInt(L*sizeof(WideChar)+WideRecLen)>MemSize(Pointer(S)) then
               reallocmem(pointer(S), L*sizeof(WideChar)+WideRecLen);
               reallocmem(pointer(S), L*sizeof(WideChar)+WideRecLen);
           Inc(Pointer(S), WideFirstOff);
           Inc(Pointer(S), WideFirstOff);
         end
         end

+ 2 - 2
rtl/wince/system.pp

@@ -871,7 +871,7 @@ begin
      DLL_THREAD_ATTACH :
      DLL_THREAD_ATTACH :
        begin
        begin
          inclocked(Thread_count);
          inclocked(Thread_count);
-{$warning Allocate Threadvars !}
+{$note Allocate Threadvars !}
          if assigned(Dll_Thread_Attach_Hook) then
          if assigned(Dll_Thread_Attach_Hook) then
            Dll_Thread_Attach_Hook(DllParam);
            Dll_Thread_Attach_Hook(DllParam);
        end;
        end;
@@ -880,7 +880,7 @@ begin
          declocked(Thread_count);
          declocked(Thread_count);
          if assigned(Dll_Thread_Detach_Hook) then
          if assigned(Dll_Thread_Detach_Hook) then
            Dll_Thread_Detach_Hook(DllParam);
            Dll_Thread_Detach_Hook(DllParam);
-{$warning Release Threadvars !}
+{$note Release Threadvars !}
        end;
        end;
      DLL_PROCESS_DETACH :
      DLL_PROCESS_DETACH :
        begin
        begin