Re: QL / PASCAL
Posted: Wed May 12, 2021 5:10 pm
Another patch to the Free Pascal stuff.
In this one, I have modified the qdos unit to:
If you apply this patch, then you will need to rebuild the QL Units as described in Section 12 of my afore mentioned (way above) document, then compile your example programs. But here's a reminder:
We then need to install into the correct location:
The above assumes you are using the same source and binary locations as my document, and that you have renamed/sym-linked the cross compiler to be accessed as 'fpc-ql'.
I'm in the process of sorting a similar system variables record type for the SMS unit, but for some reason, it doesn't want to play just now. I'm working on it. Mind you, the SMS uint is pretty sparse right now.
Cheers,
Norm.
In this one, I have modified the qdos unit to:
- Include a file qdos_sysvars.inc which has a new record type, SystemVariables, and a pointer to it, PSystemVariables.
- Remove the existing offsets from the base of the system variables, superceeded by the above.
If you apply this patch, then you will need to rebuild the QL Units as described in Section 12 of my afore mentioned (way above) document, then compile your example programs. But here's a reminder:
Code: Select all
cd ~/SourceCode/fpc
make packages_clean OS_TARGET=sinclairql CPU_TARGET=m68k
make packages RELEASE=1 FPC=fpc-ql OS_TARGET=sinclairql CPU_TARGET=m68k
Code: Select all
cd ~/bin/lib/fpc/3.3.1/units/m68k-sinclairql/qlunits
cp ~/SourceCode/fpc/packages/qlunits/units/m68k-sinclairql/* ./
I'm in the process of sorting a similar system variables record type for the SMS unit, but for some reason, it doesn't want to play just now. I'm working on it. Mind you, the SMS uint is pretty sparse right now.
Cheers,
Norm.