diff --git a/Host/MicroBoot.exe b/Host/MicroBoot.exe index 1b28c229..3396b38a 100644 Binary files a/Host/MicroBoot.exe and b/Host/MicroBoot.exe differ diff --git a/Host/Source/MicroBoot.cfg b/Host/Source/MicroBoot.cfg index baee3e0e..b954a8ef 100644 --- a/Host/Source/MicroBoot.cfg +++ b/Host/Source/MicroBoot.cfg @@ -1,4 +1,4 @@ --$A+ +-$A8 -$B- -$C+ -$D+ @@ -31,5 +31,9 @@ -M -$M16384,1048576 -K$00400000 --E../ --LNc:\program files (x86)\borland\delphi4\Lib +-E"../" +-LE"c:\borland\delphi7\Projects\Bpl" +-LN"c:\borland\delphi7\Projects\Bpl" +-w-UNSAFE_TYPE +-w-UNSAFE_CODE +-w-UNSAFE_CAST diff --git a/Host/Source/MicroBoot.dof b/Host/Source/MicroBoot.dof index 07fb676d..cf0a4455 100644 --- a/Host/Source/MicroBoot.dof +++ b/Host/Source/MicroBoot.dof @@ -1,5 +1,7 @@ +[FileVersion] +Version=7.0 [Compiler] -A=1 +A=8 B=0 C=1 D=1 @@ -28,6 +30,55 @@ Z=1 ShowHints=1 ShowWarnings=1 UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; +NamespacePrefix= +SymbolDeprecated=1 +SymbolLibrary=1 +SymbolPlatform=1 +UnitLibrary=1 +UnitPlatform=1 +UnitDeprecated=1 +HResultCompat=1 +HidingMember=1 +HiddenVirtual=1 +Garbage=1 +BoundsError=1 +ZeroNilCompat=1 +StringConstTruncated=1 +ForLoopVarVarPar=1 +TypedConstVarPar=1 +AsgToTypedConst=1 +CaseLabelRange=1 +ForVariable=1 +ConstructingAbstract=1 +ComparisonFalse=1 +ComparisonTrue=1 +ComparingSignedUnsigned=1 +CombiningSignedUnsigned=1 +UnsupportedConstruct=1 +FileOpen=1 +FileOpenUnitSrc=1 +BadGlobalSymbol=1 +DuplicateConstructorDestructor=1 +InvalidDirective=1 +PackageNoLink=1 +PackageThreadVar=1 +ImplicitImport=1 +HPPEMITIgnored=1 +NoRetVal=1 +UseBeforeDef=1 +ForLoopVarUndef=1 +UnitNameMismatch=1 +NoCFGFileFound=1 +MessageDirective=1 +ImplicitVariants=1 +UnicodeToLocale=1 +LocaleToUnicode=1 +ImagebaseMultiple=1 +SuspiciousTypecast=1 +PrivatePropAccessor=1 +UnsafeType=0 +UnsafeCode=0 +UnsafeCast=0 [Linker] MapFile=0 OutputObjs=0 @@ -51,6 +102,9 @@ UsePackages=0 [Parameters] RunParams= HostApplication= +Launcher= +UseLauncher=0 +DebugCWD= [Version Info] IncludeVerInfo=0 AutoIncBuild=0 @@ -76,8 +130,6 @@ OriginalFilename= ProductName= ProductVersion=1.0.0.0 Comments= -[Excluded Packages] -$(DELPHI)\Lib\dclusr40.bpl=Borland User [HistoryLists\hlUnitAliases] Count=1 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; diff --git a/Host/Source/interfaces/XcpLoader.pas b/Host/Source/interfaces/XcpLoader.pas index 59307b58..f27db13d 100644 --- a/Host/Source/interfaces/XcpLoader.pas +++ b/Host/Source/interfaces/XcpLoader.pas @@ -1212,7 +1212,7 @@ begin while len > 0 do begin // set the current write length to make optimal use of the available packet data - currentWriteCnt := len mod (FCtoPGMPacketLen-1); + currentWriteCnt := Integer(len) mod (Integer(FCtoPGMPacketLen)-1); if currentWriteCnt = 0 then currentWriteCnt := FCtoPGMPacketLen-1; // prepare the packet data for PROGRAM diff --git a/Host/Source/interfaces/can/peak/openblt_can_peak.cfg b/Host/Source/interfaces/can/peak/openblt_can_peak.cfg index b7fa021f..12925c17 100644 --- a/Host/Source/interfaces/can/peak/openblt_can_peak.cfg +++ b/Host/Source/interfaces/can/peak/openblt_can_peak.cfg @@ -1,4 +1,4 @@ --$A+ +-$A8 -$B- -$C+ -$D+ @@ -31,5 +31,10 @@ -M -$M16384,1048576 -K$00400000 --E../../../../ --LNc:\program files (x86)\borland\delphi4\Lib +-E"../../../../" +-LE"c:\borland\delphi7\Projects\Bpl" +-LN"c:\borland\delphi7\Projects\Bpl" +-w-SYMBOL_PLATFORM +-w-UNSAFE_TYPE +-w-UNSAFE_CODE +-w-UNSAFE_CAST diff --git a/Host/Source/interfaces/can/peak/openblt_can_peak.dof b/Host/Source/interfaces/can/peak/openblt_can_peak.dof index 0e2c2a16..eb143300 100644 --- a/Host/Source/interfaces/can/peak/openblt_can_peak.dof +++ b/Host/Source/interfaces/can/peak/openblt_can_peak.dof @@ -1,5 +1,7 @@ +[FileVersion] +Version=7.0 [Compiler] -A=1 +A=8 B=0 C=1 D=1 @@ -28,6 +30,55 @@ Z=1 ShowHints=1 ShowWarnings=1 UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; +NamespacePrefix= +SymbolDeprecated=1 +SymbolLibrary=1 +SymbolPlatform=0 +UnitLibrary=1 +UnitPlatform=1 +UnitDeprecated=1 +HResultCompat=1 +HidingMember=1 +HiddenVirtual=1 +Garbage=1 +BoundsError=1 +ZeroNilCompat=1 +StringConstTruncated=1 +ForLoopVarVarPar=1 +TypedConstVarPar=1 +AsgToTypedConst=1 +CaseLabelRange=1 +ForVariable=1 +ConstructingAbstract=1 +ComparisonFalse=1 +ComparisonTrue=1 +ComparingSignedUnsigned=1 +CombiningSignedUnsigned=1 +UnsupportedConstruct=1 +FileOpen=1 +FileOpenUnitSrc=1 +BadGlobalSymbol=1 +DuplicateConstructorDestructor=1 +InvalidDirective=1 +PackageNoLink=1 +PackageThreadVar=1 +ImplicitImport=1 +HPPEMITIgnored=1 +NoRetVal=1 +UseBeforeDef=1 +ForLoopVarUndef=1 +UnitNameMismatch=1 +NoCFGFileFound=1 +MessageDirective=1 +ImplicitVariants=1 +UnicodeToLocale=1 +LocaleToUnicode=1 +ImagebaseMultiple=1 +SuspiciousTypecast=1 +PrivatePropAccessor=1 +UnsafeType=0 +UnsafeCode=0 +UnsafeCast=0 [Linker] MapFile=0 OutputObjs=0 @@ -51,6 +102,9 @@ UsePackages=0 [Parameters] RunParams= HostApplication= +Launcher= +UseLauncher=0 +DebugCWD= [Version Info] IncludeVerInfo=0 AutoIncBuild=0 @@ -76,8 +130,6 @@ OriginalFilename= ProductName= ProductVersion=1.0.0.0 Comments= -[Excluded Packages] -$(DELPHI)\Lib\dclusr40.bpl=Borland User [HistoryLists\hlUnitAliases] Count=1 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; diff --git a/Host/Source/interfaces/can/vector/openblt_can_vector.cfg b/Host/Source/interfaces/can/vector/openblt_can_vector.cfg index b7fa021f..12925c17 100644 --- a/Host/Source/interfaces/can/vector/openblt_can_vector.cfg +++ b/Host/Source/interfaces/can/vector/openblt_can_vector.cfg @@ -1,4 +1,4 @@ --$A+ +-$A8 -$B- -$C+ -$D+ @@ -31,5 +31,10 @@ -M -$M16384,1048576 -K$00400000 --E../../../../ --LNc:\program files (x86)\borland\delphi4\Lib +-E"../../../../" +-LE"c:\borland\delphi7\Projects\Bpl" +-LN"c:\borland\delphi7\Projects\Bpl" +-w-SYMBOL_PLATFORM +-w-UNSAFE_TYPE +-w-UNSAFE_CODE +-w-UNSAFE_CAST diff --git a/Host/Source/interfaces/can/vector/openblt_can_vector.dof b/Host/Source/interfaces/can/vector/openblt_can_vector.dof index 223c7e52..71ecbae6 100644 --- a/Host/Source/interfaces/can/vector/openblt_can_vector.dof +++ b/Host/Source/interfaces/can/vector/openblt_can_vector.dof @@ -1,5 +1,7 @@ +[FileVersion] +Version=7.0 [Compiler] -A=1 +A=8 B=0 C=1 D=1 @@ -28,6 +30,55 @@ Z=1 ShowHints=1 ShowWarnings=1 UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; +NamespacePrefix= +SymbolDeprecated=1 +SymbolLibrary=1 +SymbolPlatform=0 +UnitLibrary=1 +UnitPlatform=1 +UnitDeprecated=1 +HResultCompat=1 +HidingMember=1 +HiddenVirtual=1 +Garbage=1 +BoundsError=1 +ZeroNilCompat=1 +StringConstTruncated=1 +ForLoopVarVarPar=1 +TypedConstVarPar=1 +AsgToTypedConst=1 +CaseLabelRange=1 +ForVariable=1 +ConstructingAbstract=1 +ComparisonFalse=1 +ComparisonTrue=1 +ComparingSignedUnsigned=1 +CombiningSignedUnsigned=1 +UnsupportedConstruct=1 +FileOpen=1 +FileOpenUnitSrc=1 +BadGlobalSymbol=1 +DuplicateConstructorDestructor=1 +InvalidDirective=1 +PackageNoLink=1 +PackageThreadVar=1 +ImplicitImport=1 +HPPEMITIgnored=1 +NoRetVal=1 +UseBeforeDef=1 +ForLoopVarUndef=1 +UnitNameMismatch=1 +NoCFGFileFound=1 +MessageDirective=1 +ImplicitVariants=1 +UnicodeToLocale=1 +LocaleToUnicode=1 +ImagebaseMultiple=1 +SuspiciousTypecast=1 +PrivatePropAccessor=1 +UnsafeType=0 +UnsafeCode=0 +UnsafeCast=0 [Linker] MapFile=0 OutputObjs=0 @@ -51,6 +102,9 @@ UsePackages=0 [Parameters] RunParams= HostApplication= +Launcher= +UseLauncher=0 +DebugCWD= [Version Info] IncludeVerInfo=0 AutoIncBuild=0 @@ -76,8 +130,6 @@ OriginalFilename= ProductName= ProductVersion=1.0.0.0 Comments= -[Excluded Packages] -$(DELPHI)\Lib\dclusr40.bpl=Borland User [HistoryLists\hlUnitAliases] Count=1 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; diff --git a/Host/Source/interfaces/uart/CPDrv.pas b/Host/Source/interfaces/uart/CPDrv.pas index d92882da..c3d08f2d 100644 --- a/Host/Source/interfaces/uart/CPDrv.pas +++ b/Host/Source/interfaces/uart/CPDrv.pas @@ -50,7 +50,7 @@ interface uses // Delphi units - Windows, Messages, SysUtils, Classes, Forms + Windows, Messages, SysUtils, Forms, Classes // ComDrv32 units ; diff --git a/Host/Source/interfaces/uart/openblt_uart.cfg b/Host/Source/interfaces/uart/openblt_uart.cfg index c757c9ae..34505b93 100644 --- a/Host/Source/interfaces/uart/openblt_uart.cfg +++ b/Host/Source/interfaces/uart/openblt_uart.cfg @@ -1,4 +1,4 @@ --$A+ +-$A8 -$B- -$C+ -$D+ @@ -31,5 +31,10 @@ -M -$M16384,1048576 -K$00400000 --E../../../ --LNc:\program files (x86)\borland\delphi4\Lib +-E"../../../" +-LE"c:\borland\delphi7\Projects\Bpl" +-LN"c:\borland\delphi7\Projects\Bpl" +-w-SYMBOL_PLATFORM +-w-UNSAFE_TYPE +-w-UNSAFE_CODE +-w-UNSAFE_CAST diff --git a/Host/Source/interfaces/uart/openblt_uart.dof b/Host/Source/interfaces/uart/openblt_uart.dof index 09cc9d39..adabe2cd 100644 --- a/Host/Source/interfaces/uart/openblt_uart.dof +++ b/Host/Source/interfaces/uart/openblt_uart.dof @@ -1,5 +1,7 @@ +[FileVersion] +Version=7.0 [Compiler] -A=1 +A=8 B=0 C=1 D=1 @@ -28,6 +30,55 @@ Z=1 ShowHints=1 ShowWarnings=1 UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; +NamespacePrefix= +SymbolDeprecated=1 +SymbolLibrary=1 +SymbolPlatform=0 +UnitLibrary=1 +UnitPlatform=1 +UnitDeprecated=1 +HResultCompat=1 +HidingMember=1 +HiddenVirtual=1 +Garbage=1 +BoundsError=1 +ZeroNilCompat=1 +StringConstTruncated=1 +ForLoopVarVarPar=1 +TypedConstVarPar=1 +AsgToTypedConst=1 +CaseLabelRange=1 +ForVariable=1 +ConstructingAbstract=1 +ComparisonFalse=1 +ComparisonTrue=1 +ComparingSignedUnsigned=1 +CombiningSignedUnsigned=1 +UnsupportedConstruct=1 +FileOpen=1 +FileOpenUnitSrc=1 +BadGlobalSymbol=1 +DuplicateConstructorDestructor=1 +InvalidDirective=1 +PackageNoLink=1 +PackageThreadVar=1 +ImplicitImport=1 +HPPEMITIgnored=1 +NoRetVal=1 +UseBeforeDef=1 +ForLoopVarUndef=1 +UnitNameMismatch=1 +NoCFGFileFound=1 +MessageDirective=1 +ImplicitVariants=1 +UnicodeToLocale=1 +LocaleToUnicode=1 +ImagebaseMultiple=1 +SuspiciousTypecast=1 +PrivatePropAccessor=1 +UnsafeType=0 +UnsafeCode=0 +UnsafeCast=0 [Linker] MapFile=0 OutputObjs=0 @@ -51,6 +102,9 @@ UsePackages=0 [Parameters] RunParams= HostApplication= +Launcher= +UseLauncher=0 +DebugCWD= [Version Info] IncludeVerInfo=0 AutoIncBuild=0 @@ -76,8 +130,6 @@ OriginalFilename= ProductName= ProductVersion=1.0.0.0 Comments= -[Excluded Packages] -$(DELPHI)\Lib\dclusr40.bpl=Borland User [HistoryLists\hlUnitAliases] Count=1 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; diff --git a/Host/Source/interfaces/usb/openblt_usb.cfg b/Host/Source/interfaces/usb/openblt_usb.cfg index 1ec9ae84..0fd7b416 100644 --- a/Host/Source/interfaces/usb/openblt_usb.cfg +++ b/Host/Source/interfaces/usb/openblt_usb.cfg @@ -1,4 +1,4 @@ --$A+ +-$A8 -$B- -$C+ -$D+ @@ -31,5 +31,10 @@ -M -$M16384,1048576 -K$00400000 --E.\..\..\..\ --LNc:\program files (x86)\borland\delphi4\Lib +-E".\..\..\..\" +-LE"c:\borland\delphi7\Projects\Bpl" +-LN"c:\borland\delphi7\Projects\Bpl" +-w-SYMBOL_PLATFORM +-w-UNSAFE_TYPE +-w-UNSAFE_CODE +-w-UNSAFE_CAST diff --git a/Host/Source/interfaces/usb/openblt_usb.dof b/Host/Source/interfaces/usb/openblt_usb.dof index 71c15f7a..206e2125 100644 --- a/Host/Source/interfaces/usb/openblt_usb.dof +++ b/Host/Source/interfaces/usb/openblt_usb.dof @@ -1,5 +1,7 @@ +[FileVersion] +Version=7.0 [Compiler] -A=1 +A=8 B=0 C=1 D=1 @@ -28,6 +30,55 @@ Z=1 ShowHints=1 ShowWarnings=1 UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; +NamespacePrefix= +SymbolDeprecated=1 +SymbolLibrary=1 +SymbolPlatform=0 +UnitLibrary=1 +UnitPlatform=1 +UnitDeprecated=1 +HResultCompat=1 +HidingMember=1 +HiddenVirtual=1 +Garbage=1 +BoundsError=1 +ZeroNilCompat=1 +StringConstTruncated=1 +ForLoopVarVarPar=1 +TypedConstVarPar=1 +AsgToTypedConst=1 +CaseLabelRange=1 +ForVariable=1 +ConstructingAbstract=1 +ComparisonFalse=1 +ComparisonTrue=1 +ComparingSignedUnsigned=1 +CombiningSignedUnsigned=1 +UnsupportedConstruct=1 +FileOpen=1 +FileOpenUnitSrc=1 +BadGlobalSymbol=1 +DuplicateConstructorDestructor=1 +InvalidDirective=1 +PackageNoLink=1 +PackageThreadVar=1 +ImplicitImport=1 +HPPEMITIgnored=1 +NoRetVal=1 +UseBeforeDef=1 +ForLoopVarUndef=1 +UnitNameMismatch=1 +NoCFGFileFound=1 +MessageDirective=1 +ImplicitVariants=1 +UnicodeToLocale=1 +LocaleToUnicode=1 +ImagebaseMultiple=1 +SuspiciousTypecast=1 +PrivatePropAccessor=1 +UnsafeType=0 +UnsafeCode=0 +UnsafeCast=0 [Linker] MapFile=0 OutputObjs=0 @@ -51,6 +102,9 @@ UsePackages=0 [Parameters] RunParams= HostApplication= +Launcher= +UseLauncher=0 +DebugCWD= [Version Info] IncludeVerInfo=0 AutoIncBuild=0 @@ -76,8 +130,6 @@ OriginalFilename= ProductName= ProductVersion=1.0.0.0 Comments= -[Excluded Packages] -$(DELPHI)\Lib\dclusr40.bpl=Borland User [HistoryLists\hlUnitAliases] Count=1 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; diff --git a/Host/openblt_can_peak.dll b/Host/openblt_can_peak.dll index 1e8ac947..72f6ca51 100644 Binary files a/Host/openblt_can_peak.dll and b/Host/openblt_can_peak.dll differ diff --git a/Host/openblt_can_vector.dll b/Host/openblt_can_vector.dll index a1a15994..39fd8949 100644 Binary files a/Host/openblt_can_vector.dll and b/Host/openblt_can_vector.dll differ diff --git a/Host/openblt_uart.dll b/Host/openblt_uart.dll index 9d032b10..c280157e 100644 Binary files a/Host/openblt_uart.dll and b/Host/openblt_uart.dll differ diff --git a/Host/openblt_usb.dll b/Host/openblt_usb.dll index c0ffd40c..bd82f288 100644 Binary files a/Host/openblt_usb.dll and b/Host/openblt_usb.dll differ