Wack0/IFPSTools.NET
1
Fork 0
mirror of https://github.com/Wack0/IFPSTools.NET.git synced 2025-06-18 10:45:36 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

tests: add test for extended floating point variables

Browse Source
This commit is contained in:
Rairii 2025-04-11 12:05:47 +01:00
parent 1767aeec9f
commit 056cd7a9a1
6 changed files with 1054 additions and 173 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
IFPSLib.Tests/CompiledCode_float80.bin Normal file
View File

Binary file not shown.

820
IFPSLib.Tests/CompiledCode_float80.txt Normal file
View File

@ -0,0 +1,820 @@
.version 23
.entry !MAIN
.type primitive(Pointer) Pointer
.type primitive(U32) U32
.type primitive(Variant) Variant
.type primitive(PChar) PChar
.type primitive(Currency) Currency
.type primitive(Extended) Extended
.type primitive(Double) Double
.type primitive(Single) Single
.type primitive(S64) S64
.type primitive(String) String
.type primitive(U32) U32_2
.type primitive(S32) S32
.type primitive(S16) S16
.type primitive(U16) U16
.type primitive(S8) S8
.type primitive(String) String_2
.type primitive(UnicodeString) UnicodeString
.type primitive(UnicodeString) UnicodeString_2
.type primitive(String) String_3
.type primitive(UnicodeString) UnicodeString_3
.type primitive(WideString) WideString
.type primitive(WideChar) WideChar
.type primitive(WideChar) WideChar_2
.type primitive(Char) Char
.type primitive(U8) U8
.type primitive(U16) U16_2
.type primitive(U32) U32_3
.type(export) primitive(U8) BOOLEAN
.type primitive(U8) U8_2
.type(export) class(TBUTTON) TBUTTON
.type record(U32_2,S32,S32,S32,U32_2,U32_2,U16,U16,U16,U16,U16,S32,S32,U32_2,U32_2,PChar,PChar,S32,S32) Type30
.type record(S32,PChar,PChar,PChar,U32_2) Type31
.type record(S32,S32) Type32
.type(export) record(S32,S32,S32,S32) TRECT
.type record(U32_2,U32_2,TRECT,TRECT,Type32) Type34
.type(export) class(TWIZARDFORM) TWIZARDFORM
.type(export) class(TRICHEDITVIEWER) TRICHEDITVIEWER
.type(export) class(TOBJECT) TOBJECT
.type(export) class(TNEWRADIOBUTTON) TNEWRADIOBUTTON
.type(export) class(TCONTROL) TCONTROL
.type(export) class(TCOMPONENT) TCOMPONENT
.type(export) class(TNEWNOTEBOOKPAGE) TNEWNOTEBOOKPAGE
.type(export) funcptr(void(__in)) TNOTIFYEVENT
.type(export) class(TWINCONTROL) TWINCONTROL
.global TBUTTON Global0
.function(export) void !MAIN()
ret
.function(import) external dll("gdi32.dll","GetDeviceCaps") __stdcall returnsval gdi32.dll!GetDeviceCaps(__in __unknown,__in __unknown)
.function(import) external dll("comdlg32.dll","PrintDlgA") __stdcall returnsval comdlg32.dll!PrintDlgA(__out __unknown)
.function(import) external dll("gdi32.dll","DeleteDC") __stdcall returnsval gdi32.dll!DeleteDC(__in __unknown)
.function(import) external dll("gdi32.dll","StartDocA") __stdcall returnsval gdi32.dll!StartDocA(__in __unknown,__in __unknown)
.function(import) external dll("gdi32.dll","StartPage") __stdcall returnsval gdi32.dll!StartPage(__in __unknown)
.function(import) external dll("gdi32.dll","EndPage") __stdcall returnsval gdi32.dll!EndPage(__in __unknown)
.function(import) external dll("gdi32.dll","EndDoc") __stdcall returnsval gdi32.dll!EndDoc(__in __unknown)
.function(import) external dll("gdi32.dll","AbortDoc") __stdcall returnsval gdi32.dll!AbortDoc(__in __unknown)
.function(import) external dll("user32.dll","SendMessageA") __stdcall returnsval user32.dll!SendMessageA(__in __unknown,__in __unknown,__in __unknown,__out __unknown)
.function(import) external dll("user32.dll","SendMessageA") __stdcall returnsval user32.dll!SendMessageA_2(__in __unknown,__in __unknown,__in __unknown,__out __unknown)
.function(export) BOOLEAN ISUPGRADE()
pushtype UnicodeString_2 ; StackCount = 1
pushtype TWIZARDFORM ; StackCount = 2
pushvar Var2 ; StackCount = 3
call WIZARDFORM
pop ; StackCount = 2
pushvar Var1 ; StackCount = 3
call TWIZARDFORM->PREVAPPDIR
pop ; StackCount = 2
pop ; StackCount = 1
ne RetVal, Var1, UnicodeString_3("")
ret
.function(import) external internal returnsval WIZARDFORM()
.function(import) external class(TWIZARDFORM, PREVAPPDIR) __pascal void TWIZARDFORM->PREVAPPDIR(__in __unknown,__in __unknown)
.function(export) BOOLEAN ISPORTABLE()
pushtype UnicodeString_2 ; StackCount = 1
pushtype UnicodeString_2 ; StackCount = 2
assign Var2, UnicodeString_3("{param:portable|0}")
pushvar Var1 ; StackCount = 3
call EXPANDCONSTANT
pop ; StackCount = 2
pop ; StackCount = 1
eq RetVal, Var1, WideChar_2("1")
pop ; StackCount = 0
ret
.function(import) external internal returnsval EXPANDCONSTANT(__in __unknown)
.function(export) BOOLEAN SELECTPRINTER(__out Type30 Arg1)
pushtype S32 ; StackCount = 1
pushtype Type30 ; StackCount = 2
assign Var2, Arg1
pushvar Var1 ; StackCount = 3
call SIZEOF
pop ; StackCount = 2
pop ; StackCount = 1
assign Arg1[0], Var1
pop ; StackCount = 0
pushtype TWIZARDFORM ; StackCount = 1
pushvar Var1 ; StackCount = 2
call WIZARDFORM
pop ; StackCount = 1
pushvar Arg1[1] ; StackCount = 2
call TWINCONTROL->HANDLE
pop ; StackCount = 1
pop ; StackCount = 0
assign Arg1[2], S32(0)
assign Arg1[3], S32(0)
assign Arg1[4], S32(0)
assign Arg1[5], S32(262404)
assign Arg1[6], S32(0)
assign Arg1[7], S32(0)
assign Arg1[8], S32(0)
assign Arg1[9], S32(0)
assign Arg1[10], S32(0)
assign Arg1[11], S32(0)
assign Arg1[12], S32(0)
assign Arg1[13], S32(0)
assign Arg1[14], S32(0)
assign Arg1[15], UnicodeString_3("")
assign Arg1[16], UnicodeString_3("")
assign Arg1[17], S32(0)
assign Arg1[18], S32(0)
pushtype Pointer ; StackCount = 1
setptr Var1, Arg1
pushvar RetVal ; StackCount = 2
call comdlg32.dll!PrintDlgA
pop ; StackCount = 1
pop ; StackCount = 0
ret
.function(import) external internal returnsval SIZEOF()
.function(import) external class(TWINCONTROL, HANDLE) __pascal void TWINCONTROL->HANDLE(__in __unknown,__in __unknown)
.function(export) BOOLEAN PRINTRICHEDIT(__in Type30 Arg1,__in TRICHEDITVIEWER Arg2,__in UnicodeString_2 Arg3,__in Double Arg4,__in Double Arg5,__in Double Arg6,__in Double Arg7)
pushtype Type31 ; StackCount = 1
pushtype Type34 ; StackCount = 2
pushtype U32_2 ; StackCount = 3
pushtype S32 ; StackCount = 4
pushtype S32 ; StackCount = 5
pushtype S32 ; StackCount = 6
pushtype S32 ; StackCount = 7
pushtype S32 ; StackCount = 8
pushtype S32 ; StackCount = 9
pushtype S32 ; StackCount = 10
pushtype S32 ; StackCount = 11
pushtype S32 ; StackCount = 12
pushtype S32 ; StackCount = 13
pushtype S32 ; StackCount = 14
assign Var3, Arg1[4]
pushtype TRICHEDITVIEWER ; StackCount = 15
assign Var15, Arg2
pushvar Var4 ; StackCount = 16
call TWINCONTROL->HANDLE
pop ; StackCount = 15
pop ; StackCount = 14
pushtype Type31 ; StackCount = 15
assign Var15, Var1
pushvar Var1[0] ; StackCount = 16
call SIZEOF
pop ; StackCount = 15
pop ; StackCount = 14
assign Var1[1], Arg3
assign Var1[2], UnicodeString_3("")
assign Var1[3], UnicodeString_3("")
assign Var1[4], S32(0)
pushtype BOOLEAN ; StackCount = 15
pushtype S32 ; StackCount = 16
pushtype Type31 ; StackCount = 17
assign Var17, Var1
pushtype U32_2 ; StackCount = 18
assign Var18, Var3
pushvar Var16 ; StackCount = 19
call gdi32.dll!StartDocA
pop ; StackCount = 18
pop ; StackCount = 17
pop ; StackCount = 16
le Var15, Var16, S32(0)
pop ; StackCount = 15
sfz Var15
pop ; StackCount = 14
jf loc_137
ret
loc_137:
pushtype S32 ; StackCount = 15
assign Var15, S32(88)
pushtype U32_2 ; StackCount = 16
assign Var16, Var3
pushvar Var8 ; StackCount = 17
call gdi32.dll!GetDeviceCaps
pop ; StackCount = 16
pop ; StackCount = 15
pop ; StackCount = 14
pushtype S32 ; StackCount = 15
assign Var15, S32(90)
pushtype U32_2 ; StackCount = 16
assign Var16, Var3
pushvar Var9 ; StackCount = 17
call gdi32.dll!GetDeviceCaps
pop ; StackCount = 16
pop ; StackCount = 15
pop ; StackCount = 14
pushtype S32 ; StackCount = 15
assign Var15, S32(8)
pushtype U32_2 ; StackCount = 16
assign Var16, Var3
pushvar Var6 ; StackCount = 17
call gdi32.dll!GetDeviceCaps
pop ; StackCount = 16
pop ; StackCount = 15
pop ; StackCount = 14
mul Var6, S32(1440)
div Var6, Var8
pushtype S32 ; StackCount = 15
assign Var15, S32(10)
pushtype U32_2 ; StackCount = 16
assign Var16, Var3
pushvar Var7 ; StackCount = 17
call gdi32.dll!GetDeviceCaps
pop ; StackCount = 16
pop ; StackCount = 15
pop ; StackCount = 14
mul Var7, S32(1440)
div Var7, Var9
pushtype S32 ; StackCount = 15
assign Var15, S32(110)
pushtype U32_2 ; StackCount = 16
assign Var16, Var3
pushvar Var10 ; StackCount = 17
call gdi32.dll!GetDeviceCaps
pop ; StackCount = 16
pop ; StackCount = 15
pop ; StackCount = 14
mul Var10, S32(1440)
div Var10, Var8
pushtype S32 ; StackCount = 15
assign Var15, S32(111)
pushtype U32_2 ; StackCount = 16
assign Var16, Var3
pushvar Var11 ; StackCount = 17
call gdi32.dll!GetDeviceCaps
pop ; StackCount = 16
pop ; StackCount = 15
pop ; StackCount = 14
mul Var11, S32(1440)
div Var11, Var9
pushtype S32 ; StackCount = 15
assign Var15, S32(112)
pushtype U32_2 ; StackCount = 16
assign Var16, Var3
pushvar Var12 ; StackCount = 17
call gdi32.dll!GetDeviceCaps
pop ; StackCount = 16
pop ; StackCount = 15
pop ; StackCount = 14
mul Var12, S32(1440)
div Var12, Var8
pushtype S32 ; StackCount = 15
assign Var15, S32(113)
pushtype U32_2 ; StackCount = 16
assign Var16, Var3
pushvar Var13 ; StackCount = 17
call gdi32.dll!GetDeviceCaps
pop ; StackCount = 16
pop ; StackCount = 15
pop ; StackCount = 14
mul Var13, S32(1440)
div Var13, Var9
pushtype Extended ; StackCount = 15
pushtype Double ; StackCount = 16
assign Var16, Arg4
mul Var16, S32(1440)
assign Var15, Var16
pop ; StackCount = 15
pushvar Var5 ; StackCount = 16
call ROUND
pop ; StackCount = 15
pop ; StackCount = 14
sub Var5, Var12
pushtype BOOLEAN ; StackCount = 15
lt Var15, Var5, S32(0)
sfz Var15
pop ; StackCount = 14
jf loc_3ef
assign Var5, S32(0)
loc_3ef:
pushtype Pointer ; StackCount = 15
setptr Var15, Var2
setptr Var15, Var15[2]
setptr Var15, Var15[0]
assign Var15, Var5
pop ; StackCount = 14
pushtype Extended ; StackCount = 15
pushtype Double ; StackCount = 16
assign Var16, Arg5
mul Var16, S32(1440)
assign Var15, Var16
pop ; StackCount = 15
pushvar Var5 ; StackCount = 16
call ROUND
pop ; StackCount = 15
pop ; StackCount = 14
sub Var5, Var13
pushtype BOOLEAN ; StackCount = 15
lt Var15, Var5, S32(0)
sfz Var15
pop ; StackCount = 14
jf loc_4a9
assign Var5, S32(0)
loc_4a9:
pushtype Pointer ; StackCount = 15
setptr Var15, Var2
setptr Var15, Var15[2]
setptr Var15, Var15[1]
assign Var15, Var5
pop ; StackCount = 14
assign Var5, Var10
pushtype S32 ; StackCount = 15
pushtype Extended ; StackCount = 16
pushtype Double ; StackCount = 17
assign Var17, Arg6
mul Var17, S32(1440)
assign Var16, Var17
pop ; StackCount = 16
pushvar Var15 ; StackCount = 17
call ROUND
pop ; StackCount = 16
pop ; StackCount = 15
sub Var5, Var15
pop ; StackCount = 14
sub Var5, Var12
pushtype BOOLEAN ; StackCount = 15
gt Var15, Var5, Var6
sfz Var15
pop ; StackCount = 14
jf loc_578
assign Var5, Var6
loc_578:
pushtype Pointer ; StackCount = 15
setptr Var15, Var2
setptr Var15, Var15[2]
setptr Var15, Var15[2]
assign Var15, Var5
pop ; StackCount = 14
assign Var5, Var11
pushtype S32 ; StackCount = 15
pushtype Extended ; StackCount = 16
pushtype Double ; StackCount = 17
assign Var17, Arg7
mul Var17, S32(1440)
assign Var16, Var17
pop ; StackCount = 16
pushvar Var15 ; StackCount = 17
call ROUND
pop ; StackCount = 16
pop ; StackCount = 15
sub Var5, Var15
pop ; StackCount = 14
sub Var5, Var13
pushtype BOOLEAN ; StackCount = 15
gt Var15, Var5, Var7
sfz Var15
pop ; StackCount = 14
jf loc_647
assign Var5, Var7
loc_647:
pushtype Pointer ; StackCount = 15
setptr Var15, Var2
setptr Var15, Var15[2]
setptr Var15, Var15[3]
assign Var15, Var5
pop ; StackCount = 14
assign Var2[3], Var2[2]
assign Var2[0], Var3
assign Var2[1], Var3
pushtype S32 ; StackCount = 15
pushtype S32 ; StackCount = 16
assign Var16, S32(-1)
pushtype S32 ; StackCount = 17
assign Var17, S32(0)
pushtype S32 ; StackCount = 18
assign Var18, S32(177)
pushtype S32 ; StackCount = 19
assign Var19, Var4
pushvar Var15 ; StackCount = 20
call SENDMESSAGE
pop ; StackCount = 19
pop ; StackCount = 18
pop ; StackCount = 17
pop ; StackCount = 16
pop ; StackCount = 15
pop ; StackCount = 14
pushtype S32 ; StackCount = 15
pushtype Pointer ; StackCount = 16
setptr Var16, Var2[4]
pushtype S32 ; StackCount = 17
assign Var17, S32(0)
pushtype S32 ; StackCount = 18
assign Var18, S32(1076)
pushtype S32 ; StackCount = 19
assign Var19, Var4
pushvar Var15 ; StackCount = 20
call user32.dll!SendMessageA
pop ; StackCount = 19
pop ; StackCount = 18
pop ; StackCount = 17
pop ; StackCount = 16
pop ; StackCount = 15
pop ; StackCount = 14
assign RetVal, BOOLEAN(1)
pushtype BOOLEAN ; StackCount = 15
loc_787:
pushtype BOOLEAN ; StackCount = 16
pushtype Pointer ; StackCount = 17
setptr Var17, Var2
setptr Var17, Var17[4]
setptr Var17, Var17[0]
pushtype Pointer ; StackCount = 18
setptr Var18, Var2
setptr Var18, Var18[4]
setptr Var18, Var18[1]
lt Var16, Var17, Var18
pop ; StackCount = 17
pop ; StackCount = 16
assign Var15, Var16
pop ; StackCount = 15
jz loc_81d, Var15
and Var15, RetVal
loc_81d:
jz loc_9cf, Var15
pushtype S32 ; StackCount = 16
pushtype U32_2 ; StackCount = 17
assign Var17, Var3
pushvar Var16 ; StackCount = 18
call gdi32.dll!StartPage
pop ; StackCount = 17
pop ; StackCount = 16
gt RetVal, Var16, S32(0)
pop ; StackCount = 15
pushtype BOOLEAN ; StackCount = 16
assign Var16, RetVal
setz Var16
sfz Var16
pop ; StackCount = 15
jf loc_887
jump loc_9cf
loc_887:
pushtype Pointer ; StackCount = 16
setptr Var16, Var2
pushtype S32 ; StackCount = 17
assign Var17, S32(-1)
pushtype S32 ; StackCount = 18
assign Var18, S32(1081)
pushtype S32 ; StackCount = 19
assign Var19, Var4
pushvar Var14 ; StackCount = 20
call user32.dll!SendMessageA_2
pop ; StackCount = 19
pop ; StackCount = 18
pop ; StackCount = 17
pop ; StackCount = 16
pop ; StackCount = 15
pushtype BOOLEAN ; StackCount = 16
pushtype BOOLEAN ; StackCount = 17
pushtype Pointer ; StackCount = 18
setptr Var18, Var2
setptr Var18, Var18[4]
setptr Var18, Var18[0]
le Var17, Var14, Var18
pop ; StackCount = 17
assign Var16, Var17
pop ; StackCount = 16
sfz Var16
pop ; StackCount = 15
jf loc_958
assign RetVal, BOOLEAN(0)
jump loc_9cf
jump loc_9ca
loc_958:
pushtype Pointer ; StackCount = 16
setptr Var16, Var2
setptr Var16, Var16[4]
setptr Var16, Var16[0]
assign Var16, Var14
pop ; StackCount = 15
pushtype S32 ; StackCount = 16
pushtype U32_2 ; StackCount = 17
assign Var17, Var3
pushvar Var16 ; StackCount = 18
call gdi32.dll!EndPage
pop ; StackCount = 17
pop ; StackCount = 16
gt RetVal, Var16, S32(0)
pop ; StackCount = 15
loc_9ca:
jump loc_787
loc_9cf:
pop ; StackCount = 14
pushtype S32 ; StackCount = 15
pushtype S32 ; StackCount = 16
assign Var16, S32(0)
pushtype S32 ; StackCount = 17
assign Var17, S32(0)
pushtype S32 ; StackCount = 18
assign Var18, S32(1081)
pushtype S32 ; StackCount = 19
assign Var19, Var4
pushvar Var15 ; StackCount = 20
call SENDMESSAGE
pop ; StackCount = 19
pop ; StackCount = 18
pop ; StackCount = 17
pop ; StackCount = 16
pop ; StackCount = 15
pop ; StackCount = 14
pushtype BOOLEAN ; StackCount = 15
assign Var15, RetVal
sfz Var15
pop ; StackCount = 14
jf loc_a77
pushtype S32 ; StackCount = 15
pushtype U32_2 ; StackCount = 16
assign Var16, Var3
pushvar Var15 ; StackCount = 17
call gdi32.dll!EndDoc
pop ; StackCount = 16
pop ; StackCount = 15
pop ; StackCount = 14
jump loc_a9a
loc_a77:
pushtype S32 ; StackCount = 15
pushtype U32_2 ; StackCount = 16
assign Var16, Var3
pushvar Var15 ; StackCount = 17
call gdi32.dll!AbortDoc
pop ; StackCount = 16
pop ; StackCount = 15
pop ; StackCount = 14
loc_a9a:
ret
.function(import) external internal returnsval ROUND(__in __unknown)
.function(import) external internal returnsval SENDMESSAGE(__in __unknown,__in __unknown,__in __unknown,__in __unknown)
.function(export) void PRINTBUTTONCLICK(__in TOBJECT Arg1)
pushtype Type30 ; StackCount = 1
pushtype BOOLEAN ; StackCount = 2
pushtype Pointer ; StackCount = 3
setptr Var3, Var1
pushvar Var2 ; StackCount = 4
call SELECTPRINTER
pop ; StackCount = 3
pop ; StackCount = 2
setz Var2
sfz Var2
pop ; StackCount = 1
jf loc_3b
ret
loc_3b:
starteh loc_124, null, null, loc_14d
pushtype BOOLEAN ; StackCount = 2
pushtype Double ; StackCount = 3
assign Var3, Extended(0.50)
pushtype Double ; StackCount = 4
assign Var4, Extended(0.50)
pushtype Double ; StackCount = 5
assign Var5, Extended(0.50)
pushtype Double ; StackCount = 6
assign Var6, Extended(0.50)
pushtype UnicodeString_2 ; StackCount = 7
assign Var7, UnicodeString_3("License")
pushtype TRICHEDITVIEWER ; StackCount = 8
pushtype TWIZARDFORM ; StackCount = 9
pushvar Var9 ; StackCount = 10
call WIZARDFORM
pop ; StackCount = 9
pushvar Var8 ; StackCount = 10
call TWIZARDFORM->LICENSEMEMO
pop ; StackCount = 9
pop ; StackCount = 8
pushtype Type30 ; StackCount = 9
assign Var9, Var1
pushvar Var2 ; StackCount = 10
call PRINTRICHEDIT
pop ; StackCount = 9
pop ; StackCount = 8
pop ; StackCount = 7
pop ; StackCount = 6
pop ; StackCount = 5
pop ; StackCount = 4
pop ; StackCount = 3
pop ; StackCount = 2
pop ; StackCount = 1
endtry
loc_124:
pushtype BOOLEAN ; StackCount = 2
pushtype U32_2 ; StackCount = 3
assign Var3, Var1[4]
pushvar Var2 ; StackCount = 4
call gdi32.dll!DeleteDC
pop ; StackCount = 3
pop ; StackCount = 2
pop ; StackCount = 1
endfinally
loc_14d:
ret
.function(import) external class(TWIZARDFORM, LICENSEMEMO) __pascal void TWIZARDFORM->LICENSEMEMO(__in __unknown,__in __unknown)
.function(export) void ADJUSTPRINTBUTTON()
pushtype BOOLEAN ; StackCount = 1
pushtype TBUTTON ; StackCount = 2
assign Var2, Global0
pushvar Var1 ; StackCount = 3
call !ASSIGNED
pop ; StackCount = 2
pop ; StackCount = 1
sfz Var1
pop ; StackCount = 0
jf loc_138
pushtype S32 ; StackCount = 1
pushtype TRICHEDITVIEWER ; StackCount = 2
pushtype TWIZARDFORM ; StackCount = 3
pushvar Var3 ; StackCount = 4
call WIZARDFORM
pop ; StackCount = 3
pushvar Var2 ; StackCount = 4
call TWIZARDFORM->LICENSEMEMO
pop ; StackCount = 3
pop ; StackCount = 2
pushvar Var1 ; StackCount = 3
call TCONTROL->LEFT
pop ; StackCount = 2
pop ; StackCount = 1
pushtype S32 ; StackCount = 2
pushtype TRICHEDITVIEWER ; StackCount = 3
pushtype TWIZARDFORM ; StackCount = 4
pushvar Var4 ; StackCount = 5
call WIZARDFORM
pop ; StackCount = 4
pushvar Var3 ; StackCount = 5
call TWIZARDFORM->LICENSEMEMO
pop ; StackCount = 4
pop ; StackCount = 3
pushvar Var2 ; StackCount = 4
call TCONTROL->WIDTH
pop ; StackCount = 3
pop ; StackCount = 2
add Var1, Var2
pop ; StackCount = 1
pushtype S32 ; StackCount = 2
pushtype TBUTTON ; StackCount = 3
assign Var3, Global0
pushvar Var2 ; StackCount = 4
call TCONTROL->WIDTH
pop ; StackCount = 3
pop ; StackCount = 2
sub Var1, Var2
pop ; StackCount = 1
pushtype TBUTTON ; StackCount = 2
assign Var2, Global0
call TCONTROL->LEFT_2
pop ; StackCount = 1
pop ; StackCount = 0
pushtype S32 ; StackCount = 1
pushtype TNEWRADIOBUTTON ; StackCount = 2
pushtype TWIZARDFORM ; StackCount = 3
pushvar Var3 ; StackCount = 4
call WIZARDFORM
pop ; StackCount = 3
pushvar Var2 ; StackCount = 4
call TWIZARDFORM->LICENSEACCEPTEDRADIO
pop ; StackCount = 3
pop ; StackCount = 2
pushvar Var1 ; StackCount = 3
call TCONTROL->TOP
pop ; StackCount = 2
pop ; StackCount = 1
pushtype TBUTTON ; StackCount = 2
assign Var2, Global0
call TCONTROL->TOP_2
pop ; StackCount = 1
pop ; StackCount = 0
loc_138:
ret
.function(import) external internal returnsval !ASSIGNED(__in __unknown)
.function(import) external class(TCONTROL, LEFT) __pascal void TCONTROL->LEFT(__in __unknown,__in __unknown)
.function(import) external class(TCONTROL, WIDTH) __pascal void TCONTROL->WIDTH(__in __unknown,__in __unknown)
.function(import) external class(TCONTROL, LEFT, property) __pascal void TCONTROL->LEFT_2(__in __unknown,__in __unknown)
.function(import) external class(TWIZARDFORM, LICENSEACCEPTEDRADIO) __pascal void TWIZARDFORM->LICENSEACCEPTEDRADIO(__in __unknown,__in __unknown)
.function(import) external class(TCONTROL, TOP) __pascal void TCONTROL->TOP(__in __unknown,__in __unknown)
.function(import) external class(TCONTROL, TOP, property) __pascal void TCONTROL->TOP_2(__in __unknown,__in __unknown)
.function(export) void CREATEPRINTBUTTON()
pushtype TCOMPONENT ; StackCount = 1
pushtype TNEWNOTEBOOKPAGE ; StackCount = 2
pushtype TWIZARDFORM ; StackCount = 3
pushvar Var3 ; StackCount = 4
call WIZARDFORM
pop ; StackCount = 3
pushvar Var2 ; StackCount = 4
call TWIZARDFORM->LICENSEPAGE
pop ; StackCount = 3
pop ; StackCount = 2
assign Var1, Var2
pop ; StackCount = 1
pushtype U32_2 ; StackCount = 2
assign Var2, U32_2(29)
pushvar Global0 ; StackCount = 3
call TCONTROL->CREATE
pop ; StackCount = 2
pop ; StackCount = 1
pop ; StackCount = 0
pushtype UnicodeString_2 ; StackCount = 1
assign Var1, UnicodeString_3("&Print")
pushtype TBUTTON ; StackCount = 2
assign Var2, Global0
call TBUTTON->CAPTION
pop ; StackCount = 1
pop ; StackCount = 0
pushtype TNOTIFYEVENT ; StackCount = 1
assign Var1, TNOTIFYEVENT(PRINTBUTTONCLICK)
pushtype TBUTTON ; StackCount = 2
assign Var2, Global0
call TBUTTON->ONCLICK
pop ; StackCount = 1
pop ; StackCount = 0
pushtype TWINCONTROL ; StackCount = 1
pushtype TNEWRADIOBUTTON ; StackCount = 2
pushtype TWIZARDFORM ; StackCount = 3
pushvar Var3 ; StackCount = 4
call WIZARDFORM
pop ; StackCount = 3
pushvar Var2 ; StackCount = 4
call TWIZARDFORM->LICENSEACCEPTEDRADIO
pop ; StackCount = 3
pop ; StackCount = 2
pushvar Var1 ; StackCount = 3
call TCONTROL->PARENT
pop ; StackCount = 2
pop ; StackCount = 1
pushtype TBUTTON ; StackCount = 2
assign Var2, Global0
call TCONTROL->PARENT_2
pop ; StackCount = 1
pop ; StackCount = 0
ret
.function(import) external class(TCONTROL, CREATE) __fastcall returnsval TCONTROL->CREATE(__in __unknown)
.function(import) external class(TWIZARDFORM, LICENSEPAGE) __pascal void TWIZARDFORM->LICENSEPAGE(__in __unknown,__in __unknown)
.function(import) external class(TBUTTON, CAPTION, property) __pascal void TBUTTON->CAPTION(__in __unknown,__in __unknown)
.function(import) external class(TBUTTON, ONCLICK, property) __pascal void TBUTTON->ONCLICK(__in __unknown,__in __unknown)
.function(import) external class(TCONTROL, PARENT) __pascal void TCONTROL->PARENT(__in __unknown,__in __unknown)
.function(import) external class(TCONTROL, PARENT, property) __pascal void TCONTROL->PARENT_2(__in __unknown,__in __unknown)
.function(export) void INITIALIZEWIZARD()
call CREATEPRINTBUTTON
ret
.function(export) void CURPAGECHANGED(__in S32 Arg1)
call ADJUSTPRINTBUTTON
ret
.function(export) BOOLEAN SHOULDSKIPPAGE(__in S32 Arg1)
assign RetVal, BOOLEAN(0)
pushtype BOOLEAN ; StackCount = 1
pushvar Var1 ; StackCount = 2
call ISUPGRADE
pop ; StackCount = 1
sfz Var1
pop ; StackCount = 0
jf loc_90
pushtype BOOLEAN ; StackCount = 1
eq Var1, Arg1, S32(6)
sfz Var1
pop ; StackCount = 0
jf loc_5d
assign RetVal, BOOLEAN(1)
loc_5d:
pushtype BOOLEAN ; StackCount = 1
eq Var1, Arg1, S32(8)
sfz Var1
pop ; StackCount = 0
jf loc_90
assign RetVal, BOOLEAN(1)
loc_90:
ret

4
IFPSLib.Tests/IFPSLib.Tests.csproj
View File

@ -51,6 +51,7 @@
<ItemGroup> <ItemGroup>
<None Include="app.config" /> <None Include="app.config" />
<None Include="CompiledCode.bin" /> <None Include="CompiledCode.bin" />
<None Include="CompiledCode_float80.bin" />
<None Include="CompiledCode_v22.bin" /> <None Include="CompiledCode_v22.bin" />
<None Include="packages.config" /> <None Include="packages.config" />
<None Include="TestIsInsn.bin" /> <None Include="TestIsInsn.bin" />
@ -92,6 +93,9 @@
<Version>2.0.3</Version> <Version>2.0.3</Version>
</PackageReference> </PackageReference>
</ItemGroup> </ItemGroup>
<ItemGroup>
<Content Include="CompiledCode_float80.txt" />
</ItemGroup>
<Import Project="$(VSToolsPath)\TeamTest\Microsoft.TestTools.targets" Condition="Exists('$(VSToolsPath)\TeamTest\Microsoft.TestTools.targets')" /> <Import Project="$(VSToolsPath)\TeamTest\Microsoft.TestTools.targets" Condition="Exists('$(VSToolsPath)\TeamTest\Microsoft.TestTools.targets')" />
<Import Project="$(MSBuildToolsPath)\Microsoft.CSharp.targets" /> <Import Project="$(MSBuildToolsPath)\Microsoft.CSharp.targets" />
</Project> </Project>

385
IFPSLib.Tests/Properties/Resources.Designer.cs generated
View File

@ -1,173 +1,212 @@
//------------------------------------------------------------------------------ //------------------------------------------------------------------------------
// <auto-generated> // <auto-generated>
// This code was generated by a tool. // This code was generated by a tool.
// Runtime Version:4.0.30319.42000 // Runtime Version:4.0.30319.42000
// //
// Changes to this file may cause incorrect behavior and will be lost if // Changes to this file may cause incorrect behavior and will be lost if
// the code is regenerated. // the code is regenerated.
// </auto-generated> // </auto-generated>
//------------------------------------------------------------------------------ //------------------------------------------------------------------------------
namespace IFPSLib.Tests.Properties { namespace IFPSLib.Tests.Properties {
using System; using System;
/// <summary> /// <summary>
/// A strongly-typed resource class, for looking up localized strings, etc. /// A strongly-typed resource class, for looking up localized strings, etc.
/// </summary> /// </summary>
// This class was auto-generated by the StronglyTypedResourceBuilder // This class was auto-generated by the StronglyTypedResourceBuilder
// class via a tool like ResGen or Visual Studio. // class via a tool like ResGen or Visual Studio.
// To add or remove a member, edit your .ResX file then rerun ResGen // To add or remove a member, edit your .ResX file then rerun ResGen
// with the /str option, or rebuild your VS project. // with the /str option, or rebuild your VS project.
[global::System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0")] [global::System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0")]
[global::System.Diagnostics.DebuggerNonUserCodeAttribute()] [global::System.Diagnostics.DebuggerNonUserCodeAttribute()]
[global::System.Runtime.CompilerServices.CompilerGeneratedAttribute()] [global::System.Runtime.CompilerServices.CompilerGeneratedAttribute()]
internal class Resources { internal class Resources {
private static global::System.Resources.ResourceManager resourceMan; private static global::System.Resources.ResourceManager resourceMan;
private static global::System.Globalization.CultureInfo resourceCulture; private static global::System.Globalization.CultureInfo resourceCulture;
[global::System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")] [global::System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")]
internal Resources() { internal Resources() {
} }
/// <summary> /// <summary>
/// Returns the cached ResourceManager instance used by this class. /// Returns the cached ResourceManager instance used by this class.
/// </summary> /// </summary>
[global::System.ComponentModel.EditorBrowsableAttribute(global::System.ComponentModel.EditorBrowsableState.Advanced)] [global::System.ComponentModel.EditorBrowsableAttribute(global::System.ComponentModel.EditorBrowsableState.Advanced)]
internal static global::System.Resources.ResourceManager ResourceManager { internal static global::System.Resources.ResourceManager ResourceManager {
get { get {
if (object.ReferenceEquals(resourceMan, null)) { if (object.ReferenceEquals(resourceMan, null)) {
global::System.Resources.ResourceManager temp = new global::System.Resources.ResourceManager("IFPSLib.Tests.Properties.Resources", typeof(Resources).Assembly); global::System.Resources.ResourceManager temp = new global::System.Resources.ResourceManager("IFPSLib.Tests.Properties.Resources", typeof(Resources).Assembly);
resourceMan = temp; resourceMan = temp;
} }
return resourceMan; return resourceMan;
} }
} }
/// <summary> /// <summary>
/// Overrides the current thread's CurrentUICulture property for all /// Overrides the current thread's CurrentUICulture property for all
/// resource lookups using this strongly typed resource class. /// resource lookups using this strongly typed resource class.
/// </summary> /// </summary>
[global::System.ComponentModel.EditorBrowsableAttribute(global::System.ComponentModel.EditorBrowsableState.Advanced)] [global::System.ComponentModel.EditorBrowsableAttribute(global::System.ComponentModel.EditorBrowsableState.Advanced)]
internal static global::System.Globalization.CultureInfo Culture { internal static global::System.Globalization.CultureInfo Culture {
get { get {
return resourceCulture; return resourceCulture;
} }
set { set {
resourceCulture = value; resourceCulture = value;
} }
} }
/// <summary> /// <summary>
/// Looks up a localized resource of type System.Byte[]. /// Looks up a localized resource of type System.Byte[].
/// </summary> /// </summary>
internal static byte[] CompiledCode { internal static byte[] CompiledCode {
get { get {
object obj = ResourceManager.GetObject("CompiledCode", resourceCulture); object obj = ResourceManager.GetObject("CompiledCode", resourceCulture);
return ((byte[])(obj)); return ((byte[])(obj));
} }
} }
/// <summary> /// <summary>
/// Looks up a localized resource of type System.Byte[]. /// Looks up a localized resource of type System.Byte[].
/// </summary> /// </summary>
internal static byte[] CompiledCode_v22 { internal static byte[] CompiledCode_float80 {
get { get {
object obj = ResourceManager.GetObject("CompiledCode_v22", resourceCulture); object obj = ResourceManager.GetObject("CompiledCode_float80", resourceCulture);
return ((byte[])(obj)); return ((byte[])(obj));
} }
} }
/// <summary> /// <summary>
/// Looks up a localized string similar to .version 23 /// Looks up a localized resource of type System.Byte[].
/// /// </summary>
///.entry !MAIN internal static byte[] CompiledCode_v22 {
/// get {
///.type primitive(Pointer) Pointer object obj = ResourceManager.GetObject("CompiledCode_v22", resourceCulture);
///.type primitive(U32) U32 return ((byte[])(obj));
///.type primitive(Variant) Variant }
///.type primitive(PChar) PChar }
///.type primitive(Currency) Currency
///.type primitive(Extended) Extended /// <summary>
///.type primitive(Double) Double /// Looks up a localized string similar to .version 23
///.type primitive(Single) Single ///
///.type primitive(S64) S64 ///.entry !MAIN
///.type primitive(String) String ///
///.type primitive(U32) U32_2 ///.type primitive(Pointer) Pointer
///.type primitive(S32) S32 ///.type primitive(U32) U32
///.type primitive(S16) S16 ///.type primitive(Variant) Variant
///.type primitive(U16) U16 ///.type primitive(PChar) PChar
///.type primitive(S8) S8 ///.type primitive(Currency) Currency
///.type(export) funcptr(void()) ANY [rest of string was truncated]&quot;;. ///.type primitive(Extended) Extended
/// </summary> ///.type primitive(Double) Double
internal static string CompiledCodeDisasm { ///.type primitive(Single) Single
get { ///.type primitive(S64) S64
return ResourceManager.GetString("CompiledCodeDisasm", resourceCulture); ///.type primitive(String) String
} ///.type primitive(U32) U32_2
} ///.type primitive(S32) S32
///.type primitive(S16) S16
/// <summary> ///.type primitive(U16) U16
/// Looks up a localized string similar to .version 23 ///.type primitive(S8) S8
/// ///.type(export) funcptr(void()) ANY [rest of string was truncated]&quot;;.
///.entry !MAIN /// </summary>
/// internal static string CompiledCodeDisasm {
///.type primitive(Pointer) Pointer get {
///.type primitive(U32) U32 return ResourceManager.GetString("CompiledCodeDisasm", resourceCulture);
///.type primitive(Variant) Variant }
///.type primitive(PChar) PChar }
///.type primitive(Currency) Currency
///.type primitive(Extended) Extended /// <summary>
///.type primitive(Double) Double /// Looks up a localized string similar to .version 23
///.type primitive(Single) Single ///
///.type primitive(S64) S64 ///.entry !MAIN
///.type primitive(String) String ///
///.type primitive(U32) U32_2 ///.type primitive(Pointer) Pointer
///.type primitive(S32) S32 ///.type primitive(U32) U32
///.type primitive(S16) S16 ///.type primitive(Variant) Variant
///.type primitive(U16) U16 ///.type primitive(PChar) PChar
///.type primitive(S8) S8 ///.type primitive(Currency) Currency
///.type(export) funcptr(void()) ANY [rest of string was truncated]&quot;;. ///.type primitive(Extended) Extended
/// </summary> ///.type primitive(Double) Double
internal static string CompiledCodeDisasm_v22 { ///.type primitive(Single) Single
get { ///.type primitive(S64) S64
return ResourceManager.GetString("CompiledCodeDisasm_v22", resourceCulture); ///.type primitive(String) String
} ///.type primitive(U32) U32_2
} ///.type primitive(S32) S32
///.type primitive(S16) S16
/// <summary> ///.type primitive(U16) U16
/// Looks up a localized resource of type System.Byte[]. ///.type primitive(S8) S8
/// </summary> ///.type primitive(String) String_2 /// [rest of string was truncated]&quot;;.
internal static byte[] TestIsInsn { /// </summary>
get { internal static string CompiledCodeDisasm_float80 {
object obj = ResourceManager.GetObject("TestIsInsn", resourceCulture); get {
return ((byte[])(obj)); return ResourceManager.GetString("CompiledCodeDisasm_float80", resourceCulture);
} }
} }
/// <summary> /// <summary>
/// Looks up a localized string similar to .version 23 /// Looks up a localized string similar to .version 22
/// ///
///.type primitive(Pointer) Pointer ///.entry !MAIN
///.type primitive(S32) S32 ///
///.type primitive(U32) U32 ///.type primitive(Pointer) Pointer
///.type primitive(U8) U8 ///.type primitive(U32) U32
/// ///.type primitive(Variant) Variant
///.function(export) U8 INITIALIZEUNINSTALL() ///.type primitive(PChar) PChar
/// pushtype U32 ; StackCount = 1 ///.type primitive(Currency) Currency
/// pushtype U32 ; StackCount = 2 ///.type primitive(Extended) Extended
/// is Var1, Var2, S32 ///.type primitive(Double) Double
/// is Var1, Var2, Var1 ///.type primitive(Single) Single
/// ret ///.type primitive(String) String
/// ///.type primitive(U32) U32_2
/// ///.type primitive(S32) S32
///. ///.type primitive(S16) S16
/// </summary> ///.type primitive(U16) U16
internal static string TestIsInsnDisasm { ///.type primitive(S8) S8
get { ///.type primitive(Char) Char
return ResourceManager.GetString("TestIsInsnDisasm", resourceCulture); ///.type primitive(U32) U32_3
} ///.ty [rest of string was truncated]&quot;;.
} /// </summary>
} internal static string CompiledCodeDisasm_v22 {
} get {
return ResourceManager.GetString("CompiledCodeDisasm_v22", resourceCulture);
}
}
/// <summary>
/// Looks up a localized resource of type System.Byte[].
/// </summary>
internal static byte[] TestIsInsn {
get {
object obj = ResourceManager.GetObject("TestIsInsn", resourceCulture);
return ((byte[])(obj));
}
}
/// <summary>
/// Looks up a localized string similar to .version 23
///
///.type primitive(Pointer) Pointer
///.type primitive(S32) S32
///.type primitive(U32) U32
///.type primitive(U8) U8
///
///.function(export) U8 INITIALIZEUNINSTALL()
/// pushtype U32 ; StackCount = 1
/// pushtype U32 ; StackCount = 2
/// is Var1, Var2, S32
/// is Var1, Var2, Var1
/// ret
///
///
///.
/// </summary>
internal static string TestIsInsnDisasm {
get {
return ResourceManager.GetString("TestIsInsnDisasm", resourceCulture);
}
}
}
}

6
IFPSLib.Tests/Properties/Resources.resx
View File

@ -124,9 +124,15 @@
<data name="CompiledCodeDisasm" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="CompiledCodeDisasm" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\CompiledCode.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value> <value>..\CompiledCode.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data> </data>
<data name="CompiledCodeDisasm_float80" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\CompiledCode_float80.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
</data>
<data name="CompiledCodeDisasm_v22" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="CompiledCodeDisasm_v22" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\CompiledCode_v22.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value> <value>..\CompiledCode_v22.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data> </data>
<data name="CompiledCode_float80" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\CompiledCode_float80.bin;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="CompiledCode_v22" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="CompiledCode_v22" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\CompiledCode_v22.bin;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>..\CompiledCode_v22.bin;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>

12
IFPSLib.Tests/ScriptTest.cs
View File

@ -79,5 +79,17 @@ namespace IFPSLib.Tests
{ {
TestAsmImpl(Resources.TestIsInsnDisasm, Resources.TestIsInsn); TestAsmImpl(Resources.TestIsInsnDisasm, Resources.TestIsInsn);
} }
[TestMethod]
public void TestLoadSaveFloat80()
{
TestLoadSaveImpl(Resources.CompiledCode_float80);
}
[TestMethod]
public void TestAsmFloat80()
{
TestAsmImpl(Resources.CompiledCodeDisasm_float80, Resources.CompiledCode_float80);
}
} }
} }