@@ -23,7 +23,7 @@ public bool Build(string BuildPath, ZXBuildStage Stage, ZXBuildType BuildType, Z
2323 {
2424 case ZXBuildStage . PreBuild :
2525
26- return BuildDiskAndCode ( BuildPath , OutputLog ) ;
26+ return BuildDiskAndCode ( BuildPath , BuildType , OutputLog ) ;
2727
2828 case ZXBuildStage . PostBuild :
2929
@@ -65,7 +65,7 @@ private bool InjectDisk(string buildPath, ZXProgram compiledProgram, TextWriter
6565 return true ;
6666 }
6767
68- private bool BuildDiskAndCode ( string buildPath , TextWriter outputLog )
68+ private bool BuildDiskAndCode ( string buildPath , ZXBuildType BuildType , TextWriter outputLog )
6969 {
7070 string [ ] diskBuilds = Directory . GetFiles ( buildPath , "*" + ZXDocumentProvider . GetDocumentTypeInstance ( typeof ( ZXRamDiskDocument ) ) . DocumentExtensions [ 0 ] , SearchOption . AllDirectories ) ;
7171
@@ -92,7 +92,6 @@ private bool BuildDiskAndCode(string buildPath, TextWriter outputLog)
9292 List < byte > data = new List < byte > ( ) ;
9393
9494 sb . AppendLine ( $ "#define { diskFile . DiskName } { ( int ) diskFile . Bank } ") ;
95- sb . AppendLine ( $ "#define { diskFile . DiskName } _SIZE { diskFile . Files . Sum ( f => f . Size ) } ") ;
9695
9796 foreach ( var file in diskFile . Files )
9897 {
@@ -108,10 +107,15 @@ private bool BuildDiskAndCode(string buildPath, TextWriter outputLog)
108107 }
109108
110109 data . AddRange ( fileData ) ;
111- sb . AppendLine ( $ "#define { file . Name } _SIZE { fileData . Length } ") ;
110+ sb . AppendLine ( $ "#define { file . Name } Size { fileData . Length } ") ;
111+
112+ sb . AppendLine ( $ "#define Load{ file . Name } From{ diskFile . DiskName } (Dest) LoadRamData({ diskFile . DiskName } , { file . Name } + $C000, Dest, { file . Name } Size)") ;
113+
114+ sb . AppendLine ( $ "#define LoadPartial{ file . Name } From{ diskFile . DiskName } (Dest, Size) LoadRamData({ diskFile . DiskName } , { file . Name } + $C000, Dest, Size)") ;
112115 }
113116
114- sb . AppendLine ( $ "\r \n LoadRamDisk({ diskFile . DiskName } )") ;
117+ if ( BuildType == ZXBuildType . Release )
118+ sb . AppendLine ( $ "\r \n LoadRamDisk({ diskFile . DiskName } )") ;
115119
116120 outputLog . WriteLine ( "Writting binary disk..." ) ;
117121 File . WriteAllBytes ( diskPath . Substring ( 0 , diskPath . Length - 4 ) + ".zxrbin" , data . ToArray ( ) ) ;
0 commit comments