sysmocom
/
openblt
11
0
Fork 0
Code Issues Pull Requests Releases Activity

- Upgraded Microboot and interface projects from Delphi 4 to Delphi 7. 

git-svn-id: https://svn.code.sf.net/p/openblt/code/trunk@22 5dc33758-31d5-4daf-9ae8-b24bf3d40d73
This commit is contained in:
Frank Voorburg 2012-02-02 14:49:29 +00:00
parent 33e35e1c22
commit 26cd4f8bd6
17 changed files with 316 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Host/MicroBoot.exe
View File

Binary file not shown.

10
Host/Source/MicroBoot.cfg
View File

@ -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

58
Host/Source/MicroBoot.dof
View File

@ -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;

2
Host/Source/interfaces/XcpLoader.pas
View File

@ -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

11
Host/Source/interfaces/can/peak/openblt_can_peak.cfg
View File

@ -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

58
Host/Source/interfaces/can/peak/openblt_can_peak.dof
View File

@ -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;

11
Host/Source/interfaces/can/vector/openblt_can_vector.cfg
View File

@ -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

58
Host/Source/interfaces/can/vector/openblt_can_vector.dof
View File

@ -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;

2
Host/Source/interfaces/uart/CPDrv.pas
View File

@ -50,7 +50,7 @@ interface
uses
// Delphi units
Windows, Messages, SysUtils, Classes, Forms
Windows, Messages, SysUtils, Forms, Classes
// ComDrv32 units
;

11
Host/Source/interfaces/uart/openblt_uart.cfg
View File

@ -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

58
Host/Source/interfaces/uart/openblt_uart.dof
View File

@ -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;

11
Host/Source/interfaces/usb/openblt_usb.cfg
View File

@ -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

58
Host/Source/interfaces/usb/openblt_usb.dof
View File

@ -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;

BIN
Host/openblt_can_peak.dll
View File

Binary file not shown.

BIN
Host/openblt_can_vector.dll
View File

Binary file not shown.

BIN
Host/openblt_uart.dll
View File

Binary file not shown.

BIN
Host/openblt_usb.dll
View File

Binary file not shown.