--- spal60sr\src\TSSGCtrl\SSGActionListnerBase.original.h	Sat Jan 25 18:44:40 2003
+++ spal60sr\src\TSSGCtrl\SSGActionListnerBase.h	Sat Jan 25 18:44:40 2003
@@ -1,6 +1,8 @@
 #ifndef SSGActionListnerBaseH
 #define SSGActionListnerBaseH
 
+#define FIX_ONPARSINGPROCESS 1
+
 //----------------------------------------------------------------------------
 //uTSGCtrlSSGɂ郁̓ǂݏsۂɗpł^R[obNpXiNXv
 //	EBorland C++Builder5/VisualC++6.0 ŃRpCmF
@@ -32,7 +34,11 @@
 	virtual void OnSubjectWriteSuccess(TSSGSubject *SSGS, unsigned long Address){}	//vZX̃Cg
 	virtual void OnSubjectCompareSuccess(TSSGSubject *SSGS, unsigned long Address){}	//vZX̔r
 	virtual void OnParsingError(TSSGSubject *SSGS, string Code){}				//AhXR[fBỎ̓G[
+#if !defined(FIX_ONPARSINGPROCESS) || !FIX_ONPARSINGPROCESS
 	virtual void OnParsingProcess(TSSGSubject *SSGS, string Code, long TopVal){}				//AhXR[fBỎ͌oߕ
+#else
+	virtual void OnParsingProcess(TSSGSubject *SSGS, string Code, unsigned __int64 TopVal){}				//AhXR[fBỎ͌oߕ
+#endif
 	virtual void OnParsingDoubleProcess(TSSGSubject *SSGS, string Code, double TopVal){}		//AhXR[fBỎ͌oߕ
 	
 };
